Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.10.2010, 21:22   #1
Onotole
Новичок
Джуниор
 
Регистрация: 20.10.2010
Сообщений: 3
По умолчанию Pascal=((((

Нужно написать програму в PASCALе, а я не знаю как....... Помогите, пожалуйста.... Вот задание:
"Вывести на экран таблицу cos(x)+sіn^2(y) при изменении у от 0° до 90° с шагом 30° (вывод по горизонтале) и смене х от 0° до 180° с шагом 15° (вывод по вертикале).
Onotole вне форума Ответить с цитированием
Старый 20.10.2010, 21:28   #2
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Код:
x:=0;
while y<=pi/2 do
begin 
x:=0;
while x<=pi do
writeln('x=',x*180/pi:6:2,'y=',y*180/pi:6:2,' f=',cos(x)+sqr(sin(y)):6:2 );
x:=x+pi/12;
end;
y:=y+pi/6;
end;
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Старый 21.10.2010, 22:53   #3
Onotole
Новичок
Джуниор
 
Регистрация: 20.10.2010
Сообщений: 3
По умолчанию

Чето оно не рабтает=(((((
Onotole вне форума Ответить с цитированием
Старый 21.10.2010, 22:59   #4
ROMA2PVT
ТАМБОВСКИЙ ВОЛК.
Участник клуба
 
Аватар для ROMA2PVT
 
Регистрация: 16.03.2010
Сообщений: 1,354
По умолчанию

а ты её допиши и она сразу заработает.
にんじゃ
ROMA2PVT вне форума Ответить с цитированием
Старый 21.10.2010, 23:15   #5
Onotole
Новичок
Джуниор
 
Регистрация: 20.10.2010
Сообщений: 3
По умолчанию

В том то и дело, что Я не знаю как это зделать=(((
Я дописал так:
var x,y,f:real;
begin
x:=0;
while y<=pi/2 do
begin
x:=0;
while x<=pi do
writeln('x=',x*180/pi:6:2,'y=',y*180/pi:6:2,' f=',cos(x)+sqr(sin(y)):6:2 );
x:=x+pi/12;
end;
y:=y+pi/6;
end;
readln;
END.
И с этого ничего не получилось=(((
Onotole вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Turbo Pascal or Pascal ABC Ikram Паскаль, Turbo Pascal, PascalABC.NET 0 27.04.2010 13:44
Pascal (while) MsJane Помощь студентам 1 25.12.2009 18:58
а free pascal не читает задачи которые написаны на turbo pascal? demonara Паскаль, Turbo Pascal, PascalABC.NET 3 25.05.2009 16:28
Перевод кода из Pascal в Object Pascal zemskov77 Общие вопросы Delphi 1 03.01.2009 09:37