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

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

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

Выполнили: Данг Тхи Хоай Ань.ДЭФ-101

 

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

                       Москва 2010

Москва-2010

Оглавление 

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

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

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

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

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

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

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

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

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

Работа  состоит из трех частей:

Первая  часть «Организация разветвления алгоритма»

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

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

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

Вторая  часть «Организация циклических процессов»

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

Третья  часть «Постановка задачи на обработку экономической информации с использованием циклических процессов»

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

Первая  часть

«Организация  разветвления алгоритма» 

  Условный оператор  и его применение  для организации  ветвлений.

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

Оператор [If<1> theb<2>else<3>] проверяет истинность выражения <1>. В случае положительного ответа осуществляет операцию <2>, а если отрицательный ответ –операцию <3>. В случае отсутствуя оператора else при отрицательном ответе никакие действия не производятся. В случае , когда требуется выполнить несколько операторов. То они объединяются с помощью оператора [Begin<>End;].

Управление  ветвлениями с  помощью ветвления  Case.

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

Оператор

Case[<1> of

<2>:<3>;

<4>:<5>;…

[Else<N>; End:]

Сравнивает  выражение<1> с выражением <2>,<4>…  и в случае положительного результата осуществляет операторы <3>,<5>…  а в случае отрицательного – оператор <N>.Оператор Else может быть опущен. Разделы <2>,<3>…,<N> могут содержать в себе несколько операторов, в том числе операторы ветвления. 
 
 
 
 
 
 
 
 
 
 
 
 

Программный код

program znak zodiaka; 

{$APPTYPE CONSOLE} 

uses

  SysUtils;

  Var

  m,d:integer;

  zz:string;

  begin

  writeln('den rojdeniya');

  readln(d);

  writeln('mesyac rojdeniya');

  readln(m);

  case m of

  1: if(d>=1)or (d<=20) then zz:='Kozerog'

  else zz:='Vodolej';

  2:if (d>=1) or (d<=18) then zz:='Vodolej'

  else zz:='Ribi';

  3: if (d>=1) or (d<=20) then zz:='Ribi'

  else zz:='Oven';

  4: if (d>=1) or (d<=20) then zz:='Oven'

  else zz:='Telec';

  5: if (d>=1) or (d<=21) then zz:='Telec'

  else  zz:='Blizneci';

  6: if (d>=1) or (d<=21) then zz:='Blizneci'

  else zz:='Rak';

  7: if (d>=1) or (d<=22) then zz:='Rak'

  else zz:='Lev';

  8: if (d>=1) or (d<=23) then zz:='Lev'

  else zz:='Deva';

  9: if (d>=1) or (d<=22) then zz:='Deva'

  else zz:='Vesi';

  10: if (d>=1) or (d<=23) then zz:='Vesi'

  else zz:='Scorpion';

  11: if (d>=1) or (d<=22) then zz:='Scorpion'

  else zz:='Strelec';

  12: if (d>=1) or (d<=21) then zz:='Strelec'

  else zz:='Kozerog';

  else zz:='mistake number';

  end;

  writeln('znak zodiaka',zz);

  readln;

  end.

   
 

Выполнение 

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Вторая  часть . 

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

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

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

1. Для организации  циклического процесса при известном числе повторений испольуется оператор [ For <управляющая переменная>:= <1> to <2> do <3>;] .

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

2. Для организации  циклов с неизвестным  числом повторений испльзуется оператор [ While <1> = <2> Do <3> ;]. Пока логическое условие истинно , выпольняется оператор , следующий после Do . Если ложно-выполняется оператор , следующий после завершения оператор  While (с его помощью можно органировать любой циклический процесс ). После завершения процесса усвоения материала выдается анализ работы с количеством ошибок.

 
 
 
 
 
 

Программный код

program PrjObych; 

{$APPTYPE CONSOLE} 

uses

  SysUtils;

  Var

  Answer:String;

  Mistake: Integer;

  FL: Boolean;

begin

FL:=False;

Mistake:=0;

While FL=False Do

Begin

Writeln('Kak zapisivaetsja');

Writeln('operacia logicheskogo otrisania');

Writeln('Var;End;Case');

Writeln('If; Begin,Not');

Writeln('Vvedite oboznachenie operacii');

Readln (Answer);

If (Answer ='Not') or (Answer='Not') 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)or (Mistake =2) then writeln('xorosho');

If (Mistake=3) or(Mistake=4) then writeln('ydovletv');

If Mistake>4 then writeln ('neyd');

Readln;

end. 
 
 
 
 
 
 
 
 

Выполнение 
 

 
 
 
 
 
 
 
 
 
 
 
 
 
 

Третья  часть

« Постановка задачи на обработку экономической информации с использованием циклических  процессов» 
 

Задание : Определить совершенное число или нет. 

Программный код

program chislo; 

{$APPTYPE CONSOLE} 

uses

  SysUtils;

  Var

  I,F,N,SUM:integer;

begin

  writeln('Vvedite shislo');

  Readln(N);

  SUM:=0;

  For I:=1 to N-1 do

If N mod I=0 then

SUM:=SUM+I;

If SUM =N then

writeln('Chislo sovershennoe')

else

writeln('Chislo ne sovershenoe');

readln;

end. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Выполнение