Консультация № 184398
07.11.2011, 14:56
51.74 руб.
07.11.2011, 15:52
0 3 1
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:

задача 1, программа на языке Turbo Pascal



Обсуждение

Неизвестный
07.11.2011, 15:29
общий
это ответ
Здравствуйте, Aleksandrkib!
Вот решение вашей задачи:



Приложение:

var
a,x,b:integer;
z,t,y:real;
begin
write('x=');
readln(x);
write('a=');
readln(a);
write('b=');
readln(b);
t:=(7*cos(y))/(a-3*b);
y:=ln(abs(sin(x+a*a)));
z:=cos(y/t);
writeln('y=',y);
writeln('z=',z);
writeln('t=',t);
end.
давно
Посетитель
317729
109
10.11.2011, 09:11
общий
Здравствуйте, kalim! Спасибо за решение. С задачей разобрался. Паскаль хоть уже давно, но изучал. И тут у меня возникло несколько вопросов:
1. Переменные z, t, y имеют вещественный тип real, понятно. Переменные a, x, b - целочисленный тип integer. Но мы же можем вместо a, x, b подставить и рациональные числа, например. То есть эти переменные тоже нужно определить типом real? В задаче ведь явно не оговорено, что a, x, b - целые числа. Или я что-то не понял?
2. Помню, перед end мы писали оператор пустого ввода readln. Набрав программу, понял, что и без него можно обойтись. Можно спросить, для чего тогда его прописывают? В некоторых книгах видел, что он есть.
Неизвестный
10.11.2011, 10:22
общий
Адресаты:
Здравствуйте, Aleksandrkib!

Вы правы, a, x, b могут быть рациональными числами, я могу ошибаться, но вроде в Паскале нельзя вводить именно рациональным числом. Этим переменным лучше определить вещественным типом(real).

Оператор Readln в конце программы позволяет задержать результат на экране до нажатия клавиiи Enter. Насколько мне помнится Turbo Pascal и так задерживает результат, поэтому я не стал его добавлять.

Еще хотел поправить вывод на экран, writeln('y=',y) добавив параметры вывода вот так например writeln('y=',y:7:4), где 7 определяет сколько цифр вывести на экран (считается вместе с запятой), а 4 это сколько цифр после запятой. Чтобы результат выглядел примерное так 17.1257 или 1.4571.
Удачи)
Форма ответа