Цитата:
Сообщение от Dimas27
Vladimir_S вы итак много сделали для меня , но немогли бы вы ешё в кратции расписать что каждая строчка делает? Не сочтите за наглость.
|
Пожалуйста:
Код:
Var
a,b:Real; {задаем вещественные переменные a, b}
Begin {начало программы}
Repeat {организуем циклический ввод переменной a; выход из цикла - когда будет введено a, отличное от 0}
Write('a= '); {выводим подсказку на экран перед вводом а}
Readln(a); {читаем введенное с клавиатуры значение а}
if a=0 then writeln('Error: a=0. Enter another value'); {проверякм условие равенства а нулю. Если оно истинно - выдаем сообщение об ошибке и повторяем ввод а}
Until a<>0; {конец цикла ввода а}
Write('b= '); {выводим подсказку на экран перед вводом b}
Readln(b); {читаем введенное с клавиатуры значение b}
Writeln('x = ',b/a:0:5); {выводим результат расчета: x=b/a с пятью знаками после десятичной точки}
Readln; {остановка выполнения программы; нужна для того, чтобы увидеть на экране результат}
End. {конец программы}