Задача № 1: Ввести число. Если оно неотрицательно,
вычесть из него 50, в противном случае
прибавить к нему 100.
Задача № 2: Ввести 2 числа. Если их произведение
отрицательно, умножить его на –2 и
вывести на экран, в противном случае
увеличить его в 3 раза и вывести на экран.
Задача № 3: Ввести 2 числа. Вычесть из большего
меньшее.
Задача № 4: Ввести число. Если оно больше 8, разделить
его на 4, если меньше или равно 8, то
умножить на 5.
If x>0 then y:=x-50 else y:=x+100;
If a*b<0 then y:=a*b*(-2) else y:=a*b*3;
If A>B then C:=A-B;
If x>8 then y:=x/4 else y:=x*5;
Практическая работа в среде Pascal
program maximym;
var A, B, max: integer;
begin
writeln (‘введите любые два числа’);
readln (A,B);
if A>B then max:=A
else max:=B;
writeln (‘ максимальное число‘, max);
end.
1. Проверить работу программы
2. Записать программу для любой задачи (задачи из карточки), используя составленные конструкции оператора ветвления
и проверить в среде TP.
© ООО «Знанио»
С вами с 2009 года.