Procedureswap(var s1:string; var s2:string) — КиберПедия 

Состав сооружений: решетки и песколовки: Решетки – это первое устройство в схеме очистных сооружений. Они представляют...

Эмиссия газов от очистных сооружений канализации: В последние годы внимание мирового сообщества сосредоточено на экологических проблемах...

Procedureswap(var s1:string; var s2:string)

2018-01-30 132
Procedureswap(var s1:string; var s2:string) 0.00 из 5.00 0 оценок
Заказать работу

Var b:string;

b:=s1;

s1:=s2;
s2:=b;

телопрограммы

vars1,s2:string;

begin
(тут мы расписывали типо до обмен после обмена чему равно s1 и s2 но самое главное procedureswap(s1;s2);)

присвоить s1 и s2 какие либо значения

writeln (вывести их до замены)

swap(s1;s2);

wrireln (вывести их после замены)

End.

34 Конструкцияif

Простой

If< условие>then<операторы>

Else<операторы>

сложный

If< условие>then<операторы>

ElseIf< условие>then<операторы>

Else … If<условие>then<операторы>

Else<операторы>

Пример

простой

Ifa>=btheng:=a-b

elseg:=b-a;

сложный(на примере сумма наибольших)

if(a>b) and c>bthen writeln(a+c)

ElseIf(b>a) and (c>a) thenwriteln(b+c)

Elsewriteln(a+b);

35 Конструкция case

Оператор выбора
case<выражение>of
значение 1:<оператор 1>;

значение 2:<оператор 2>;

значение 3:<оператор 3>;

……
значение n:<оператор n>;

Else <оператор>

End.

Пример

Program cas;

Varx:integer;

begin

Writeln(‘Введите числа от 1 до 5’);

Readln(x);

Case x of

1: Writeln(‘один’);
2: Writeln(‘два’);

3: Writeln(‘три’);

4: Writeln(‘четыре’);

5: Writeln(‘пять’)

Elsewriteln(‘не входит в интервал 1-5’);

End;

Readln;

End.

(еще пример с калькулятором у нас есть пример в практике)

36 КонструкцияFor

For<параметр цикла>:= <начальное значение>to<конечное значение>do< Тело цикла>;(так же можно использовать downtoесли идти от конечного значения к начальному)

Пример (вычисление факториала через цикл)

Program cikl;

Var

I,s,p:integer;

Begin

Writeln(‘Введитечислоs’);

Readln(s);

P:=1;

For i:=2 to s do

P:=p*i;

Writeln(p);

Readln;

End;

37 Конструкцияwhile(Пока)

While<условие>do<операторы>

Пример

Programprog;

Var

Sum,I,x:integer;

Sum:=0;

I:=0;

While i<10 do

Begin

Readln(x);

Sum:=sum+x;

I:=i+1;

End;

Readln;

End.

Массивы в паскале

одномерный

<переменная>:array[1..N] of<тип переменных>

Двумерный

<переменная>:array[1..N,1..N] of<тип индекса>

Примеродномерный

Program massiv;

Var

a:array[1..5] of integer;

I:integer;

Begin

Randomize;

For i:=1 to 5 do

Begin

a[i]:=random(30);

writeln(a[i]:3);

end;

readln;

end.

ПримерДвумерный

Program massiv;

Var

a:array[1..5,1..5] of integer;

i,j:integer;

Begin

Randomize;

For i:=1 to 5 do

begin

For j:=1 to 5 do

Begin

a[I,j]:=random(30);

writeln(a[I,j]:3);

end;

writeln;

end;

readln;

end.

39 Конструкцияrecord

Данные такого рода, описывающие существенные стороны того или иного объекта путем включения в описание нескольких, часто разнотипных, элементов, называют записью (record). В языке Паскаль запись определяется путем указания служебного слова record и перечисления входящих в запись элементов с указанием типов этих элементов.

Запись Паскаля – структурированный комбинированный тип данных, состоящий из фиксированного числа компонент (полей) разного типа.

Например, анкетные данные о студенте вуза могут быть представлены в виде информационной структуры

· Такая структура называется двухуровневым деревом. В Паскале эта информация может храниться в одной переменной типа record (запись). Задать тип можно следующим образом:

· type < имя _ типа >=record
<имя_поля1>: тип;
<имя_поля2>: тип;
………………….
<имя_поля K >: тип
end;

· где record – служебное слово, а <имя_типа> и <имя_поля> - правильные идентификаторы языка Паскаль.

Описание анкеты студента в Паскале будет выглядеть так:

· Type anketa=record
fio: string[45];
pol: char;
dat_r: string[8];
adres: string[50];
curs: 1..5;
grupp: string[3];
end;

  • Пусть нам необходимо заполнить сведения о студенте (Ф.И.О., дата рождения, адрес, курс и группа), а затем вывести эти сведения на экран.

    Пример программы c записью Паскаля
    program primer1;
    type anketa=record
    fio: string[45];
    dat_r: string[8];
    adres: string[50];
    curs: 1..5;
    grupp: string[3]
    end;
    var student: anketa;
    begin
    writeln ('введите сведения о студенте');
    {обратите внимание, ввод каждого поля осуществляется отдельно}
    writeln ('введите фамилию, имя и отчество');
    readln (student.fio);
    writeln ('введите дату рождения');
    readln (student.dat_r);
    writeln ('введите адрес');
    readln(student.adres);
    writeln ('введите курс');
    readln(student.curs);
    writeln ('введите группу');
    readln (student.grupp);
    writeln ('ввод закончен');
    writeln;
    {обратите внимание, что вывод записи осуществляется по полям}
    writeln ('фамилия студента: ', student. fio);
    writeln(' дата рождения: ', student.dat_r);
    writeln(' адрес: ', student.adres);
    writeln(' курс: ', student.curs);
    writeln(' группа: ', student.grupp);
    end.

40Созданиеновыхтиповпаскаль

type matr =array[1..10,1..50]ofinteger;

var a:matr;


Поделиться с друзьями:

Индивидуальные очистные сооружения: К классу индивидуальных очистных сооружений относят сооружения, пропускная способность которых...

Типы оградительных сооружений в морском порту: По расположению оградительных сооружений в плане различают волноломы, обе оконечности...

Археология об основании Рима: Новые раскопки проясняют и такой острый дискуссионный вопрос, как дата самого возникновения Рима...

История развития хранилищ для нефти: Первые склады нефти появились в XVII веке. Они представляли собой землянные ямы-амбара глубиной 4…5 м...



© cyberpedia.su 2017-2024 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав. Мы поможем в написании вашей работы!

0.014 с.