Вопрос по информатике:
Помогите с заданием в Pascal
Задание Вычислить и вывести на экран значения двух переменных и составить блок схему
Необходимо дописать код или переделать и составить блок схему. Не могу понять, в чем ошибка
Program zad1;
Uses Crt;
var
x, y, S, g: Real;
begin
Writeln('Введите x,y');
Read(x, y);
S := 1 + x + sqr(x) / 1 * 2 + exp(ln(x)*3) / 1 * 2 * 3 + exp(ln(x)*4) / 1 * 2 * 3 * 4;
g:=(x)*(sin) * (sqr(x)) +(sqr(cos))+x;
Writeln('x= ', x:6:3, 'y= ', y:6:3);
end.
- 04.05.2018 15:03
- Информатика
- remove_red_eye 18338
- thumb_up 26
Ответы и объяснения 1
//Внимание! Если программа не работает, обновите версию!
begin
var (x,y):=readreal2('Введите x,y');
var S:=1+x+x*x/1*2+x**3/2*3+x**4/6*4;
var g:=x*sin(x**3)+cos(y)**2;
Writeln('s=',S:0:3,' ', 'y= ',g:0:3);
end.
Как в школе учат :->
Program zad1;
var
x, y, S, g: Real;
begin
Writeln('Введите x,y');
Read(x, y);
S:=1+x+x*x/1*2+x**3/2*3+x**4/6*4;
g:=x*sin(x**3)+cos(y)**2;
Writeln('s=',S:0:3,' ', 'y= ',g:0:3);
end.
- 05.05.2018 10:16
- thumb_up 49
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.