|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
26.05.2010, 00:38 | #1 |
Пользователь
Регистрация: 19.05.2010
Сообщений: 22
|
ошибка где-то.
var
Sum: real; i, k, n: byte; a: array [1..30] of real; b: array [1..30] of real; function Pow(P: real; const s: byte): real; var i: byte; Sp: real; begin Sp:=1; for i:=1 to n do Sp:=Sp*P; Pow:=Sp; end; begin readln(n); for i:=1 to n do readln(a[i]); for i:=1 to n do begin Sum:=cos(a[i]); for k:=2 to n do Sum:=Sum + Pow(cos(i),k); b[i]:=Sum; end; for i:=1 to n do writeln(b[i]:1:3); readln; end. |
26.05.2010, 00:41 | #2 |
Пользователь
Регистрация: 19.05.2010
Сообщений: 22
|
исходное задание
Дан одномерный массив А размера n(n<=30).получить новый массив В,каждый элемент которого вычисляется по формуле bi=cosai+cos^2i+cos^3i+..+cosa^ni (формула словами:б итое равно косинус а итого+косинус квадрат и+косинус куб и.......и так далее) среда-Турбо Паскаль |
26.05.2010, 07:51 | #3 |
А может и не...
Участник клуба
Регистрация: 27.03.2010
Сообщений: 1,269
|
Обратись к автору этого шедевра!!!
Перемешивай дело с бездельем и не сойдешь с ума...
|
26.05.2010, 20:21 | #4 |
Форумчанин
Регистрация: 05.04.2010
Сообщений: 410
|
Ольга123456 что за ошибку выдает?
ICQ: 593-013-807
|
26.05.2010, 20:42 | #5 |
Пользователь
Регистрация: 19.05.2010
Сообщений: 22
|
Don Karleone,я уже не помню.С процедурой что-то не то.Попробуйте,пожалуйста,запустить.
|
26.05.2010, 20:43 | #6 |
Пользователь
Регистрация: 19.05.2010
Сообщений: 22
|
Grag,выйдите на связь!
|
27.05.2010, 00:21 | #7 |
Форумчанин
Регистрация: 05.04.2010
Сообщений: 410
|
в функции Pow в цикле for вместо n поставьте s. Я запускал, у меня все работает.
ICQ: 593-013-807
|
27.05.2010, 21:43 | #8 |
Пользователь
Регистрация: 19.05.2010
Сообщений: 22
|
И правильно работает?
|
27.05.2010, 22:27 | #9 |
Форумчанин
Регистрация: 05.04.2010
Сообщений: 410
|
В аську стучимся 593013807 и все правильно заработает.
ICQ: 593-013-807
|
30.05.2010, 14:17 | #10 |
Пользователь
Регистрация: 19.05.2010
Сообщений: 22
|
Да,заработало.А почему там надо было сделать такие попровки?
У меня нет аськи.Есть только агент,там меня можно найти по почте Olgapo4ta@mail.ru |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Где ошибка? | T-dayne | Помощь студентам | 2 | 10.02.2010 16:52 |
Где ошибка: | Egik_net | Microsoft Office Access | 6 | 26.10.2009 00:43 |
где ошибка? | Prophet23 | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 20.05.2009 23:20 |
Где ошибка? | [Smarik] | Общие вопросы Delphi | 5 | 01.04.2008 09:56 |