Теми рефератів

> Реферати > Курсові роботи > Звіти з практики > Курсові проекти > Питання та відповіді > Ессе > Доклади > Учбові матеріали > Контрольні роботи > Методички > Лекції > Твори > Підручники > Статті Контакти

Реферати, твори, дипломи, практика » Отчеты по практике » Редагування та налагодження програм за допомогою Pascal

Реферат Редагування та налагодження програм за допомогою Pascal

Тема: Отчеты по практике

l: array [1 .. 3] of integer {Поле bal - масив з 3 оцінок}

end;

Var spisok: wed; {Запис spicok типу wed}

i, j, kol, s: integer; sr: real;

Begin

kol: = 0; {kol- кількість відмінників}

With spisok do {with приєднує ім'я запису spisok до всіх}

For i: = 1 to 3 do {полям всередині циклу For по i}

begin

n: = i;

Write (' Vvedite FIO # ', i,' ');

Readln (fio);

s: = 0;

For j: = 1 to 3 do

begin

write ('Vvedite ocenky: ');

readln (bal [J]);

s: = s + bal [J];

end;

if s = 15 then kol: = kol +1; {підрахунок кількості відмінників}

sr: = s/3; writeln (fio, ', Sredniy bal =', sr: 4:1); end;

writeln (' Kolichestvo otlichnikov = ', kol);

readln;

end.

Заданіе14. Нехай нам необхідно заповнити відомості про студента (П.І.Б., дата народження, адреса, курс і група), а потім вивести ці відомості на екран

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); p> writeln ('Введіть курс');

readln (student.curs); p> writeln ('Введіть групу');

readln (Student.grupp);

writeln ('Введення закінчений');

writeln;

{зверніть увагу, що виведення запису здійснюється по полях}

writeln ('Прізвище студента:', student. Fio);

writeln (' дата народження: ', student.dat_r);

writeln (' адреса: ', student.adres);

writeln (' курс: ', student.curs);

writeln (' група: ', student.grupp);

end.

Заданіе15. Нехай нам необхідно мати відомості про багатьох студентах, наприклад, нашого факультету. Отже, необхідно організувати масив записів Паскаля. А потім із загального списку вивести прізвища студентів 2-го курсу

program primer 2;

type anketa = record

fio: string [45];

dat_r: string [8];

adres: string [50];

curs: 1 .. 5;

grupp: string [3]

end;

var student: array [1 .. 100] of anketa;

I: integer;

begin

{послідовно вводимо кожну запис}

for I: = 1 to 100 do

begin

writeln ('Введіть відомості про', I, '-му студента');

writeln ('Введіть прізвище, ім'я та по батькові');

readln (Student [I]. Fio);

writeln ('Введіть дату народження');

readln (Student [I]. Dat_r);

writeln ('Введіть адресу');

readln (student [I]. adres); p> writeln ('Введіть курс');

readln (student [I]. curs); p> writeln ('Введіть групу');

readln (Student [I]. Grupp);

end;

writeln ('Введення закінчений');

writeln;

{переглядаємо масив записів і вибираємо тільки студентів 2-го курсу}

for I: = 1 to 100 do

if student [I]. curs = 2 then

writeln (' прізвище студента: ', student [I]. fio);

end.

Рядки

Завдання 1. Дана послідовність слів. Надрукувати ті слова послідовності, які відмінні від останнього слова і задовольняють властивості: слово симетрично

Program Stroki;

Uses Crt;

Var s, k: string;

a: array [1 .. 100] of string;

i, n, j, l: Integer; p> f: boolean;

begin

ClrScr;

{Введення послідовності слів}

Writeln ('Введіть послідовність слів: ');

Readln (s);

{Запис слів в масив a}

for i: = 1 to length (s) do begin