Составление простейших программ.

Составление простейших программ в Pascalявляются такие как подсчет различных букв в слове,перестановка букв в слове, подсчет суммы одномерного массива, подсчет суммыдвумерного массива, решения уравнения и тд.

Пример.Подсчет суммы элементов одномерного массива.

Program n8;

var a:array[1..10] of integer;

s:longint;

i:integer;

begin

writeln('введите 10 элементовмассива');

s:=0;

for i:=1 to 10 do begin

readln(a[i]);

s:=s+a[i];

end;

writeln('Сумма элементов массива = ', s);

end.

Любая программа начинается с слова program.

Var- описания переменных.

a:array[1..10]- одномерный массив.

Begin-начало основной программы.

Writeln-вывод текста.

Readln-ввод текста

s:=0-счетчик.

For-цикл.

End-конец.

Условный оператор

Условный оператор в Паскале — if — служит для организации хода задачи таким образом, при котором изменяется последовательность выполнения операторов в зависимости от какого-либо логического условия. Логическое условие может принимать одно из двух значений: либо true (истина), либо false (ложь), соответственно, оно может быть либо истинным, либо ложным.

Program pp;

var a,b,c,s,i: integer;

k: boolean;

Begin

writeln('Введите a и b');

readln(a,b);

c:=a;

while c<=b do

Begin

k:=true;

for i:=2 to c-1 do

if c mod i = 0 then k:=false;

if k=true then writeln(c);

c:=c+1;

end;

end.

3.Оператор варианта

Оператор case в Паскале используется в тех случаях, когда в зависимости от значения какой-либо переменной нужно выполнить те или иные действия (простые или составные операторы).Если вариантов всего два, то можно обойтись и условным оператором IF, с которым мы уже знакомы. Но если их, к примеру, десять, то использовать конструкцию if then else в pascal становится совсем нецелесообразно. В этом случае оптимален оператор CASE варианта.

Пример.

var otmetka: integer;

begin writeln('otmetka?');readln(otmetka); if (otmetka=1) or (otmetka=2) then writeln('koshmar!') elseif otmetka=3 then writeln('ploho') elseif otmetka=4 then writeln('neploho') elseif otmetka=5 then writeln('otlichno!') else writeln('takih otmetok ne bivaet'); end.

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

while — это цикл, в котором условие стоит перед телом. Причем тело цикла выполняется тогда и только тогда, когда условие true; как только условие становится false, выполнение цикла прекращается.

Данный цикл подходит только для одного оператора, если же вы хотите использовать несколько операторов в своем коде, вам следует заключить их в операторные скобки — begin и end;.

Repeat — это цикл, в котором условие стоит после тела. Причем оно выполняется тогда и только тогда, когда результат условия false;как только логическое выражение становится true, выполнение цикла прекращается.

For — это цикл, в котором тело выполняется заданное количество раз.

Пример.

Var

i: integer;

Begin

i:= 0;

Repeat

i:= i + 1;

until i > 10;

End.

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

Repeat — полная противоположность while. Repeat — это цикл, в котором условие стоит после тела. Причем оно выполняется тогда и только тогда, когда результат условия false; как только логическое выражение становится true, выполнение цикла прекращается.

program ex;

var i, N: integer;

Begin

i:= 1;

readln(N);

Repeat

write(i, ' ');

Inc(i);

until i = N + 1;

end.

Циклы с параметром

For — это цикл, в котором тело выполняется заданное количество раз.

Пример. Таблица умножения на 7

Var i: byte;

Begin

for i:=1 to 10 do

writeln('7 × ', i,' = ',7* i);

readln

end.

Подсчет суммы первых 1000 натуральных чисел.

var i, sum: integer;

Begin

sum:= 0;

for i:= 1 to 1000 do

sum:= sum + i;

writeln('Результат: ', sum);

readln

end.

Одномерные и двумерные массивы

Массив – структура однотипных данных с индексированным доступом. Каждый элемент массива получает один или несколько номеров, называемых индексами. Индексы записываются в квадратных скобках через запятую.

Массивы бывают следующих видов:

1.Одномерные – каждый элемент массива получает два индекса (пр. [2,3]).

2. Многомерные – каждый элемент получает более 2-х индексов (пр. [1,1,k]).

Program Summ;

Var A,B: Array [1..10] of Integer;

Kolvo:Integer;

C: Array [1..10] of Integer;

i: Integer;

Begin

WriteLn ('введите количество элементов массивов');

ReadLn (Kolvo);

WriteLn ('введите элементы маcсива A');

For i:=1 to Kolvo do

Begin

Write(i, ') ');

ReadLn (A[i]);

end;

writeLn ('введитеэлементымаcсива B');

For i:=1 to Kolvo do

Begin

Write(i, ') ');

ReadLn (B[i]);

end;

For i:=1 to Kolvo do

C[i]:= A[i]+B[i];

For i:=1 to Kolvo do

Writeln (C[i]:5);

End.