![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Новичок
Джуниор
Регистрация: 20.10.2010
Сообщений: 3
|
![]()
Нужно написать програму в PASCALе, а я не знаю как....... Помогите, пожалуйста.... Вот задание:
"Вывести на экран таблицу cos(x)+sіn^2(y) при изменении у от 0° до 90° с шагом 30° (вывод по горизонтале) и смене х от 0° до 180° с шагом 15° (вывод по вертикале). |
![]() |
![]() |
![]() |
#2 |
Made In USSR!
Старожил
Регистрация: 01.09.2010
Сообщений: 3,657
|
![]() Код:
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой" |
![]() |
![]() |
![]() |
#3 |
Новичок
Джуниор
Регистрация: 20.10.2010
Сообщений: 3
|
![]()
Чето оно не рабтает=(((((
![]() |
![]() |
![]() |
![]() |
#4 |
ТАМБОВСКИЙ ВОЛК.
Участник клуба
Регистрация: 16.03.2010
Сообщений: 1,354
|
![]()
а ты её допиши и она сразу заработает.
にんじゃ
![]() |
![]() |
![]() |
![]() |
#5 |
Новичок
Джуниор
Регистрация: 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. И с этого ничего не получилось=((( |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
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 |