История создания датчика движения: Первый прибор для обнаружения движения был изобретен немецким физиком Генрихом Герцем...
Состав сооружений: решетки и песколовки: Решетки – это первое устройство в схеме очистных сооружений. Они представляют...
Топ:
Эволюция кровеносной системы позвоночных животных: Биологическая эволюция – необратимый процесс исторического развития живой природы...
Определение места расположения распределительного центра: Фирма реализует продукцию на рынках сбыта и имеет постоянных поставщиков в разных регионах. Увеличение объема продаж...
Установка замедленного коксования: Чем выше температура и ниже давление, тем место разрыва углеродной цепи всё больше смещается к её концу и значительно возрастает...
Интересное:
Отражение на счетах бухгалтерского учета процесса приобретения: Процесс заготовления представляет систему экономических событий, включающих приобретение организацией у поставщиков сырья...
Финансовый рынок и его значение в управлении денежными потоками на современном этапе: любому предприятию для расширения производства и увеличения прибыли нужны...
Аура как энергетическое поле: многослойную ауру человека можно представить себе подобным...
Дисциплины:
2018-01-13 | 294 |
5.00
из
|
Заказать работу |
Составление простейших программ в 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.
Семя – орган полового размножения и расселения растений: наружи у семян имеется плотный покров – кожура...
Типы оградительных сооружений в морском порту: По расположению оградительных сооружений в плане различают волноломы, обе оконечности...
Опора деревянной одностоечной и способы укрепление угловых опор: Опоры ВЛ - конструкции, предназначенные для поддерживания проводов на необходимой высоте над землей, водой...
Архитектура электронного правительства: Единая архитектура – это методологический подход при создании системы управления государства, который строится...
© cyberpedia.su 2017-2024 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав. Мы поможем в написании вашей работы!