практика - - - - ветвления

ДОМОЙ		ПАСКАЛЬ	О САЙТЕ
		Общие сведения Учебные материалы Практические задания Примеры программ	От автора Используемые материалы Карта Благодарности

ТЕМЫ

Ветвления

[Предыдущий урок] [На уровень вверх] [Следующий урок]

Контрольные вопросы

Задания

Составить программу, позволяющую поменять знак переменной при условии, что она отрицательна. (Если переменная принимает положительное значение, то оставить эту переменную без изменений).

Решения

program p1;
var
a:real;
begin
writeln ('Vvedite znachenie peremennoi');
read (a);
s:=pi*sqr(r);
if a<0 then a:=-a
writeln (a);
readln;
end.

Задания для самостоятельного выполнения

Составте программу, которая бы сначала показывала математическое выражение, потом просила вас вычислить и записать значение этого выражения. Если ваш ответ будет верным, то Программа должна вывести на экран строчку: "Поздравляю! Все правильно", если нет то - "Неверно".

[В начало]

[Предыдущий урок] [На уровень вверх] [Следующий урок]

Полезные сайты: