Основные конструкции языка программирования

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

Министерство образования Российской Федерации

Московский государственный университет экономики,

статистики и информатики (МЭСИ)

Лабораторная работа №1

Тема: «Основные конструкции языка программирования»

Выполнили:

студенты группы ДЭМ-102

Арепьев Александр

Ракова Алёна

проверил: Смирнов А.А.

Москва 2010 год



Оглавление

I. Организация разветвления организма

1. Описание конструкций языка, обеспечивающих ветвление

2. Условие задачи на разветвление

3. Распечатка программного кода

4. Распечатка результатов выполнения

II. Организация циклических процессов

1. Описание конструкций языка, обеспечивающих циклическую обработку информации

2. Условие задачи на организацию циклических процессов

3. Распечатка программного кода

4. Распечатка результатов выполнения

III. Постановка задач на обработку информации с использованием разветвленного алгоритма и циклических процессов

1. Описание условия задачи

2. Распечатка программного кода

3. Распечатка результатов выполнения

Используемая литература



I.Организация разветвления алгоритма

1. Описание конструкций языка, обеспечивающих ветвление

Для организации ветвления применяется условный оператор и Оператор Case. Уловный оператор If служит для организации процесса вычислений и зависимости от какого-либо логического условия. Оператор имеет вид:

If <условие> then <оператор_1> else<оператор_2>

В качестве условия должно использоваться логическое значение, представленное константой, переменной или выражением.

Если условие истинно, то выполняется оператор, следующий за словом then, но если же условие ложно, то будет выполняться оператор, следующий за словом else. Альтернативная ветвь else может отсутствовать, если в ней нет необходимости. В таком «усеченном» операторе в случае невыполнения условия ничего не происходит, и управление передается следующему оператору.

Когда необходимо разветвление на значительное число ветвей алгоритма, нецелесообразно использовать оператор case. Он необходим в тех случаях, когда в зависимости от значений какой-либо переменной надо выполнить те или иные операторы. Синтаксис условного оператора имеет следующий вид:

Case <селекторное значение>of

<значение_1>:<оператор_1>;

<значение_2>:<оператор_2>;

…

<значение_N>:<оператор_N>;

Else

<альтернативный_оператор>;

End;

Если значение переменной совпадает с заданным значением, выполняется заданная команда.

Конструкция else определяет команду, которую необходимо выполнить, если заданные значения не совпадают с имеющимися значениями селекторного выражения.

Ветви оператора case могут содержать команду case.

2. Условие задачи на разветвление алгоритма

Создать программный проект, обеспечивающий определение знака зодиака. Программный код должен обеспечить выполнение следующих действий:

Во-первых, ввод дня и месяца рождения.

Во-вторых, анализ введенной информации и выдачу на экран названиязнака зодиака, соответствующего дате рождения.

3. Распечатка программного кода:

Program ZnakZodiaka;

Var

D,M:Integer;

Begin

Writeln ('Vveditedenj i mesyacrozhdenia v formate (denj) (mesyac)');

Readln (D,M);

Case M Of

1: if D<20 then Writeln('Kozerog') Else Writeln('Vodolei');

2: if D<19 then Writeln('Vodolei') Else Writeln('Ryby');

3: if D<21 then Writeln('Ryby') Else Writeln('Oven');

4: if D<20 then Writeln('Oven') Else Writeln('Telec');

5: if D<21 then Writeln('Telec') Else Writeln('Bliznecy');

6: if D<22 then Writeln('Bliznecy') Else Writeln('Rak');

7: if D<23 then Writeln('Rak') Else Writeln('Lev');

8: if D<23 then Writeln('Lev') Else Writeln('Deva');

9: if D<23 then Writeln('Deva') Else Writeln('Vesy');

10: if D<23 then Writeln('Vesy') Else Writeln('Strelec');

11: if D<23 then Writeln('Strelec') Else Writeln('Skorpion');

12: if D<22 then Writeln('Skorpion') Else Writeln('Kozerog');

Else Writeln('Mistake');

End;

Readln;

End.

4.Распечатка результатов выполнения



II. Организация циклических процессов

1.Описание конструкций языка, обеспечивающих циклическую обработку информации

Когда какая-либо группа операторов должна выполняться многократно, требуется организовать циклический процесс.

Для этого существует две разновидности оператора цикла.

Для организации циклов с неизвестным числом повторений используется оператор While. Обращение к этому оператору выглядит так:

While <логическое выражение>do

<оператор>:

Оператор, следующий после служебного слова Do, будет выполняться циклически, пока логическое условие истинно. Если условие ложно, то выполняется оператор, следующий после завершения оператора While. Оператор While является канонической конструкцией, то есть с его помощью можно организовать любой циклический процесс.

Для организации циклического процесса при известном числе повторений используется оператор For. Структура For имеет вид:

For<управляющая переменная>:<выражение1>To

<выражение2>Do<оператор>:

Оператор, указанный после слова Do выполняется для каждого заданного значения управляющей переменной. Переменная, задаваемая после слова For, называется переменной цикла, представляет собой целое число. Первоначально управляющей переменной присваивается значение, определенное как <выражение1>. Выполнение завершается после того, как управляющая переменная достигнет значения, определенного как <выражение2>.

2.Условие задачи на организацию циклических процессов

Требуетсяразработать обучающую программу, для любой предметной области. Предметная область должна содержать не менее трех обучаемых понятий. Для каждого из отобранных понятий предусмотреть несколько вариантов ответа. Предлагаемые варианты обучаемых понятий должны выдаваться на экран циклически, до получения правильного ответа. Предусмотреть подсчет числа ошибочных ответов и проставление оценки.

3.Распечатка программного кода

Program PrjObuch;

Var

Answer:String;

Mistake:Integer;

FL:Boolean;

Begin

FL:=False;

Mistake:=0;

While FL= False Do

Begin

Writeln ('Skolkibaitam raven 1 Megabait');

Writeln ('variantyotvetov');

Writeln ('1000; 1024; 1000000; 8; 32; 64');

Writeln ('Vveditepravilnyyotvet');

Readln (Answer);

If (Answer = '1024')

Then

Begin

Writeln ('Otvetveren');

FL:=True;

End

Else

Begin

Writeln ('otvetneveren');

Mistake:=Mistake+1;

End;

End;

FL:=False;

While FL= False Do

Begin

Writeln ('Skolkimegabaitam raven 1 Terabait');

Writeln ('variantyotvetov');

Writeln ('1024; 1048576; 32; 2048576; 1000000; 8');

Writeln ('Vveditepravilnyyotvet');

Readln (Answer);

If (Answer = '1048576')

Then

Begin

Writeln ('Otvetveren');

FL:=True;

End

Else

Begin

Writeln ('otvetneveren');

Mistake:=Mistake+1;

End;

End;

FL:=False;

While FL= False Do

Begin

Writeln ('Skolikikilobaitam raven 1 Megabit');

Writeln ('variantyotvetov');

Writeln ('1024; 32; 256; 512; 100; 128');

Writeln ('Vveditepravilnyyotvet');

Readln (Answer);

If (Answer = '128')

Then

Begin

Writeln ('Otvetveren');

FL:=True;

End

Else

Begin

Writeln ('otvetneveren');

Mistake:=Mistake+1;

End;

End;

Writeln ('kolichestvooshibok', Mistake);

IF Mistake=0 then Writeln ('Otlichno');

IF (Mistake=1) or (Mistake=2) then Writeln('Horosho');

IF (Mistake=3) or (Mistake=4) then Writeln('udv');

IF Mistake>4 then Writeln('neud');

Readln;

End.

End.



4. Распечатка результатов выполнения



III.Постановка задач на обработку информации с использованием разветвленного алгоритма и циклических процессов

1.Описание условия задачи

Разработать программу, предполагающую ввод последовательности вещественных чисел до появления 0 (0 - признак конца последовательности). Требуется рассчитать и вывести на экран среднее арифметическое данной последовательности чисел.

2.Распечатка программного кода

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

ProgramSr_arifm;

Var X,S: Real; N:Integer;

Begin

N:=1; S:=0;

write ('Vvedite ',N,'-e chislo (0 - konecposledovatelnosti) :');

readln (X);

while x<>0

Do

Begin

S:=S+X; N:=N+1;

write ('Vvedite ',N,'-e chislo (0 - konecposledovatelnosti) :');

readln (X);

end;

if N<>1

thenwriteln ('Sredneearifmeticheskoe = ',S/ (N-1):8:2)

elsewriteln ('Sredneearifmeticheskoe = ',0);

readln;

end.

3. Распечатка результата выполнения



Используемая литература

1) Васильев В.В. Хливненко Л.В. "Практикум. Язык программирования Паскаль. Ветвления и циклы"

2) Комлева Н.В., Смирнов А.А., Хрипков Д.В., Информатика и программирование, - М, центр ЕОАИ, 2008

Размещено на Allbest.ru