Типы Данных:

 

Оператор присваивания

 

Оператор присваивания в Паскале выглядит так:

s:= 0 Теперь представим другую форму: s:=a+b   Еще иногда используют другую вариацию: s:=s+1

s:=0 - это т.н. "счетчик" - нужен для обнуления переменной s:=a+b - здесь переменная s выступает как суммарное значение a и b   s:=s+1 - s является счетчик, каждый раз добавляющий к своему значению +1. Применяется вкупе с циклом. Например: s:=0;                                                           for i:=1 to 3 do;                                          s:=s+1;                                                         write(s);                                                         ---------Обнуление s обязательно!-------

 

Массив - множество данных одинаковой природы.

Например: F: array of [1..10] of integer (десять целых чисел) -еще один- H: array of [1..100] of string (сто строковых величин).

В качестве примера приведу программу, вычисляющую квадраты ста чисел.

Program preved;

  Var

  i:integer;

  d: array of [1..100] of integer;

begin

  for i:=1 to 100 do

  begin

         d[i]:=i*i;

         write(d[i]);

  end;

readln;

end.

Массивы могут быть многомерными, например, двумерными:

F: array of [1..10,1..100] of integer;                 Здесь объявлен массив в 10 по 100 целых чисел.

Оператор Case

Пусть две величины Q и U могут принимать только три значения, причем эти величины взаимосвязаны, т.е. величина U принимает свои значения в зависимости от того, какое значение принимает величина Q. Предположим, что взаимосвязь устанавливается следующим образом: при Q=1 U=4; при Q=4 U=-5; при Q=0 U=11. Предположим, что величина Q вводится с клавиатуры, а величина U вычисляется в зависимости от введенного Q. Решение:

Program MyFirstProgram;

 Var

  U,Q:integer;

begin

  read(Q);

 case Q of

  1: U:=4;

  4: U:=-5;

  0: U:=11;

   end;      (данный end завершает выполнение case)

end.

Рассмотрим другую ситуацию. Взаимосвязь Q и U немного усложнилась. Старые значения связаны так же, как и раньше, но теперь Q может принимать любые значения, и, если Q принимает значение, отличное от уже описанных, то U=20. Опишем ситуацию с помощью оператора Case (или оператора выбора).

Program MyFirstProgram;

 Var

  U,Q:integer;

 begin

  read(Q);

 case Q of

 1: U:=4;

 4:  U:=-5;

 0:  U:=11;

 else U:=20;

  end;  (данный end завершает выполнение case)

end.

При исполнении этой конструкции, если Q примет значение, отличное от 1, 4, 0, то U примет значение 20. Возможна и такая структура оператора, при которой U будет принимать одно и то же значение при различных L. Приведем пример:

Program MyFirstProgram;

  Var

 U,Q:integer;

  begin

  read(Q);

 case Q of

 1, 5, 8: U:=4;

 4, 7: U:=5;

 0,3: U:=9;

 else U:=20;

 end;        (думаю, уже понятно что завершает данный end)))  )

end.

 

Оператор цикла

 

Пример: найти сумму N последовательных чисел. К примеру, следующего ряда: 1+2+3+...+N

Решение:

Алгоритм программы по сумме N чисел будет выглядеть: Ввести N S=0 Для всех I от 1 до N делать   Начало цикла   S=S+I   Конец цикла Вывести S

Program MyFirstProgram;   

Uses crt;

Var

n,s,i:integer;

begin             

read(n); 

s:=0;        

for i:=1 to n do                     

s:=s+i   

write(s);

readln;

end.

 

 

Ввод и вывод информации. Read/Write

         

Оператор Read

Предназначен для ввода информации. К примеру, Вам нужно ввести значение с клавиатуры.

Тогда фрагмент программы будет выглядеть следующим образом: 

Uses crt;        - этот оператор включает клавиатурный блок, для возможности ручного ввода числа.

Var                - активирует нижестоящий блок, в котором описываются типы переменных.

n:integer;         - n принимает тип integer.

read(n);           - теперь Вы вводите значение с клавиатуры.

 

 Оператор Write

Этот оператор предназначен для вывода информации. Как вы можете посмотреть, используется он в любой программе. (практически везде нужно показать результат операции) (смотрите Problems - это папка с решенными задачами и там показывается, как нужно использовать write.)

 

Выводить информацию можно двумя способами:

write(n)	в этом случае информация выводится на строке, на которой находится курсор
writeln(n)	ln- аналогично Enter. В данном случае курсор переходит на следующую строку и информация выводится уже там.

Аналогичная ситуация и для  read и readln

 

Решенные: вычислительные задачи

Задача 1.	Дано два числа. Напечатать число, большее их среднего арифметического.  Решение: Program Vi4isl; Var   a,s,d:real; begin   read(a,s) ;d:=(a+s) / 2;   if a>d then write (a);   if s>d then write (s); end.	Пояснения Все числа, используемые в программе, действительные(тип real). Величина d играет роль среднего арифметического.          ! Если Вам не понятен какой-то оператор, то посмотрите раздел Операторы !
Задача 2	Квадратное уравнение. Коэффициенты вводятся с клавиатуры. Вычислить его корни.  Решение: Program Vi4isl; Var x1, x2, a, b, c, d : real; begin  write ('Vvedite koefficenty yravneniya'); read (a,b,c);  d := b*b - 4*a*c;  if d<0 then write ('yravnenie korney ne imeet');  if d=0 then begin                   x1 := -b/2/a;                  write ('x=',x1);                  end; if d>0 then begin                  x1 := (-b+sqrt (d))/2/a; x2 := (-b-sqrt (d))/2/a;                  write ('x1=',x1, '  x2=',x2);                  end; end.	Пояснения Скорей всего, пояснения здесь излишни. Школьный курс математики за 8-ой класс )))
Задача 3	Дано два числа. Выянить, делится ли большее на меньшее нацело или нет. Какое из них большее, а какое меньшее - не известно.  Решение: Program Vi4isl; Var a,b:integer; begin read(a,b); if (a>=b) then   if a mod b=0 then write ('delitsa') else write (' ne dtlitsa');   else   if b mod a=0 then write ('delitsa') else write ('ne delitsa'); end.	Пояснения Так как не известно какое число большее, то программа рассматривает 2 ситуации: первую, когда b больше a, и вторую, когда а больше b. Операция mod находит остаток от деления. Числа делятся в том случае, когда остаток равен нулю.
Задача 4	Вычислить сумму и среднее арифметическое чисел.  Решение: Program Vi4isl; Var i,n: integer; a,s,f: real; begin read(n);s := 0; for i:=1 to n do begin   readln(a); s := s+a; end; f := s/n; writeln ('Summa =', s , '   Srednee arifmeticheskoe =' ,f); end.

Для перехода к графическим модулям нажмите СЮДА