|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.06.2009, 17:26 | #1 |
Регистрация: 17.05.2009
Сообщений: 6
|
Оператор For!!!
Помогите с задачей на Паскаль! Хотя бы алгоритм работы !
C помощью оператора For!! Дано вещественное число A и целое число N (> 0). Вывести 1 - A + A2 - A3 +..+ (-1)NAN. А то я даже не представляю че делать.. спасибо |
18.06.2009, 17:30 | #2 |
Форумчанин
Регистрация: 15.12.2007
Сообщений: 422
|
Вроде как-то так, катал прям тут, находу, так что не судите строго
var I, A, N, S: Integer; begin S := 0; Readln(A); Readln(N); for I := 1 to N do begin if I = 1 then S := 1 else begin if I mod 2 = 0 then S := S - A else S := S + A; end; end; end. |
18.06.2009, 17:32 | #3 |
Участник клуба
Регистрация: 16.03.2009
Сообщений: 1,013
|
я так понимаю это A^2,...,A^N... надо еще в степень возводить в цикле..
Uguu~
|
18.06.2009, 17:52 | #4 |
Форумчанин
Регистрация: 15.12.2007
Сообщений: 422
|
А ну да возможно, тогда :
var I, A, N, S: Integer; begin S := 0; Readln(A); Readln(N); for I := 1 to N do begin if I = 1 then S := 1 else begin if I mod 2 = 0 then S := S - Power(A, I) else S := S + Power(A, I); end; end; end. А если умножать то : var I, A, N, S: Integer; begin S := 0; Readln(A); Readln(N); for I := 1 to N do begin if I = 1 then S := 1 else begin if I mod 2 = 0 then S := S - A * I else S := S + A * I; end; end; end. |
18.06.2009, 18:31 | #5 |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,515
|
Код:
программа — запись алгоритма на языке понятном транслятору
Последний раз редактировалось evg_m; 18.06.2009 в 18:35. |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
оператор while | tim777777 | Помощь студентам | 3 | 09.03.2009 19:57 |
Оператор | Рітка-кулеметчиця | Помощь студентам | 1 | 02.02.2009 08:49 |
оператор >> в C++ | sum42 | Помощь студентам | 1 | 24.12.2008 17:27 |
Оператор цикла с предусловием While. Оператор цикла с пост условием Repeat | McMilin | Помощь студентам | 7 | 11.11.2007 14:10 |
Оператор WITH | Enko | Общие вопросы Delphi | 1 | 20.09.2007 20:36 |