Mail.ruПочтаМой МирОдноклассникиИгрыЗнакомстваНовостиПоискВсе проекты

Паскаль. Работа с текстовым файлом. Нужна помощь

Ученик (114), закрыт 3 месяца назад
Дополнен 3 месяца назад
совсем не дружу с Паскаль
Лучший ответ
Остальные ответы
Комментарий удален
Кублен Оракул (79569) вот образец uses crt; type clinic = record sur, add, diag: string; born: integer; end; var a: array[1..50] of clinic; i,j,np,n: byte; key: char; filename: string; f: file of clinic; w:clinic; di:string; begin clrscr; write('введите имя файла: '); readln(filename); assign(f,filename); rewrite(f); repeat inc(i); with a[i] do begin write('фамилия пациента: '); readln(sur); write('Год рождения: '); readln(born); write('место проживания: '); readln(add); write('Диагноз: '); readln(diag); write(f,a[i]); end; writeln('Выход? (д/н) '); readln(key) until upcase(key)='Д'; close(f); write('Ввести диагноз для поиска: '); readln(di); writeln(' Содержимое файла'); writeln(' ***************************'); reset(f); writeln('_______________________
Комментарий удален
Демиен Мыслитель (5095) Экзамен можно и на Пайтоне сдать, даже кое-где можно было на C++ Просто и в питоне, и в с++ есть ООП, которое непонятно глупеньким деткам, которые только и могут, что в CS:GO играть 24/7 ))
Похожие вопросы
Также спрашивают