Скачиваний:
47
Добавлен:
10.02.2014
Размер:
31.23 Кб
Скачать

МИНИСТЕРСТВО ОБЩЕГО И ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ РФ

САРАТОВСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ

БАЛАКОВСКИЙ ИНСТИТУТ ТЕХНИКИ, ТЕХНОЛОГИИ И УПРАВЛЕНИЯ

факультет: ИС

Отчет

по индивидуальному заданию

на вычислительную практику

Вариант 24.

Выполнил:

студент 2-ого курса

гр. УИТ-22

принял:

г. Балаково 2005 г.

Задание:

Составить программу, которая создает на диске файл данных списка планет с указанием объема, диаметра и удаленности от Земли и обеспечивает поиск сведений о планете по ее названию.

program zd24;

type

planet=record

naz:string[25];

V:integer;

D:integer;

ud:integer;

end;

var

i:integer;

k:integer;

work:planet;

naz_find:string[25];

est:boolean;

name:string[12];

f:file of planet;

begin

write('Введите имя файла данных списка планет:'); readln(name);

assign(f,name);

rewrite(f);

writeln('Создание файла записей ',name);

write('введите число записей:'); readln(k);

for i:=1 to k do

begin

writeln('Ввод записи N',i);

with work do

begin

write('Введите название планеты:'); readln(naz);

write('Введите объем планеты:'); readln(V);

write('Введите диаметр:'); readln(D);

write('Введите удаленность планеты от Земли:'); readln(ud);

end;

write(f,work);

writeln;

end;

close(f);

assign(f,name);

{$i-}

reset(f);

{$i+}

if ioresult=0 then

begin

writeln('Поиск сведений о планете по ее названию:');

write('Введите искомую планету: '); readln(naz_find);

writeln;

seek(f,0);

est:=false;

while(not eof(f)) do

begin

read(f,work);

with work do

if naz=naz_find then

begin

writeln('Найдена запись о планете ',naz);

writeln('Объем планеты:',V);

writeln('Диаметр планеты:',D);

writeln('Удаленность от Земли:',ud);

writeln;

est:=true;

end;

end;

if not est then writeln('Записей с таким названием нет.');

end;

close(f);

writeln;

writeln('Для выхода нажмите ENTER...');

readln;

end.

Соседние файлы в папке zapisi