Ли отчет 3


СПЕЦИАЛЬНАЯ ЧАСТЬ

Лист

Изм

Лист

№ докум

Подпись

Дата

2.3 Постановка задачи № 3

Дано целое нечетное число N (> 0). Вывести сумму 1 + 3 + 5+… + N

2.3.1 Таблица Идентификаторов

Таблица 3 –Таблица идентификаторов

Переменная

Назначение

Тип

I,

Ввод

Integer

S,n

Вывод

Integer

2.3.2 Блок схема

Not i mod2=1

i:= 1 to n do

Конец

S:=s +i

Ошибка

Начало

n

Not n mod2=0

S:=0



2.3.3 Листинг программы

procedure TForm1.Button1Click(Sender: TObject);

var

s,k,n:Integer;

begin

n:=StrToInt(Edit1.Text);

s:=0;

k:=1;

while k<=n do

begin

s:=s+k;

k:=k+2;

end;

label1.caption:=Inttostr(s);

end;

end.

2.3.4 Контрольный пример




Предыдущий:

Следующий: