Студопедия  
Главная страница | Контакты | Случайная страница

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатика
ИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханика
ОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторика
СоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансы
ХимияЧерчениеЭкологияЭкономикаЭлектроника

Readln(name);

With date born do

Readln(yy, mm, dd);

Readln(j);

if j=1 then educ:=pay else educ:=state;

Readln(usp);

writeln(‘введіть стать: 0-жін; 1-чол’);

Readln(j);

if j=1 then pol:=male else pol:=female;

Case pol of

male: begin

writeln(‘0-непридатний, 1-придатний’);

Readln(j);

if j=1 then army:=yes else army:=no;

writeln(‘зріст’);

Readln(hight);

End;

female: begin

writeln(‘волосся: 0-чорне, 1-шатенка, 2-блондинка’);

Readln(j);

Case j of

0: hair:=black;

1: hair:=shaten;

2: hair:=blond;

End;

writeln(‘очі: 0-чорні, 1-зелені, 2-сині, 3-карі’);

Readln(j);

Case j of

0: eyes:=black;

1: eyes:=green;

2: eyes:=blue;

3: eyes:=brown;

End;

writeln(‘косметика’);

Readln(cosmetics);

End;

End;

End;

End.

Пошук потенційних танкістів.

For i:=1 to n do

With a[i] do

If (pol=male) and (date born.yy<1985) and (date born.mm<11) and (usp<3) and (army=yes) and (hight<=175) then writeln (name, ‘танкіст’);

End.

ТЕМА: Програми обробки структурованих типів.

1. Прикладизадач з масивами

a. Знайти середнє арифметичне додатніх і від’ємних елементів масиву цілих чисел.

Var

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

S1, S2, i, i1, i2: integer;

x1,x2: real;

Begin

for i:=1 to 20 do

Begin

write (‘?’); {ввід масиву}

readln(a[i])

End;

for i:=1 to 20 do

Begin

if a[i]>0 then begin S1:=S1+a[i]; i1:=i1+1 end;

if a[i]<0 then begin S2:=S2+a[i]; i2:=i2+1 end;

End;

if i1>0 then begin x1:=S1/i1; writeln(x1)

else writeln(‘+немає’);

if i2>0 then begin x2:=S2/i2; writeln(x2) else writeln (‘ – немає’);

End

Показаний приклад показують, що вибір індекса масиву залежить від типу оброблюваних даних. Деколи зручніше організувати індекси не цілочисельні, а за допомогою символів чи якогось перелічувального типу. Такі масиви в якості своїх значень можуть зберігати в кількості елементів такого символьного або перелічувального типу.

При обробці багатовимірних масивів використовуються вкладені оператори циклу. При цьому слід пам’ятати: самі зовнішні цикли відповідають самому першому індексу, а внутрішні останні.

Перетинання тіл циклів не призводить до синтаксичної помилки, а лише дасть неправильний результат.

2. Стандартніпідпрограмиобробкирядків

Pascal має набір стандартних підпрограм обробки рядків: функції, процедури.

Функції на відміну процедур мають результат деякого типу і можуть бути використані в якості компонентів виразу.

Процедури являють собою дію. Вони будуть окремими командами програми. Результат обертатиметься у вигляді параметрів.

а) Функціявизначеннядовжини

Параметром (аргументом) буде рядок символів, результатом – ціле число типу byte.

LENGTH(‘<рядок>’)=<довжина рядка>;

Вона не може змінювати довжину рядка.

б) Функціявиділеннячастинирядка

якщо з деякого рядка треба виділити підрядок, використовується функція copy.

COPY (<ідентифікатор рядка>,<позиція, з якої відбувається крпіювання>,<довжина потрібного фрагменту>);




Дата добавления: 2015-09-11; просмотров: 23 | Поможем написать вашу работу | Нарушение авторских прав

Как создать Process Tag? | А) можливостями мови; | With xor constructor destructor | ПРОЦЕДУРА. | X: integer; | Програма знаходження суми чисел 1..10. | Readln(c); | Readln (i); | S1: string; | Звичайно базовий тип множини в цьому випадку повинен бути допустимим для процедур вводу-виводу. |


lektsii.net - Лекции.Нет - 2014-2024 год. (0.007 сек.) Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав