Создать файл, содержащий сведения о пациентах глазной клиники. - Turbo Pascal
Формулировка задачи:
А. Создать файл, содержащий сведения о пациентах глазной клиники. Структура записи: фамилия пациента, пол, возраст, место проживания (город), диагноз. Количество записей произвольное.
Б.
Написать программу, выдающую следующую информацию:
- количество иногородних, прибывших в клинику;
- список пациентов старше Х лет с диагнозом Y. Значения X и Y ввести с терминала.
Заранее Спасибо. Решение задачи: «Создать файл, содержащий сведения о пациентах глазной клиники.»
textual
Листинг программы
readln(f,st);
delete(st,1,pos(':',st)+1);
sur:=st;
readln(f,st);
delete(st,1,pos(':',st)+1);
sex:=st;
readln(f,st);
delete(st,1,pos(':',st)+1);
val(st,age,o); //o: integer;
readln(f,st);
delete(st,1,pos(':',st)+1);
add:=st;
readln(f,st);
delete(st,1,pos(':',st)+1);
diag:=st;
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д