Реферат: Программирование на языке высокого уровня 2

Edit3.Clear;

Edit4.Clear;

Edit5.Clear;

a1:=StrToInt(Edit6.Text);

sum:=0;

k:=0;

For i:=1 to n do

if (i mod 2<>0) then sum:=sum+a[i];

If CheckBox1.Checked then Edit3.Text:=IntToStr(sum);

For i:= 1 to n do begin

if (a[i]>a1) and (a[i] mod 5=0) then k:=k+1;

end;

if CheckBox2.Checked then Edit4.Text:=IntToStr(k);

l:=0;

for i:=n downto 1 do begin

if (a[i]<0) and (abs(a[i]) mod 5 = 2) then l:=i;

end;

If CheckBox3.Checked then Edit5.Text:=IntToStr(l);

end;

3.5 Экранная форма программы

Рисунок 7. Результат выполнения программы

Список использованной литературы

1. http://wiki.lazarus.freepascal.org - Lazarus wiki энциклопедияпо Free Pascal Compiler/Lazarus

2. http://lazarus.freepascal.org - Официальный сайт проекта Lazarus

3. Бобровский С.И.,lazarus. Учебный курс (пособие для самообразования), 2005г.

4. Информатика: Учебник для вузов.- / Под ред. С.В. Симоновича. – СПб.: Питер, 2008.