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

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

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

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

Убийственно необходимо!!!!!! Выручайте!
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.11.2009, 08:35
Ответы с готовыми решениями:

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

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

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

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

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

5
TAVulator
Эксперт Pascal/Delphi
3990 / 1136 / 177
Регистрация: 27.07.2009
Сообщений: 3,544
23.11.2009, 08:50 2
Taisiya, что конкретно не получается?
0
mamedovvms
2919 / 840 / 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
2919 / 840 / 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

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

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

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


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

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

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