Программирование на паскале

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

 
 
 
 

Оператор вывода  позволяет задать ширину поля  вывода :

В виде А:К, где А - выражение или строка, К - выражение либо константа целого типа.

Для величин  действительного типа элемент  списка вывода может иметь  вид А:К:М, где А - переменная или выражение действительного типа, К - ширина поля вывода, М - число цифр дробной части выводимого значения. К и М - выражения или константы целого типа.

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

Пример записи  операторов вывода:

var 

rA,  rB: Real;

iP,iQ:Integer;

bR,  bS: Boolean;

chT,  chV, chU, chW: Char;

WriteLn(rA,  rB:10:2);

WriteLn(iP,  iQ:8);

WriteLn(bR,  bS:8);

WriteLn(chT,  chV, chU, chW); 

 
 
 
 

Ветвящийся  алгоритм. Условный  оператор 

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

Пример

Program  my_prog;

Var

t:real;

Begin

                 writeln(‘введите средний балл’);

                 readln(t);

                 if t>=4 then writeln (‘Это успевающий студент’)

                 else

                writeln (‘Вы плохо успеваете, надо быть прилежнее’);

                readln;

End. 
 
 

 
 
 
 

Составной  оператор.        Begin  -  end;

Program  my_prog;

Var

t:real;

Begin

                 writeln(‘введите средний балл’);

                 readln(t);

                 if t>=4 then

                 begin

                                writeln (‘Вы успевающий студент’);

                                writeln (‘Вы заслуживаете поощрения’)

                end;

                 else

                begin

                 writeln (‘Вы плохо успеваете, надо быть прилежнее’);

                 writeln (‘Придется побеседовать с Вашими родителями’)

                end;

                readln;

End. 
 
 
 

 
 
 
 

Оператор  выбора 

Case  <переменная> of

<Значение>:<оператор>

<Значение>:<оператор>

<Значение>:<оператор>

……………….

Else

<>

End; 

Переменная  может   быть  целочисленной или  символьной.

 
 
 
 
 

Var

operation:Char;

x,y,z:real;

stop:Boolean;

……….

Case  operatoin of

‘+’: z:=x+y;

‘-’: z:=x-y;

‘*’: z:=x*y;

‘/’: z:=x/y;

Else

Stop:=true;

End;

 
 
 
 

Цикл  со счетчиком

For  <идентификатор  счетчика>=<начальное  значение> 

To  <конечное значение>  do <оператор,  обычно составной>. 

Var

Summa,  I:Integer;

Begin

             Summa:=0;

             For I:=1 to 10 do

             Summa:=summa+I;

             Writeln(‘Сумма= ’,summa);

             Readln;

End.    

 
 
 
 

Цикл  с предусловием 

While  <условие> do  <оператор или  составной оператор> 

begin

I:=1;

While  I<=10  do

Writeln(‘Значение  счетчика=’,I);

I:=I+1;

end. 
 
 
 
 

  

 
 
 
 

Цикл  с постусловием

Repeat <тело  цикла> Until <условие>.

Не требует  операторных скобок begin…end.

Задача: нахождение минимального  числа элементов  последовательности, сумма которых  превышает значение  предельной суммы.

Program  my1;

Var

sp,s,i,a:Integer;

begin

i:=0;s:=0;

Writeln(‘Введите  предельную сумму’);

Readln(sp);

Repeat

Write(‘Введите  элемент:’);

Readln(a);

s:=s+a;

i:=i+1

Until  s>sp;

Writeln(‘Число  элементов равно  ’,I);

end.