![](/img/CyberPedia.jpg)
Эмиссия газов от очистных сооружений канализации: В последние годы внимание мирового сообщества сосредоточено на экологических проблемах...
Таксономические единицы (категории) растений: Каждая система классификации состоит из определённых соподчиненных друг другу...
Топ:
Оснащения врачебно-сестринской бригады.
Организация стока поверхностных вод: Наибольшее количество влаги на земном шаре испаряется с поверхности морей и океанов...
Характеристика АТП и сварочно-жестяницкого участка: Транспорт в настоящее время является одной из важнейших отраслей народного хозяйства...
Интересное:
Искусственное повышение поверхности территории: Варианты искусственного повышения поверхности территории необходимо выбирать на основе анализа следующих характеристик защищаемой территории...
Как мы говорим и как мы слушаем: общение можно сравнить с огромным зонтиком, под которым скрыто все...
Берегоукрепление оползневых склонов: На прибрежных склонах основной причиной развития оползневых процессов является подмыв водами рек естественных склонов...
Дисциплины:
![]() |
![]() |
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.
|
|
Автоматическое растормаживание колес: Тормозные устройства колес предназначены для уменьшения длины пробега и улучшения маневрирования ВС при...
Наброски и зарисовки растений, плодов, цветов: Освоить конструктивное построение структуры дерева через зарисовки отдельных деревьев, группы деревьев...
История развития хранилищ для нефти: Первые склады нефти появились в XVII веке. Они представляли собой землянные ямы-амбара глубиной 4…5 м...
Археология об основании Рима: Новые раскопки проясняют и такой острый дискуссионный вопрос, как дата самого возникновения Рима...
© cyberpedia.su 2017-2024 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав. Мы поможем в написании вашей работы!