Вопрос № 126440: 1. Вычислить значение функции, исходные данные ввести с клавиатуры. Написать программу, в которой задача вычисления функции оформлена через:
1) FUNCTION;
2)PROCEDURE ;
Обратиться к FUNCTION и PROCEDURE дважды для вычисления:
...
Вопрос № 126.440
1. Вычислить значение функции, исходные данные ввести с клавиатуры. Написать программу, в которой задача вычисления функции оформлена через:
1) FUNCTION;
2)PROCEDURE ;
Обратиться к FUNCTION и PROCEDURE дважды для вычисления:
Вывести результат на экран .
3.Написать программу с использованием переменных типа запись с полями, указанными в задании 5. Вывести информацию о поликлинике №1.
4. Записать в файл N-чисел, введенных с клавиатуры.
Считать из файла эти числа. Найти максимальное среди этих n – чисел.
Вывести на экран максимальное среди этих n – чисел.
5.1.Создать файл данных, каждая запись которого состоит из следующих полей:
Задание
Поля записи
Поликлиника Район Кол-во врачей Число обращений к врачу
5.2. Считать из файла информацию, указанную преподавателем, или предложить свою версию для считывания информации.
Отправлен: 08.03.2008, 15:54
Вопрос задал: Раманыч (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Костя Симанович
Здравствуйте, Раманыч!
По пункту 5.1 решение создаёт файл bolnica.bin, в приложении решение которое считывает данные из созданного файла, при этом вывод фильтруется согласно заданию 3. если из второй задачи убрать проверку условия номера поликлиники то будут выведены все записи.
введя любое условие впринципе данные можно фильтровать по любому критерию согласно п. 5.2
Надеюсь помог.
program mer;
type
wrach = record
nameg : integer; //Номер поликлиники
raion : string[50]; // Район
adres : integer;// кол-во врачей
kolwo : integer; // кол-во обращений в поликлинику
end;
empfilerec = File of wrach;
var
f : empfilerec;
zapis : wrach;
procedure writerecord;
begin
{сохранение одной записи в файл}
write(f, zapis);
end;
procedure getdata;
var
c : integer;
begin
c := 0;
with zapis do
begin
write('Введите номер поликлиники (или 0 для завершения)');
readln(nameg);
while nameg <> 0 do
begin
c := c + 1;
write('Название района. '); readln(raion);
write('Кол-во врачей '); readln(adres);
write('Кол-во обращений в поликлинику. '); readln(kolwo);
writerecord;
write('Введите номер поликлиники. (или 0 для завершения)');
readln(nameg);
end;
end;
end;
Ответ отправил: Костя Симанович (статус: 2-ой класс)
Ответ отправлен: 08.03.2008, 16:28 Оценка за ответ: 5 Комментарий оценки: Спасибо. я так понял эту программу можно представить сразу под задания 3, 5.1 и 5.2?
и што делает функция program empfilerec? просто не проходили ещё такова. а в общем разобрался в программах.
