![](/user_photo/2706_HbeT2.jpg)
- •Оглавление
- •Организация разветвления алгоритма.
- •1. Описание конструкций языка, обеспечивающих ветвление.
- •2. Условие задачи на разветвление.
- •3.Распечатка программного кода.
- •4. Распечатка результатов выполнения.
- •Организация циклических процессов.
- •Описание конструкций языка, обеспечивающих циклическую обработку информации.
- •2.Условие задачи на организацию циклических процессов.
- •3.Распечатка программного кода.
- •Распечатка результатов выполнения.
- •Используемая литература.
3.Распечатка программного кода.
program Project2;
var
month,day:Integer;
znak:string;
begin
Writeln ('vvedite nomer mesyatca i dnya rojdeniya');
Readln (month,day);
begin
if (((month=12) and (day>=22)) or ((month=1)and (day<20))) then
znak:='Kozerog';
if (((month=1) and (day>=21)) or ((month=2)and (day<19))) then
znak:='Vodoley';
if (((month=2) and (day>=20)) or ((month=3)and (day<20))) then
znak:='Ribi';
if (((month=3) and (day>=21)) or ((month=4)and (day<20))) then
znak:='Oven';
if (((month=4) and (day>=21)) or ((month=5)and (day<21))) then
znak:='Telec';
if (((month=5) and (day>=22)) or ((month=6)and (day<21))) then
znak:='Blizneci';
if (((month=6) and (day>=22)) or ((month=7)and (day<22))) then
znak:='Rak';
if (((month=7) and (day>=23)) or ((month=8)and (day<23))) then
znak:='Lev';
if (((month=8) and (day>=24)) or ((month=9)and (day<23))) then
znak:='Deva';
if (((month=9) and (day>=24)) or ((month=10)and (day<23))) then
znak:='Vesi';
if (((month=10) and (day>=24)) or ((month=11)and (day<22))) then
znak:='Scorpion';
if (((month=11) and (day>=23)) or ((month=12)and (day<21))) then
znak:='Strelec';
Writeln ('znak zodiaka-',znak);
Readln;
end;
end.
4. Распечатка результатов выполнения.
Организация циклических процессов.
Описание конструкций языка, обеспечивающих циклическую обработку информации.
Когда какая-либо группа операторов должна выполняться неоднократно, требуется организовать циклический процесс. Для этого существует две разновидности операторов цикла.
Для организации циклов с неизвестным числом повторений используется оператор While. Обращение к этому оператору переводится как «пока…делать» и выглядит так:
While <логическое выражение>do
<оператор>;
Оператор, следующий после служебного слова do, будет выполняться циклически, пока логическое условие истинно. Если условие ложно, то выполняется оператор, следующий после завершения оператора while. Оператор while является канонической конструкцией, то есть с его помощью можно организовать любой циклический процесс.
Для организации циклического процесса при известном числе повторений используется оператор For.Структура For имеет вид:
For <управляющая переменная> :=< выражение1>To
<выражение2>Do<оператор>;
Оператор, указанный после слова Do выполняется для каждого заданного значения управляющей переменной. Переменная, задаваемая после слова For, называется переменной цикла, представляет собой целое число. Первоначально управляющей переменной присваивается значение, определённое как <выражение1>. Выполнение завершается после того, как управляющая переменная достигнет значения, определённого как <выражение2>.
2.Условие задачи на организацию циклических процессов.
Требуется разработать обучающую программу для любой предметной области.
Предметная область должна содержать не менее трёх обучаемых понятий. Для каждого из отобранных понятий предусмотреть несколько вариантов ответа. Предлагаемые варианты обучаемых понятий должны выдаваться на экран циклически до получения правильного ответа. Предусмотреть подсчёт числа ошибочных ответов и проставление оценки.