- •Оглавление
- •Организация разветвления алгоритма.
- •1. Описание конструкций языка, обеспечивающих ветвление.
- •2. Условие задачи на разветвление.
- •3.Распечатка программного кода.
- •4. Распечатка результатов выполнения.
- •Организация циклических процессов.
- •Описание конструкций языка, обеспечивающих циклическую обработку информации.
- •2.Условие задачи на организацию циклических процессов.
- •3.Распечатка программного кода.
- •Распечатка результатов выполнения.
- •Используемая литература.
3.Распечатка программного кода.
program Project2;
var
Answer:String;
Mistake:Integer;
FL:Boolean;
begin
FL:=False;
mistake:=0;
while FL=False do
begin
writeln ('Chempion mira po futbolu 2006');
Writeln ('Italia, Phrancia,Germania’);
Writeln ('vvedite otvet');
Readln (Answer);
If (Answer=' Italia') or (Answer='Italia')then
begin
Writeln ('otvet veren');
FL:=True;
end
else
begin
writeln ('otvet ne veren');
Mistake:=Mistake+1;
end;
end;
FL:=False;
while FL=False do
begin
Writeln ('Luvhii igrok mira 2008');
Writeln ('C.Ronaldo, Mesi, Kaka ');
Writeln ('vvedite otvet');
Readln (answer);
if (Answer= 'C.Ronaldo') or (answer='C.Ronaldo') then
begin
Writeln ('otvet veren');
FL:=True;
end
else
begin
Writeln ('otvet ne veren');
mistake:=mistake+1;
end;
end;
begin
Writeln ('Luchii vratar Rossii 2008');
Writeln ('Akinfeev, Malafeev,Gabulov');
Writeln ('vvedite otvet');
Readln (answer);
if (Answer='Akinfeev')or (answer='Akinfeev') then
begin
Writeln ('otvet veren');
FL:=True;
end
else
begin
Writeln ('otvet ne veren');
mistake:=mistake+1;
end;
end;
Writeln ('kolichestvo oshibok=',Mistake);
if Mistake=0 then Writeln ('Otlichno');
if Mistake=1 then Writeln ('Horosho');
if Mistake=3 then Writeln ('Udovletvoritelno');
if Mistake>4 then Writeln ('Ne udovletvoritelno');
Readln;
end.
4. Распечатка результатов выполнения.
Постановка задач на обработку информации с использованием разветвлённого алгоритма и циклических процессов.
1.Описание условия задачи.
Ввести элементы одномерного массива, определить сумму элементов, кратных 3.
2.Распечатка программного кода.
program Project2;
type
TA=array[1..30] of Integer;
var
A:TA;
I,N,S:Integer;
begin
Writeln ('Vvedite kolichestvo elementov massiva');
Readln (N);
Writeln ('Vvedite elementi');
for I:=1 to N do
read (A[I]);
S:=0;
for I:=1 to N do
if A[I] mod 3=0 then
S:=S+A[I];
Writeln ('Summa=',S);
Readln;
Readln;
end.
Распечатка результатов выполнения.
Используемая литература.
Комлева Н.В., Смирнов А.А., Информатика и программирование,- М, центр ЕОАИ, 2008, 94 с.
Алексеев Е.Р., Турбо Паскаль 7.0,-М., НТ Пресс, 2006, 272 с.