Помогите решить задачу (Страница 2 из 2)

Kat пишет:

program project;
var x,y real
begin
  input x
  y= x-x^3/3+x^5/5
  print y
end.
В Lazarus скомпилировался.

в принципе да, но у нас за такое хор оценку не поставили бы

program project;
var x,y : real ;
begin
  read (x);
  y= x-x^3/3+x^5/5;
  Write (y)
end.
Как то так

Ну вот 2-е задание примерно так будет:

program P_2;
uses crt;
var a,b,c,d,z:real;
begin
Write('a=');Read(a);
Write('b=');Read(b);
Write('c=');Read(c);
Write('d=');Read(d);

z:=(a/c*b/d)-((a*b-c)/c*d); 

writeln('ответ= ',z);
end.
остальные точно также
только переменные и формулу меняеш.

Я так думаю,что версию паскаля любую можно

Athlon82 пишет:

воооот так надо. опять же пока не знаем какой там паскаль

да на любом паскале ввод- вывод одинаковы. 🙂

сть волшебная кнопка на клавиатуре-PrintScreen называется...

За 5000 руб, готов изучить паскаль

Aleksey-A пишет:

Ну вот 2-е задание примерно так будет:

program P_1;
uses crt;
var a,b,c,d,z:real;
begin
Write('a=');Read(a);
Write('b=');Read(b);
Write('c=');Read(c);
Write('d=');Read(d);

z:=(a/c*b/d)-((a*b-c)/c*d); 

writeln('ответ= ',z);

остальные точно также
только переменные и формулу меняеш.

воооот так надо. опять же пока не знаем какой там паскаль

demmax2004 пишет:

в принципе да, но у нас за такое хор оценку не поставили бы

почему ???

нет дружелюбности 😀  😀