Особенности сооружения опор в сложных условиях: Сооружение ВЛ в районах с суровыми климатическими и тяжелыми геологическими условиями...
Историки об Елизавете Петровне: Елизавета попала между двумя встречными культурными течениями, воспитывалась среди новых европейских веяний и преданий...
Топ:
Теоретическая значимость работы: Описание теоретической значимости (ценности) результатов исследования должно присутствовать во введении...
Основы обеспечения единства измерений: Обеспечение единства измерений - деятельность метрологических служб, направленная на достижение...
Генеалогическое древо Султанов Османской империи: Османские правители, вначале, будучи еще бейлербеями Анатолии, женились на дочерях византийских императоров...
Интересное:
Как мы говорим и как мы слушаем: общение можно сравнить с огромным зонтиком, под которым скрыто все...
Мероприятия для защиты от морозного пучения грунтов: Инженерная защита от морозного (криогенного) пучения грунтов необходима для легких малоэтажных зданий и других сооружений...
Уполаживание и террасирование склонов: Если глубина оврага более 5 м необходимо устройство берм. Варианты использования оврагов для градостроительных целей...
Дисциплины:
2018-01-30 | 135 |
5.00
из
|
Заказать работу |
|
|
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;
40Созданиеновыхтиповпаскаль
|
type matr =array[1..10,1..50]ofinteger;
var a:matr;
|
|
Механическое удерживание земляных масс: Механическое удерживание земляных масс на склоне обеспечивают контрфорсными сооружениями различных конструкций...
Типы сооружений для обработки осадков: Септиками называются сооружения, в которых одновременно происходят осветление сточной жидкости...
Историки об Елизавете Петровне: Елизавета попала между двумя встречными культурными течениями, воспитывалась среди новых европейских веяний и преданий...
Поперечные профили набережных и береговой полосы: На городских территориях берегоукрепление проектируют с учетом технических и экономических требований, но особое значение придают эстетическим...
© cyberpedia.su 2017-2024 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав. Мы поможем в написании вашей работы!