Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.05.2010, 15:23   #1
vykker
Пользователь
 
Регистрация: 14.05.2010
Сообщений: 52
По умолчанию паскль, файлы

пожалуйста
Сформировать файл, содержащий сведения об n работниках предприятия. Должны учитываться следующие сведения: ФИО, стаж работы, профессия. Вывести фамилии людей определенной профессии с опытом работы не менее Х лет (профессия и минимальный стаж вводятся с клавиатуры).

с файлами вообще дел не имел

и это не моё))
Код:
Type
   Person=record
               Fam, Name, Otch:string;
               Staj:byte; {количество лет стажа работы}
               Proff:string {наименование профессии}
             end;
Var
  Persons:array[0..49] of Person; {массив сотрудников}
  f: file of Person;

Последний раз редактировалось vykker; 25.05.2010 в 16:20.
vykker вне форума Ответить с цитированием
Старый 25.05.2010, 16:49   #2
Grag
А может и не...
Участник клуба
 
Аватар для Grag
 
Регистрация: 27.03.2010
Сообщений: 1,269
По умолчанию

Цитата:
Сообщение от vykker Посмотреть сообщение
с файлами вообще дел не имел
Все когда-то случается впервые! Пора начинать!
Перемешивай дело с бездельем и не сойдешь с ума...
Grag вне форума Ответить с цитированием
Старый 25.05.2010, 20:12   #3
vykker
Пользователь
 
Регистрация: 14.05.2010
Сообщений: 52
Хорошо

просто кладезь остроумия

мб так??
Код:
Type
   Person=record
               Fam, Name, Otch:string;
               Staj:byte; {количество лет стажа работы}
               Proff:string {наименование профессии}
             end;
Var
  Persons:array[0..49] of Person; {массив сотрудников}
  f: file of Person;
  n, x , b :integer; //колво раб и мин стаж и проф??
   begin
assign (f,'C:\pab.txt');
rewrite (f);

writeln('kol-vo pabov');
read (n);
for i:=1 to n do
begin
writeln ('fam');
read (persons[i].fam);
writeln ('name');
read (persons[i].name);
Writeln ('otch');
read (persons[i].otch);
ну хоть что нибуть, люди!

сий факт остался не учтен, но мне здавать пора уж зафтра!
работу эту госпада, прошу вас зделать все что можно, инач пачальная судьба моя!!

Последний раз редактировалось Stilet; 26.05.2010 в 08:09.
vykker вне форума Ответить с цитированием
Старый 26.05.2010, 06:20   #4
Grag
А может и не...
Участник клуба
 
Аватар для Grag
 
Регистрация: 27.03.2010
Сообщений: 1,269
Хорошо

<OffTop>
Почти Шекспир, однако...
Перемешивай дело с бездельем и не сойдешь с ума...
Grag вне форума Ответить с цитированием
Старый 26.05.2010, 08:15   #5
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
vykker
Не ну правильно начал.
Продолжить можно так:
Код:
read(x);
for i:=1 to n do
 if persons[i].Staj>=X then 
  writeln(persons[i].fam+' '+persons[i].Name+' '+persons[i].Otch,persons[i].Proff:20);
readln;
Только я бы еще вот так твое поправил:
Код:
repeat
 writeln('kol-vo pabov');
 read (n);
until n<=49;
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Паскль.Множества. ulia8412 Помощь студентам 0 24.12.2009 18:12
паскль. как написать программу ? madmax Помощь студентам 2 24.05.2009 15:10
Помогите,плиз! Задача на паскль! Решение линейных уравнений методом Гаусса! vdv08 Помощь студентам 4 21.10.2008 23:33