Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Taisiya
0 / 0 / 0
Регистрация: 22.11.2009
Сообщений: 25
#1

Создать файл, содержащий фамилии, имена, месяц и год рождения - Pascal

23.11.2009, 08:35. Просмотров 616. Ответов 5
Метки нет (Все метки)

Создать файл, содержащий фамилии, имена, месяц и год рождения. Написать 2 программы: 1-ая должна создавать этот файл, а 2-ая должна запрашивать ввод с клавиатуры фамилии и выводить на экран все данные об этом человеке.

Убийственно необходимо!!!!!! Выручайте!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.11.2009, 08:35
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Создать файл, содержащий фамилии, имена, месяц и год рождения (Pascal):

Дан файл, содержащий различные даты. Каждая дата – это число, месяц и год. Найти год с наименьшим номером.
Дан файл, содержащий различные даты. Каждая дата – это число, месяц и год....

Создать файл, содержащий фамилии студентов
Приветствую, прошу решить задачу...... Создать файл, содержащий фамилии...

Создать файл с полями: название магазина, месяц, объем продаж за месяц
Создать файл с полями: название магазина, месяц, объем продаж за этот месяц....

. Сформировать массив, содержащий различные даты. Каждая дата - это число, месяц и год. Используя сформированный массив, найти все весенние даты;
. Сформировать массив, содержащий различные даты. Каждая дата - это число,...

Создать файл, содержащий произвольные строки. Обработать файл так, чтобы не было больше одного пробела
Создать файл,который содержит произвольные строки. Обработать файл так чтобы не...

число, месяц, год
Заданы три натуральных числа A, В, С, которые обозначают число, месяц и год....

5
TAVulator
3950 / 1109 / 160
Регистрация: 27.07.2009
Сообщений: 3,457
23.11.2009, 08:50 #2
Taisiya, что конкретно не получается?
0
mamedovvms
2918 / 839 / 324
Регистрация: 30.04.2009
Сообщений: 2,633
23.11.2009, 09:18 #3
очнь похожая программа, надо только чуть переделать
первый файл
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
uses crt;
type
    S=record
    F:string[20];
    I:string[15];
    O:string[15];
    D:byte;
    M:byte;
    G:word;
    end;
    NameFile=File of s;
 
var Dan:s;
    fille:NameFile;
    Vihod:byte;
begin
assign(fille,'C:\Men.dat');
rewrite(fille);
repeat
clrscr;
with Dan do
 begin
  write('Enter the Surname >> ');
  readln(F);
  write('Enter the Name >> ');
  readln(I);
  write('Enter the Patronymic >> ');
  readln(O);
  write('Enter the Birthday >> ');
  readln(D);
  write('Enter Month of a birth >> ');
  readln(M);
  write('Enter Yar of a birth >> ');
  readln(G);
 end;
 write(fille,Dan);
 writeln('To enter data press <Enter> Otherwise press <Esc> ');
 Vihod:=ord(readkey);
until(Vihod<>13);
close(fille);
end.
второй файл
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
uses crt;
type
    S=record
    F:string[20];
    I:string[15];
    O:string[15];
    D:byte;
    M:byte;
    G:word;
    end;
    NameFile=File of s;
 
var temp:s;
    mas:array[1..100] of s;
    fille:NameFile;
    Vihod:byte;
    i,j,k:integer;
    god:word;
begin
clrscr;
writeln('Enter year which more or is equal to year of a birth of the people');
writeln('which list is necessary for deducing ');
readln(god);
clrscr;
assign(fille,'C:\Men.dat');
reset(fille);
 i:=0;
   Writeln('╔═════════════════════╦════════════════╦════════════════╦══════════════╗ ');
   Writeln('в•‘       Surname       в•‘      Name      в•‘   Patronymic   в•‘Date of birth в•‘ ');
   Writeln('в•*═════════════════════╬════════════════╬════════════════╬══════════════╣ ');
   repeat
 Inc(i);
   Read(fille,mas[i]);
 
   until(eof(fille));
   close(fille);
   for j:=1 to i-1 do
    for  k:=j to i do
     if mas[j].g>mas[k].g then
      begin
       temp:=mas[j];
       mas[j]:=mas[k];
       mas[k]:=temp;
      end;
      j:=1;
     while (j<=i)and(mas[j].g<=god) do
     With mas[j] do
       Begin
        Write('в•‘ ',F:20,'в•‘ ');
        Write(I:15,'в•‘ ');
        Write(O:15,'в•‘ ');
        Write(' ',D:2,'/',M:2,'/',G:4,'  в•‘');
        Writeln;
        j:=j+1;
      End;
 
  Writeln ('в•љв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•©в•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•©в•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•©в•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ђв•ќ ');
readln;
end.
1
Taisiya
0 / 0 / 0
Регистрация: 22.11.2009
Сообщений: 25
23.11.2009, 09:59  [ТС] #4
В общем я создала первую программу, когда во второй программе пытаюсь к ней обратиться, то она у меня даже не идёт....и ошибок никаких не пишет...(((((((((( А у господина "mamedovvms" вторая программа больно что-то не понятная, нельзя как-нибудь по-другому?(попроще)
0
mamedovvms
2918 / 839 / 324
Регистрация: 30.04.2009
Сообщений: 2,633
23.11.2009, 10:43 #5
Цитата Сообщение от Taisiya Посмотреть сообщение
А у господина "mamedovvms" вторая программа больно что-то не понятная, нельзя как-нибудь по-другому?(попроще)
она не сложно сделано там просто много оформления а так ничего сложного

Добавлено через 40 секунд
Цитата Сообщение от Taisiya Посмотреть сообщение
общем я создала первую программу, когда во второй программе пытаюсь к ней обратиться, то она у меня даже не идёт....и ошибок никаких не пишет...(
ну так наверное надо выложить код мы посмотрим и скажем что не так сделано
1
Taisiya
0 / 0 / 0
Регистрация: 22.11.2009
Сообщений: 25
24.11.2009, 17:03  [ТС] #6
Всем огромное спасибо!!!!!!!! Но я всё-таки сделала по-своему. И у меня получилось!!!!!!!)))))))))

Добавлено через 51 секунду
Программа, создающая файл:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Program sf;
  type sved = record
                fam: string[20];
                imya: string[20];
                mecyac: string[20];
                god: integer;
              end;
       tf = file of sved;
  var x: sved;
      f: tf;
      i,n:integer;
begin
  writeln('vvedi n');
  readln(n);
  assign(f,'E:\ludi.dat');
  rewrite(f);
  for i:=1 to n do
    begin
      with x do
        begin
          readln(fam);
          readln(imya);
          readln(mecyac);
          readln(god);
        end;
        write(f,x);
    end;
    close(f);
end.
Добавлено через 3 минуты
А это вторая программка:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Program ld;
  type sved = record
                fam:string[20];
                imya:string[20];
                mecyac:string[20];
                god:integer;
              end;
       tf = file of sved;
  var v,u:tf;
  y:sved;
  g:string[20];
begin
  writeln('vvedi g');
  readln(g);
  assign(u,'E:\ludi.dat');
  assign(v,'E:\res.dat');
  reset(u);
  rewrite(v);
  while not (EOF(u)) do
    begin
      read(u,y);
      if y.fam=g
        then write(v,y);
    end;
  close(u);
  close(v);
  reset(u);
  reset(v);
  while not (EOF(v)) do
    begin
      read(v,y);
      with y do
        begin
          write(fam);
          write(imya);
          write(mecyac);
          write(god);
        end;
    end;
  close(u);
  close(v);
end.
Извиняюсь, что пишу так))))))) Как у вас у меня не получается((((( Ещё раз всем ОГРОМНОЕ СПАСИБО!!!(за уделённое время и что просто не прошли мимо)))))
0
24.11.2009, 17:03
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.11.2009, 17:03
Привет! Вот еще темы с решениями:

Год, месяц, день
Всем привет! Вот преподаватель дал очередную задачу, которую в корне понять не...

Создать файл, содержащий ФИО студентов
Здраствуйте уважаемые прогрмаммисты! прошу решить следующую задачу: Создать...

Создать файл, содержащий произвольные строки
1. Создать файл произвольных символов. Вывести в один файл цифры, содержащиеся...

программа про год и месяц
известен год и номер месяца рождения человека, а также год и номер месяца...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru