Основные конструкции языка программирования
Автор: Пользователь скрыл имя, 12 Ноября 2011 в 22:33, лабораторная работа
Описание работы
Для организации ветвления применяются условный оператор и оператор Case.
Условный оператор if служит для организации процесса вычислений в зависимости от какого-либо логического условия.
Содержание
I. Организация разветвления алгоритма.
1.Описание конструкций языка обеспечивающих ветвление.
2.Условие задачи на разветвление.
3.Распечатка программного кода.
4.Распечатка результатов выполнения.
II. Организация циклических процессов.
1.Описание конструкций языка, обеспечивающих циклическую обработку информации.
2.Условие задачи на организацию циклических процессов.
3.Распечатка программного кода.
4.Распечатка результатов выполнения.
III. Постановка задач на обработку информации с использованием разветвлённого алгоритма и циклических процессов.
1.Описание условия задачи.
2. Распечатка программного кода.
3.Распечатка результатов выполнения.
IV. Используемая литература.
Работа содержит 1 файл
Lab.1.doc
— 168.00 Кб (Скачать)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.
- Распечатка результатов выполнения.
- Используемая литература.
- Комлева Н.В., Смирнов А.А., Информатика и программирование,- М, центр ЕОАИ, 2008, 94 с.
- Алексеев Е.Р., Турбо Паскаль 7.0,-М., НТ Пресс, 2006, 272 с.