Будь умным!


У вас вопросы?
У нас ответы:) SamZan.net

по теме ldquo;Организация ветвления и циклов на языке Паскальrdquo; Задача 1- Ввести число

Работа добавлена на сайт samzan.net:


1. Задачи по теме “Организация ветвления и циклов на языке Паскаль”

Задача № 1: Ввести число. Если оно неотрицательно, вычесть из него 50, в противном случае прибавить к нему 100. (Написать программу, начертить блок-схему).

Задача № 2: Ввести 2 числа. Если их произведение отрицательно, умножить его на –2 и вывести на экран, в противном случае увеличить его в 1,5 раза и вывести на экран. (Написать программу, начертить блок-схему).

Задача № 3: Ввести 2 числа. Вычесть из большего меньшее.

Задача № 4: Ввести число. Если оно четное, разделить его на 4, если нечетное - умножить на 5.

Задача № 5: Ввести рост человека. Вывести на экран “ВЫСОКИЙ”, если его рост превышает 180 см, и “НЕ ОЧЕНЬ ВЫСОКИЙ” в противном случае.

Задача № 6: Составить программу, которая спрашивает возраст человека и, если ему 18 лет и больше, сообщает “Замечательно. Вы уже можете водить автомобиль”, а в противном случае – “К сожалению, водить автомобиль Вам рановато”.

Задача № 7: Составить программу вычисления значений функции для любого х по желанию пользователя:

а)    б)

Задача № 8: Вовочка, любитель стрелять из рогатки, 7 раз попадал в милицию. Ввести с клавиатуры целое положительное число – № попадания. Определить результат: 4,6,7 – милиционеры вставляли новое стекло, 2,5 – новое стекло вставлял папа Вовочки, 1, 3 – стекло не разбилось.

Задача № 9: Составить программу, которая запрашивает ввод трех значений температуры и проверяет, есть ли среди них температура таяния льда?

Задача № 10: Вводятся три значения ускорения свободного падения. Программа должна проверить, есть ли среди них ускорение свободного падения.

Задача № 11: Составить программу, которая запрашивает ввод формул трех кислот и проверяет, есть ли среди них формула серной кислоты?

Задача № 12: Составить программу, которая запрашивает ввод температуры тела человека и определяет, здоров он или болен (здоров при 36 < t < 37)?

Задача № 13: Определить, сколько простых чисел среди n введенных целых чисел.

Задача № 14: Найти сумму n-го количества элементов ряда 1, -0.5, 0.25, -0.125, …

Задача № 15: Дано число. Найти сумму и произведение его цифр.

2. Какое будет значение будет принимать переменная х?

а:= 5; b:= 4; c: = 3;
If a > b then x := a + b
Else begin
а := b + c; x := a – 3 * b;
End.

а := 9; b := 8; c := 2;
If (a > b) and (b > c) then x := 2 * a + b + c
Else begin
а := b + c; x := a – 3 * b;
End.

а := 1; b := 4; c := 8;
If (a <= b) or (a > c) then x := 5 * a – b  
Else
x := 4 * a * b;
End.

a := 7; b := 3; c := 6;
If (a < b) and (a > c) then x := 4 * a – b * a
Else x := a – b;
End.

a := 53; b := 14;
If a <= b then x := a + b
Else x := 2 * a – 4 * b;
End.

a := 3; b := 4;
If a > b then x := a * b else x := a;
End.

3. Укажите значение переменной m после выполнения приведенной ниже программы

var

k, m: word;

begin

к := 0;

m := 0;

while k < 3 do inc(k);

inc(m);

end.

Var

k, m: word;

begin

m := 1;

for k := 3 downto 1 do;

inc(m);{ этот оператор не входит в цикл }

end.

var

k, m : word;

begin m := 1;

for k := 1 to 2 do

begin

inc(m);

inc(k,2);

 end;

 end.




1. Сокрытые сокровища Партнерам Миссии Кеннета Коупленда
2. Good morning collegues Tody we re going to tlk bout fmily nd it~s types
3. Экологическая политика предприятий
4. ИЗУЧЕНИЕ ТЕМПЕРАТУРНОЙ ЗАВИСИМОСТИ ЭЛЕКТРОСОПРОТИВЛЕНИЯ ТОНКИХ ПЛЕНОК 10
5. ТЕМА 5-1 СТАНОВЛЕНИЕ И ОСНОВНЫЕ ЭТАПЫ РАЗВИТИЯ РУССКОЙ ФИЛОСОФСКОЙ МЫСЛИ Время 2 часа
6. Електронна комерція і електронний ринок
7. Жив він бідно як звичайний мужик в невеликому старому будинку де була одна лише кімната і в цій кімнаті міс.
8. ВСТУП1
9. Лекция 1 ЧАСТЬ 1 ТЕОРИЯ ВЕРОЯТНОСТЕЙ ВВЕДЕНИЕ Человек в процессе своей жизнедеятельности сталкивается с
10. Тема 1. Сутність фінансів страховика та особливості їх організації
11. Будьте мудрыми Будьте см
12. Развитие коммуникативных способностей в игровой деятельности
13. Тема 9 Грошова вартість яка э вимогою до емітентаякі зберігаються на електронному пристрої випускаютьс
14. ресторанного бізнесуrdquo; для студентів денної та заочної форм навчання спеціальності менеджмент організ.html
15. разгрузочных машин Погрузочноразгрузочные машины ПРМ предназначены для погрузки грузов в транспор
16. Статья- Административная ответственность перевозчика за недоставку утрату принятых к перевозке грузов на.html
17. РЕФЕРАТ дисертації на здобуття наукового ступеня кандидата мистецтвознавства Харк
18. Розвиток німецьких антропонімів в історичному та мовно-географічному аспектах
19. 00 erobics Малеева
20. введение; слушание собеседника основная часть беседы; формулировка выводов из услышанного заключен