стовий файл
Program as;
Uses crt;
Var f: text; a: array [1 .. 10] of integer; i, s: integer;
Begin clrscr;
Writeln ('Введення масиву ');
Assign (f, 'abc.txt'); rewrite (f);
For i: = 1 to 10 do begin write ('Введи', I, 'елемент масиву');
Readln (a [i]);
End;
Writeln;
For i: = 1 to 10 do s: = s + a [i];
Writeln (f, s);
Close (f);
End.
Заданіе12. Створити текстовий файл і записати в нього всі числа від 5 до 25
Program as;
Uses crt;
Var F: text; a: string; i: integer;
Begin clrscr;
Assign (F, 'text.txt'); Rewrite (f);
For i: = 5 to 25 do
Writeln (f, i);
Close (f);
End.
Заданіе13. Дано слово подвоїти його кожну букву і записати його в текст. файл
Program as;
Uses crt;
Var f: text; a: string; I, s: integer;
Readln (a);
For i: = 1 to length (a) * 2 do begin insert
Copy (a, I, 1), a, i),
I: = i +1;
End;
Writeln (f, a);
Close (f);
End.
Заданіе14. Мається текстовий файл порахувати кількість рядків починаються на букву М
Program as;
Uses crt;
Var F: text; a: string; k: integer;
Begin clrscr; p> Assign (f, 'abc.txt'); p> Reset (f);
While not (Eof (f)) do begin
readln (f, a);
if copy (a, 1,1) = 'М' then k: = k +1;
end; close (f);
writeln (k);
end.
Завдання 15. Створити текстовий файл і записати в нього 6 однакових чисел
Program as;
Uses crt;
Var F: text; a: string; i: integer;
Begin clrscr;
Assign (F, 'text.txt');
Rewrite (f);
For i: = 1 to 6 do
Writeln (f, 6);
Close (f);
End.
Записи в Паскалі
Завдання 1. Скласти список навчальної групи, що включає 25 осіб. Для кожного учня вказати дату народження, рік надходження до технікуму, курс, групу, оцінки кожного року навчання. Інформацію про кожного учащемся оформити в програмі у вигляді запису. Сукупність записів об'єднати в масив.
Скласти програму, яка забезпечує введення отриманої інформації, роздруківку її в вигляді таблиці, а також роздруківку інформації про відмінників
Program Pascal;
Uses crt;
type student = record
fio: string;
d_r: 1 .. 31; {день народження}
m_r: 1 .. 12; {місяць народження}
god_r: 1965 .. 1975; {Рік народження}
god_p: 2004 .. 2008; {Рік надходження}
group: string; {Назва групи}
ocenki: array [1 .. 3,1 .. 5] of integer; {оцінки з трьох предметів}
end;
var
s1: array [1 .. 25] of student;
i, j, x: integer; p> ch: char;
f: boolean;
begin
clrscr;
for i: = 1 to +25 Do begin
writeln ('Відомості про ', i,' студента ');
with s1 [i] do begin
write ('ПІБ:'); readln (fio); p> write ('Дата народження: .. м. ');
x: = wherex;
gotoxy (x-13, wherey); read (d_r);
gotoxy (x-10, wherey-1); read (m_r);
gotoxy (x-7, wherey-1); read (god_r);
if keypressed then begin
ch: = readkey;
if ch = # 0 then ch: = readkey;
end;
write ('Рік надходження: '); readln (god_p);
write ('Група: '); Readln (group);
j: = 0;
for i: = god_p to 2008 do begin
j: = j +1;
writeln ('Оцінки за ', i,' рік: ');
write ('Математика: '); Readln (ocenki [1, j]);
write ('Інформатика: '); Readln (ocenki [2, j]);
write ('Історія: '); Readln (ocenki [3, j]);
end;
end;
writeln;
end;
writeln ('список відмінників ');
for i: = 1 to 25 do begin
with s1 [i] do begin
j: = 0;
f: = true;
for i: = god_p to 2008 do begin
j: = j +1;
if not ((ocenki [1, j] = 5) and (ocenki [1, j] = 5) and (ocenki [1, j] = 5)) then f: = false;
end;
if f = true then writeln (fio, ', група', group, ', рік вступу', god_p);
end;
end;
writeln ('Для виходу натисніть Enter ');
readln;
end.
Завдання 2. Розробити програму формування файлу, що містить відомості про студентів. Кожен елемент цього файлу повинен містити такі дані: номер групи; номер у групі по списком; прізвище, ім'я, по батькові; рік народження; оцінки за останню сесію
Program Pascal;
Uses crt;
Const fname = '...
