Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Вопросы начинающих программистов
Перезагрузить страницу Процедура обработки данных в Pascal
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
tanuha_smile tanuha_smile вне форума
начинающий программист
 
Сообщений: 30
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 22.02.2011
По умолчанию Процедура обработки данных в Pascal - 22.02.2011, 16:18

Задача:
Дана структура: Ф.И.О., год рождения, пол, национальность.
1.записать сначала женщин, а затем мужчин.
2.вывести женщин и мужчин предпенсионного возраста.

Program abc;
uses crt;
type
ludi=record;
fio:string [15];
dr:string [6];
pol:char;
nac:string [19];
end;
mas= array [1..90] of ludi;
var
imfile:string [25];
f:file of ludi;
a:mas;
d:ludi;
ch:char;
n:byte;
pm:byte;

procedure vvod(var d:ludi);
begin
write('введите имя, фамилию:');
readln(d.fio);
write('введите год рождения:');
readln(d.dr);
write('введите национальность:');
readln(d.nac);
write('введите пол:');
readln(d.pol);
end;
procedure zfile;
begin
rewrite(f);
repeat
vvod(d);
write(f,d);
write('вводить ещ? (д/н)-');
readln(ch);
until upcase (ch)='Н';
close (f);
end;
procedure readf(var n:byte; var a:mas);
var i:byte;
begin
writeln('считывание начато');
reset(f);
i:=0;
while (not EOF(f)) do
begin
i:=i+1;
read(f,a[i]);
end;
close (f);
n:=i;
writeln('считывание завершено');
end;

procedure prosm ;
var i:byte;
begin
readf(n,a);
writeln(' ______________________________________________');
writeln('!Ф.И.О. ! г.рож.! пол ! национальность !');
writeln(' ______________________________________________');
for i:=1 to n do
writeln('!',d.fio:15,'!',d.dr:7,'!',d.pol:5,'!',d. nac:16,'!');
end;
procedure dob;
begin
reset (f);
seek (f,filesize(f));
repeat
vvod(d);
write(f,d);
write('добавлять еще? (д/н)-');
readln(ch);
until upcase (ch)='Н';
close (f);
end;

procedure kor;
var
nkz:byte;
begin
reset(f);
repeat
writeln('введите номер коректируемой записи');
readln(nkz);
seek(f,nkz);
write(f,d);
writeln('еще?n/y');
readln(ch);
until upcase(ch)='N';
close(f);
end;
procedure ud;
var
i,nuz:byte;
begin
readf (n,a);
repeat
write ('введите номер удаляемой записи-');
readln(nuz);
a[nuz].fio:='***';
write('удалять еще? (д/н)-');
readln(ch);
until upcase (ch)='Н';
rewrite (f);
for i:=1 to n do
if a[i].fio<>'***' then
write (f,a[i]);
close(f);
end;

BEGIN
clrscr;
repeat
writeln ('введите имя файла');
readln(imfile);
assign(f,imfile);
writeln('0.ввод') ;
writeln ('1.запись в файл');
writeln('2.просмтр файла');
writeln('3.добавление файла');
writeln('4.коректировка файла');
writeln('5.удаление файла');
writeln('6.чтение файла');
writeln('7.ВЫХОД');
writeln('введите нужный пункт меню');
readln(pm);
case pm of
1:zfile;
2:prosm;
3:dob;
4:kor;
5:ud;
6:readf(n,a);
7:exit;
end;
writeln('еще будете работать?y/n');
readln(ch);
until upcase (ch)='Н';
END.
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
1.5 Разработка динамических структур данных и функций их обработки kilimi Вопросы начинающих программистов 6 16.06.2011 11:38
Процедура обработки сообщений bonderwolf Delphi 1 23.03.2011 00:22
Программа для обработки символьных данных Анютка :) Вопросы начинающих программистов 0 23.02.2011 01:43
Процедура E\xec AlexRyzhenko Pascal 2 16.08.2009 00:29
Написание класса для обработки каждого типа данных dmitryn Вопросы начинающих программистов 11 28.01.2008 17:51
Процедура включения в дерево нового элемента в Pascal imported_Flanker Вопросы начинающих программистов 4 29.05.2006 17:52
Процедура поиска в базе данных MishaPMPU SQL 3 07.12.2005 11:48
Пакеты статистической обработки данных Pchelka Вопросы начинающих программистов 3 24.11.2005 13:39
Задача на pascal/delphi ввод и вывод данных Ipo-x Pascal 5 17.02.2005 09:20
Хранимая процедура на С++ Xwing PostgreSQL 0 18.06.2003 11:49
Существует ли процедура задержки обработки в Билдере Anonymous C++ Builder 2 12.03.2003 15:14
Pascal и базы данных где найти модуль для работы RedMax Pascal 4 30.01.2003 17:45



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов