Задача 5. Составить программу, которая создает файл, состоящий из n значений типа integer. Прочитать файл и вывести на экран только четные элементы.

program fail1;

uses crt;

var

f:file of integer;

i,n:byte;

imya:string[12];

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

Procedure New_file;

begin

write ('Vvedite imya faila:');

readln (imya);

end;

Procedure Vvod;

begin

assign(f,imya);

write ('Vvedite kol-vo elementov <20:');

readln(n);

rewrite(f);

for i:=1 to n do

begin

a[i]:=random(100);

write(f,a[i]);

end;

close(f);

for i:=1 to n do write(a[i]:3);

writeln;

end;

Procedure Vivod_faila;

begin

write ('Vvedite imya fala:');

readln (imya);

assign(f,imya);

{$I-}

reset(f);

{$I+}

if IOresult<>0

then writeln('fail ne naiden!!!')

else

begin

write('chitnie elementi faila:');

while not eof(f) do

begin

read(f,a[i]);

if a[i] mod 2=0 then write(a[i]:3);

end;

close(f);

end;

end;

begin

clrscr;

randomize;

New_file;

Vvod;

Vivod_faila;

readkey;

end.

Задача 6. Написать программу, которая вводит с клавиатуры список фамилий учащихся, а затем распечатывает его, кроме тех учащихся, у которых фамилия начинается с буквы 'A' или 'а’.

Program L;

Var

I,N: Integer;

F: File Of String;

S: String;

Begin

Assign(F,'Spis.lst'); {Связываем переменную F с файлом Spis.lst}

Writeln('Введите количество учащихся');

Readln(N); {Вводим количество учащихся}

Rewrite(F); {Создаем файл для записи в него данных}

For I:=1 To N Do {Для всех учащихся}

Begin

Writeln('Введите фамилию');

Readln(S);

Write(F,S)

End;

Close(F);

Reset(F);

Writeln; Writeln('Список учащихся:');

While Not(Eof(F)) Do

Begin

Read(F,S);

If S[1]<>'A' and S[1]<>'a' Then

Writeln(S)

End;

Close(F)

End.

Задание 7. Разработать базу данных об абонентах и сохранить ее на внешний носитель. База данных должна выполнять следующие функции: создание, просмотр, дополнение записей, осуществление запросов по поиску по фамилии абонента и по номеру телефона.

Дата добавления: 2015-08-17