Тренажер по информатике Ветвления на Паскале

УСЛОВНЫЙ ОПЕРАТОР НА ПАСКАЛЕ
1. Запишите общий вид условного оператора на языке программирования Паскаль: _________________________________________________________________________________________________
2. В нижеследующих программах подчеркните условный оператор, обведите условие и укажите, какую задачу решает программа.
program А1;
var a,b: integer;
begin
write1n('введите 2 числа');
readln (a, b);
if a>b then writeln (a) else writeIn (b);
End.


__________________________________
__________________________________
__________________________________

Program А2;
var t: real;
begin
write1n ('введите число');
readln (t);
if t/5=t div 5 then writeln (делится’)
else writeln (не делится’);
end.

__________________________________
__________________________________
__________________________________

Program А3;
var k: real;
begin
write1n ('введите число');
readln (k);
if k>1 then writeln (больше’)
else if k=1 then writeln (равно’)
else writeln (меньше’);
end.
__________________________________
__________________________________
__________________________________


Program А4;
var a,b,c,m: real;
begin
write1n ('введите 3 числа');
readln (a,b,c);
if a>b then
if a>c then m:=a else m:=c
else
if b>c then m:=b else m:=c;
writeln (m= , m);
end.
__________________________________
__________________________________
__________________________________

Program А5;
var х: real;
begin
write1n ('введите число');
readln (х);
if (х>=0) AND (х/2=х div 2) then writeln (условие выполняется’)
else writeln (условие не выполняется’);
end.


__________________________________
__________________________________
__________________________________

Program А6;
var a,b,c: real;
begin
write1n ('введите 3 числа');
readln (a,b,c);
if (a>=10) OR (b>=10) OR (c>=10) then writeln (условие выполняется’)
else writeln (условие не выполняется’);
end.


__________________________________
__________________________________
__________________________________




3. Определите значение переменной с после выполнения фрагмента программы на Паскале, если вводятся числа:

readln (a1, a2, a3);
1) 2, -5, 8
2) -3, 0, 7
3) -1, -2, -4

с =
с =
с =

  if a1 >0 then с:= с+1;
 if a2 >0 then с:= с+1;
if a3 >0 then с:= с+1;
writeln (с);

Какую задачу решает данный фрагмент программы? ________________________________________________________________

4. Грузовой автомобиль выехал из одного города в другой со скоростью vl км/ч. Через t ч в этом же направлении выехал легковой автомобиль со скоростью v2 км/ч. Составить программу, определяющую, догонит ли легковой автомобиль грузовой через t1 ч после своего выезда.















5. Составить программу нахождения значения функции


для заданного х: