напишите в Паскаль по этой блок схеме

Напишите в Паскаль по этой блок схеме

Задать свой вопрос
1 ответ

Странный метод :)

Надпись слева я не разобрал, оставил со знаком вопроса, подправите позже этот текст. И, если в извещеньях  x1 и x2 необходимо было печатать в виде числа, то поставьте их перед текстом и отделите запятой, вот так: (x1, ' съест').

Сама программка:

var

 x1, x2, y: real;

begin

 Println('Введите значения x1, x2, y через пробел и нажмите Enter');

 Readln(x1, x2, y);

 x1 := y - x1;

 x2 := y - x2;

 if x2 lt; 0 then

   x2 := -x2;

 if x1 lt; 0 then

   x1 := -x1;

 if x1 = x2 then

   Println('В улетит?')

 else if x1 gt; x2 then

   Println('x2 съест')

 else Println('x1 съест');

end.

Никита Фарафонтов
Кстати, при копировании текста программки с веб-сайта, возникают излишние пробелы перед каждой строкой. Удалите эти пробелы, если программка не заработает. Просто у меня она ругается на "внезапный символ". И текст после "end." тоже удалите, если появится.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт