Даны два числа. Если первое число больше второго, то надо отнять второе число от первого, иначе отнять первое число от второго (решение см. ниже).
Задание
Найдите ошибки в тексте программы, в правом столбике таблицы 1 приведите правильный вариант, введите исправленный текст программы.
Таблица 1 – Текст программы к заданию
Programm Raznost;
begin.
var
t, f, rez; integer
writeln 'введите любые два числа';
readln (t, f, rez)
if t > f then
rez := t - f;
else
rez = f - t;
writeln (разность чисел равна , rez)
end
Изобразите блок-схему этой программы.
Ответы
Ответ дал:
1
Ответ:
Program Raznost;
begin
var
t, f, rez: integer;
writeln('введите любые два числа');
readln(t,f);
if t > f then
rez:= t - f
else
rez:= f - t;
writeln('Разность чисел равна ', rez);
end.
Объяснение:
- В слове "Programm" допущена ошибка в виде лишней "m"
- После "begin" точка не ставится
- Правильное оформление "t, f, rez; integer" будет так: "t, f, rez: integer;"
- В строке "writeln 'введите любые два числа';" Необходимо добавить скобки "writeln('введите любые два числа');"
- В строчке "readln (t, f, rez)" не нужно перечислять переменную "rez", а так-же нужна точка с запятой на конце.
- После "rez := t - f;" не нужна точка с запятой, т.к. это ветвление полной формы
- в строчке "writeln (разность чисел равна , rez)" необходимо добавить знаки в скобках " ' "
- На последней строчке "end" необходима точка
Вас заинтересует
1 год назад
1 год назад
1 год назад
7 лет назад
7 лет назад
8 лет назад