Автор: Пользователь скрыл имя, 12 Ноября 2011 в 22:33, лабораторная работа
Для организации ветвления применяются условный оператор и оператор Case.
Условный оператор if служит для организации процесса вычислений в зависимости от какого-либо логического условия.
I. Организация разветвления алгоритма.
1.Описание конструкций языка обеспечивающих ветвление.
2.Условие задачи на разветвление.
3.Распечатка программного кода.
4.Распечатка результатов выполнения.
II. Организация циклических процессов.
1.Описание конструкций языка, обеспечивающих циклическую обработку информации.
2.Условие задачи на организацию циклических процессов.
3.Распечатка программного кода.
4.Распечатка результатов выполнения.
III. Постановка задач на обработку информации с использованием разветвлённого алгоритма и циклических процессов.
1.Описание условия задачи.
2. Распечатка программного кода.
3.Распечатка результатов выполнения.
IV. Используемая литература.
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.
Ввести
элементы одномерного массива, определить
сумму элементов, кратных 3.
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
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.
Информация о работе Основные конструкции языка программирования