Презентация на тему к уроку информатики по темеОператор выбора в Паскале, 9 класс

число отрицательное меняет его на противоположное.

Program Chisla; Var   x :

integer; {вводимое число} Begin   writeln(‘Введите число ‘); {вводим целое число}   readln(x);   if x<0     then       x:=-x;       writeln (x);       readln; End.

integer; Begin   writeln(‘Введите числа a, b, c’);   readln(a,b,c);  

if (a<=b) and (b<=c)     then       begin         a:=sqr(a);         b:=sqr(b);         c:=sqr(c);       end     else       if (a>b) and (b>c)         then           begin             b:=a;              c:=a;           end         else           begin             a:=-a;             b:=-b;             c:=-c;           end   writeln(a,b,c);   readln; End.

Задача 4. Даны целые числа a, b, c. Если a ≤ b ≤ c, то все числа заменить их квадратами, если a>b>c, то каждое число заменить наибольшим из них, в противном случае сменить знак каждого числа.

вариантами:
case of
: ;

[<список_констант> : <один_оператор>;]
[<список_констант> : <один_оператор>;]
[else <один_оператор>;]
end;

'A'..'Z' : writeln('Это латинская буква');
'а'..'я', 'А'..'Я' :

writeln('Это русская буква');
'0'..'9' : writeln('Это цифра');
' ',#10,#13,#26 : writeln('Это пробельный символ');
else writeln('Это служебный символ');
end;

слова.

Program z5; Var   a, b, c : integer; Begin   writeln(‘Введите

цифру ‘);   readln(a);   case a of     0 : writeln (‘ноль‘);     1 : writeln (‘один‘);     2 : writeln (‘два‘);     3 : writeln (‘три‘);     4 : writeln (‘четыре‘);     5 : writeln (‘пять‘);     6 : writeln (‘шесть‘);     7 : writeln (‘семь‘);     8 : writeln (‘восемь‘);     9 : writeln (‘девять‘)   else writeln (‘Это число не является цифрой‘);   end;   readln; End.

кислоты H2SO4 нужно 2 атома водорода (Н), 1 атом

серы (S) и 4 атома кислорода (О).В химическом реакторе имеется А атомов водорода, В атомов кислорода и С атомов серы. Составьте алгоритм или напишите программу, вычисляющую, сколько молекул серной кислоты может получится из такого количества атомов?