Поможем написать учебную работу
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

Подписываем
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
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.