Дана программа, переписать ее с помощью оператора case. var a,b,x:real; begin readln(a,b); if a=0 then if b=0 then
10-11 класс
|
write('x-любое число')
else
write('нет решений')
else
write('x=',-b/a);
end.
var a,b,x:integer;
begin readln(a,b);
case a OF 0: Write('x-любое число')
ELSE case b OF 0: Write ('нет решений')
ELSE Write ('x=',-b/a);
end;
end;
end.
Другие вопросы из категории
быть может, в душе моей угасла не совсем.
[х [x1 x2 x3 x4
p ]= 1/2 1/4 1/8 1/8 ]
Читайте также
Например: если я ввожу 2 должно выйти март
Например: если я ввожу 2 должно выйти март
writeln('введите число y');readln(y); if x>y then max:=x else max:=y; writeln('большее из двух =',max); end.
Ничего из вышеперечисленного.
Бесконечный цикл: Можно остановить путем ввода данных пользователем; Приводит к останову программы Можно использовать для создания короткой паузы в выполнении программы; Приводит к повторению некоторой части программы, пока не будет нажата клавиша “СТОП”.
Можно организовать цикл, повторяющийся до тех пор, пока не выполнится логическое условие с помощью операторов: FOR … NEXT IF… THEN GOTO Все вышеперечисленное.
Содержащаяся одна в другой циклические структуры называются: Вложенными; Простыми; Последовательными; Ничего из вышеперечисленного.
Какая из следующих строк может быть начальной строкой цикла FOR…NEXT: FOR A$=1 TO 15 FOR A=1 TO 15 FOR A=1 TO=15 FOR 4A=1 TO 15
Цикл FOR…NEXT приводит к повторению некоторой части программы, которая носит название: Тело цикла; Глубина цикла; Параметр цикла; Приращение.