![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 17.05.2009
Сообщений: 6
|
![]()
Помогите с задачей на Паскаль! Хотя бы алгоритм работы !
C помощью оператора For!! Дано вещественное число A и целое число N (> 0). Вывести 1 - A + A2 - A3 +..+ (-1)NAN. А то я даже не представляю че делать.. спасибо |
![]() |
![]() |
![]() |
#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. |
![]() |
![]() |
![]() |
#3 |
Участник клуба
Регистрация: 16.03.2009
Сообщений: 1,013
|
![]()
я так понимаю это A^2,...,A^N... надо еще в степень возводить в цикле..
Uguu~
|
![]() |
![]() |
![]() |
#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. |
![]() |
![]() |
![]() |
#5 |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,543
|
![]() Код:
программа — запись алгоритма на языке понятном транслятору
Последний раз редактировалось 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 |