Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
meter
СтудентЪ из Кызылорды
25 / 23 / 9
Регистрация: 02.10.2009
Сообщений: 144
1

Работа с целыми числами

13.12.2009, 17:14. Просмотров 615. Ответов 7
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var y,z:integer;
k:integer;
begin
write('k(введите число от 8 до 22)=');
readln(k);
if k in [11,13,17,19] then
begin
k:=y;
writeln('Число простое=y');
end
else
begin
if k in [8,9,10,12,14,15,16,18,20,21,22] then
z:=k;
writeln('Число составное=z');
end;
end.
Плиз прошу помочь докончить, тут если указать любое число(кроме 11,13,17,19) выдает ответ ('Число составное=z'), как прописать условие для того, что бы если число не введено из диапазона [8..22] то программа останавливается
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.12.2009, 17:14
Ответы с готовыми решениями:

Массив с целыми числами
дан массив состоящий из 100 целых чисел. Вывести все числа которые встречаются...

Заполнить файл f целыми числами и ..
Заполнить файл f целыми числами, прочитать их из файла и найти наибольшее...

Заполнить массив А(n,m) целыми случайными числами
Помогите решить,очень надо.Заполнить массив А(n,m) целыми случайными числами...

Заполнить трехмерный массив целыми числами по правилу
Заполнить трехмерный массив целыми числами по правилу (элементы на гранях равны...

Заполнить файл последовательного доступа f целыми числами
Заполнить файл последовательного доступа f целыми числами, полученными с...

7
yanyk1n
4331 / 1463 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
13.12.2009, 17:17 2
А необходимо проверять числа именно из промежутка [8; 22]?
1
nVz
170 / 168 / 30
Регистрация: 12.12.2009
Сообщений: 1,336
13.12.2009, 17:21 3
условие:
Код
if (k>=8)or(k<=22) then ... else exit;
1
Puporev
Модератор
54677 / 42099 / 29068
Регистрация: 18.05.2008
Сообщений: 99,344
13.12.2009, 17:21 4
Pascal
1
2
3
4
5
6
7
8
9
var y,z:integer;
k:integer;
begin
write('введите число от 8 до 22 k=');
readln(k);
if k in [11,13,17,19] then write('Число ',k,' простое')
else write('Число ',k,' составное');
readln
end.
1
meter
СтудентЪ из Кызылорды
25 / 23 / 9
Регистрация: 02.10.2009
Сообщений: 144
13.12.2009, 19:00  [ТС] 5
Цитата Сообщение от Puporev Посмотреть сообщение
Pascal
1
2
3
4
5
6
7
8
9
var y,z:integer;
k:integer;
begin
write('введите число от 8 до 22 k=');
readln(k);
if k in [11,13,17,19] then write('Число ',k,' простое')
else write('Число ',k,' составное');
readln
end.
Тут тоже самое получается если ввести 1 то говорит число составное

Добавлено через 17 секунд
Цитата Сообщение от k1ry4 Посмотреть сообщение
А необходимо проверять числа именно из промежутка [8; 22]?
Да именно от 8 до 22

Добавлено через 33 секунды
Цитата Сообщение от nVz Посмотреть сообщение
условие:
Код
if (k>=8)or(k<=22) then ... else exit;
Спасибо сейчас попробую!

А почему exit???
0
Puporev
Модератор
54677 / 42099 / 29068
Регистрация: 18.05.2008
Сообщений: 99,344
13.12.2009, 19:01 6
Pascal
1
2
3
4
5
6
7
8
9
10
var y,z,k:integer;
begin
repeat
write('введите число от 8 до 22 k=');
readln(k);
until k in [8..22];
if k in [11,13,17,19] then write('Число ',k,' простое')
else write('Число ',k,' составное');
readln
end.
1
meter
СтудентЪ из Кызылорды
25 / 23 / 9
Регистрация: 02.10.2009
Сообщений: 144
13.12.2009, 19:03  [ТС] 7
Puporev Огромное спасибо!
0
nVz
170 / 168 / 30
Регистрация: 12.12.2009
Сообщений: 1,336
13.12.2009, 19:06 8
exit это просто))) к примеру
0
13.12.2009, 19:06
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.12.2009, 19:06

напишите программу создания файла, с целыми числами
напишите программу создания файла, сцелыми числами, прибавьте к каждому целому...

Заполнить файл последовательного доступа f целыми числами
Всем привет! Помогите пожалуйста с прогой в Pascal.Оч надо...вот условие:...

Заполнить файл последовательного доступа f целыми числами
Заполнить файл последовательного доступа f целыми числами, полученными с...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru