вторник, 1 ноября 2011 г.

Модуль 3 задание 6

Program Lab1;
Var x, y, many, many1, many2, e: real;
Begin
Writeln (‘Введите X:’);
Readln (x);
Writeln (‘Введите Y:’);
Readln (y);
Writeln (‘Введите E:’);
Readln (e);
many1:=abs(x)+1/3*2;
many2:=(-e*-e*-e*x)-(0.4)/(5+7*y);
many:=many1+many2;
Writeln (many);
End.

  Заголовок программы. Программа с названием опыт 1. Описание раздела переменных. Данные переменные заданы действительным типом.
  Начало программы.
Вывод на экран сообщение (‘Введите X:’)
Ввод переменной x с клавиатуры
Вывод на экран сообщение (‘Введите Y:’)
Ввод переменной y с клавиатуры
Вывод на экран сообщение (‘Введите E:’)
Ввод переменной e с клавиатуры
Переменная many1 присваивает выражение - модуль x плюс ⅓ умноженная на 2
Переменная many2 присваивает выражение - произведение переменных -e, -e, -e, и x вычесть 0,4 разделить на сумму чисел 5 и 7 умноженное на y
Переменная many присваивает выражение сумму переменых many1 и many2.
Вывод на экран данных переменной many.
  Конец программы.

1 комментарий: