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

Составление простейших программ в 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 (ложь), соответственно, оно может быть либо истинным, либо ложным.

Programpp;

vara,b,c,s,i: integer;

k: boolean;

Begin

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

readln(a,b);

c:=a;

whilec<=b do

Begin

k:=true;

fori:=2 toc-1 do

ifc modi = 0 thenk:=false;

ifk=true thenwriteln(c);

c:=c+1;

end;

end.

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

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

Пример.

var otmetka:integer;

beginwriteln('otmetka?');readln(otmetka);if(otmetka=1)or(otmetka=2)thenwriteln('koshmar!')elseif otmetka=3thenwriteln('ploho')elseif otmetka=4thenwriteln('neploho')elseif otmetka=5thenwriteln('otlichno!')elsewriteln('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, выполнение цикла прекращается.

programex;

vari, N: integer;

Begin

i := 1;

readln(N);

Repeat

write(i, ' ');

Inc(i);

untili = N + 1;

end.

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

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

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

Vari:byte;

Begin

for i :=1to10do

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

readln

end.

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

vari, sum: integer;

Begin

sum := 0;

fori := 1 to1000 do

sum := sum + i;

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

readln

end.

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

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

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

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

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

ProgramSumm;

VarA,B :Array[1..10] ofInteger;

Kolvo:Integer;

C: Array[1..10] ofInteger;

i: Integer;

Begin

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

ReadLn (Kolvo);

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

Fori:=1 toKolvo do

Begin

Write(i, ') ');

ReadLn (A[i]);

end;

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

Fori:=1 toKolvo do

Begin

Write(i, ') ');

ReadLn (B[i]);

end;

Fori:=1 toKolvo do

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

Fori:=1 toKolvo do

Writeln (C[i]:5);

End.