построить алгоритм вычисления на языке Паскаль

[ГалинаЛяшкова]

Помогите построить алгоритм вычисления на языке Паскаль

E={ (70-15x)/y, если x<=0;
(70-15y)/x, если x>0;

Если не трудно, блок-схему напишите еще

[ZX Spectrum-128]

if x<=0 then
 e:=(70-15*x)/y
else
 e:=(70-15*y)/x;

[ГалинаЛяшкова]

Мы вводим х,у???

writeln ('Введите х '); ????

[ГалинаЛяшкова]

Спасибо за помощь.

Я не могу открыть ссылку. не грузит даже

[Serge_Bliznykov]

Сообщение от ГалинаЛяшкова

Мы вводим х,у???
writeln ('Введите х '); ????

да.

  WriteLn('Введите х: ');  { вывести на экран приглашение ввода}
  ReadLn(x); {ввести значение в переменную x }
  WriteLn('Введите y: ');  { вывести на экран приглашение ввода}
  ReadLn(y); {ввести значение в переменную y }

все переменные нужно предварительно описать (объявить) в секции VAR

[ГалинаЛяшкова]

Programm yravnenie;
Var x,y,e: integer;
WriteLn('Введите х: ');
ReadLn(x);
WriteLn('Введите y: ');
ReadLn(y);
begin
if x<=0 then
e:=(70-15*x)/y
else
e:=(70-15*y)/x;
ReadLn ('результат' e:= );
end.


Так должно получится?

[ura_111]

А почему ты просто не запустишь программу на выполнение и не проанализируешь её результаты?

Если у тебя нет компилятора на компьютере - используй онлайн:

https://www.tutorialspoint.com/compi...cal_online.php

Только ты не набирай всю программу целиком (просто так сложно ошибки потом искать); а ты набери одну строчку кода - выполни программу - проверь правильно ли выводит - потом следующую строчку кода набрала - и снова выполнила - ......

18.jpg

Кстате, уже вижу ошибку - слово "Programm" c одной "m" (сопоставь с рисунком, и обрати внимание что ключевые слова подсвечиваются)...
Ну всё, дальше вписывай в этот шаблон по 1-й строчке кода и "компилируй (1шаг) - выполняй (2шаг) - смотри результат".

[Aleksandr H.]

PROGRAM yravnenie;
VAR x,y,e: REAL;
BEGIN
WriteLn('Введите х: ');
ReadLn(x);
WriteLn('Введите y: ');
ReadLn(y);
if x<=0 then
   e:=(70-15*x)/y
else
   e:=(70-15*y)/x;
WRITELN ('результат e:=',E:3:3 );
READLN;
end.

заплати преподу и не насилуй мозг себе

[Serge_Bliznykov]

Сообщение от Aleksandr H.

заплати преподу и не насилуй мозг себе

не согласен. Она же честно пытается изучить язык и разобраться!
ну сделала несколько ошибок. Так на начальном этапе так и должно быть.
главное, чтобы разобраться, какие ошибки сделаны и не делать их впредь!