Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 04.05.2013
Сообщений: 18
1

Сортировка по имени и запись в файл

12.01.2014, 23:45. Просмотров 330. Ответов 1
Метки нет (Все метки)

Программа сортирует только имена, а Фамилия, отчество, и дата остается на старом месте. Вы поймете о чем я, когда запустите программу.
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
60
61
62
uses crt;
type anketa=record
   familiya: string[45];
   imya: string;
   otchestvo: string[20];
   data: string[10];
   pol:string[3];
   buf:string;
end;
var z: array [1..100] of anketa;
rr:anketa;
i,j,n: integer;
fp:text;
s,name:string;
begin
assign(fp, 'C:/Temp/filer.txt');
append(fp);
writeln('Введите число студентов');
    readln(n);
        for i:=1 to n do
              begin
              writeln('Введите фамилию');
              readln(z[i].familiya);        //Нужно записать, только мужчин
              writeln('Введите имя');
              readln(z[i].imya);
              writeln('Введите отчество');  //не записываем, пока не убедимся, что это мужик
              readln(z[i].otchestvo);
              writeln('Введите дату');
              readln(z[i].data);
              writeln('Введите пол(муж,жен)');
              readln(z[i].pol);
              end;
 
              for i:=1 to n-1 do  //Сортировка
                 for j:=i+1 to n do
                 if z[i].imya[1]>z[j].imya[1] then
                 begin
                 rr.buf:=z[i].imya;
                 z[i].imya:=z[j].imya;
                 z[j].imya:=rr.buf;
                 end;
                 
                 
                 for i:=1 to n do     //Записываем в файл если это действительно мужик
                 begin
                      if z[i].pol='муж' then
                      begin
                      s:=z[i].familiya;
                      writeln(fp,s);
                      s:=z[i].imya;
                      writeln(fp,s);
                      s:=z[i].otchestvo;
                      writeln(fp,s);
                      s:=z[i].data;
                      writeln(fp,s);
                      s:=z[i].pol;
                      writeln(fp,s);
                      end;
 
             end;
              close(fp);
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.01.2014, 23:45
Ответы с готовыми решениями:

Запись имени файла в файл
Добрый вечер, Уважаемые Нужна ваша помощь, суть задачи такова, Разработать программу вывода...

Запись в файл Фамилии Имени Отчества
Написать скрипт Записи в файл Фамилии Имени Отчества

Запись строки в массив, сортировка, удаление и запись в файл
Нужна помощь. Из edit box к нам приходят строки мы их фильтруем. нужно строки записать в массив,...

Фокус и запись имени окна в текстовый файл
Есть ли событие типа "смена фокуса" и как записать имя окна которое в фокусе в текстовый файл(не...

1
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
30599 / 19972 / 7801
Регистрация: 22.10.2011
Сообщений: 34,772
Записей в блоге: 6
13.01.2014, 03:00 2
Строки 34-41 замени вот на это:
Pascal
1
2
3
4
5
6
  for i := 1 to n - 1 do  //Сортировка
    for j := i + 1 to n do
      if z[j - 1].imya[1] > z[j].imya[1] then
      begin
        rr := z[j - 1]; z[j - 1] := z[j]; z[j] := rr;
      end;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.01.2014, 03:00

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Запись в файл имени всех файлов в директории
Нужно записать имена файлов из папка в другой файл который я создаю и заменяю если такой есть. Как...

Считывание имени файла и его запись в текстовый файл
Привет всем. Задача: В папке есть много .xml-файлов, каждый их которых надо скопировать в...

Сортировка и запись в файл строки, введённой с клавиатуры
Нужно рассортировать вводимые с клавиатуры символы на цифры и другие символы и записать в два файла...

Переписать код с С++ на VBA (сортировка массивов и запись в файл)
#include <algorithm> #include <iostream> #include<windows.h> using namespace std; //newGap...


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

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

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