|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
09.12.2008, 04:28 | #1 |
Регистрация: 08.12.2008
Сообщений: 9
|
Помогите сделать 3 задачи по паскаль. Завтро зачет, очень надо.
1).В массиве В20 элементов. Найти и напечатать: Увеличить положительные элементы на 2, отрицательные уменьшить на 1, а нулевые оставить без изменения.
2).Информация о среднесуточной температуре воздуха за месяц задана в виде массива. Определить, температура скольких дней была ниже среднемесячной. 3).Дано натуральное число n и вещественное число а. Вычислить и напечатать без использования операции возведения в степень: sina+sina^2+...+sina^n. |
09.12.2008, 09:05 | #2 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
1
uses crt;
const Size=20; var a:array[1..Size] of integer; i,j:integer; begin clrscr; randomize; for i:=1 to Size do begin a[i]:= random(10)-5; write(a[i]:3) end; writeln; for i:=1 to Size do begin if a[i]>0 then a[i]:=a[i]+2 else if a[i]<0 then dec(a[i]); write(a[i]:3); end; end.
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
09.12.2008, 09:06 | #3 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
2
Код:
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
09.12.2008, 09:07 | #4 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
3
Если аргумент возводится в степень, то
Код:
Код:
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
ПАСКАЛЬ.помогите пожалуйста срочно сделать задачу, завтра зачет. | Absent | Помощь студентам | 14 | 15.06.2009 19:50 |
Помогите сделать 4 садачи по паскаль. Завтро зачет очень надо. | aleksandr_dss | Помощь студентам | 5 | 08.12.2008 13:50 |
Не очень понимаю задачи ,а завтра зачет | Екатерина А. | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 06.12.2008 00:50 |
Помогите сделать задчку, очень надо... | Horknee | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 04.12.2008 12:46 |
ПОМОГИТЕ ПОЖАЛУЙСТА РЕШИТЬ ЗАДАЧИ.. ОЧЕНЬ НАДО.. | unknown | Паскаль, Turbo Pascal, PascalABC.NET | 5 | 28.12.2006 14:02 |