Перевод с Си на Паскаль

@Beatles · Регистрация: 18.04.2012

Студворк — интернет-сервис помощи студентам

В общем, написал программу на Си. Теперь нужно на Паскаль. Почитал литературы, но так и не пойму, как всё организовать... Кому не сложно, пожалуйста, переведите на Паскаль фрагмент программы. Остальное бы сам додумал...

C
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
int p; int kolichestvo=0;
using namespace std;
struct ZNAK {char NAME[20],ZNAK2[15]; unsigned BDAY[3];}BZNAK[8],T;
 
void input(FILE *); // создание нового файла
void print(FILE *); // просмотр файла (и сортировка по дате рождения)
void app(FILE *); // добавление в файл
void find(FILE *); // поиск по фамилии и, если необходимо, изменение выбранной структуры
 
 
main()
{
setlocale(LC_CTYPE,"Russian");
char c;
FILE *tf;
printf ("Выберете нужный вам режим:\n");
while (1)
{
 puts(" 1 – Новый файл");
 puts(" 2 – Просмотр файла");
 puts(" 3 – Добавление в файл");
 puts(" 4 – Поиск по фамилии и изменение");
 puts(" 0 - Выход");
 c=getch();
 switch(c)
 { case '1':input(tf);break;
  case '2':print(tf);break;
  case '3':app(tf);break;
  case '4':find(tf);break;
  case '0':return 0;
  default : puts(" Неверный режим");
 }
}
}
 
 
void input(FILE *tf)
{
...

Добавлено через 2 часа 54 минуты
Кто-нибудь может идей дать хотя бы?...

@BumerangSP · 01.07.2012, 23:15

Там что-то не работает или просто забыли убрать { } ?

Не, Вы же нашли этот код где-то (упорядоченность по датам), сортировка Вам известна, я и не стал писать

@Beatles · 02.07.2012, 03:10 **[ТС]**

Хех)) Ясно) Ну, судя по всему, его не сильно менять придётся. Muchas gracias)

Добавлено через 3 часа 47 минут
Дописал наконец-таки программу) Возможно, кому-нибудь понадобится, так что выложу её полностью:

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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
type ZNAK = record
 name:string[20];
 ZNAK2: string[15];
 BDAY: array [1..3] of integer;
end;
 var str: array [1..8] of znak;
     c:char;
     tf:text;
     kolich_elem:integer;
     T: ZNAK;
 
 
 
procedure input(var tf: text);
var i,n: integer;
begin
 rewrite(tf);
 writeln('Сколько будете вводить записей? ');
 readln(n);
 kolich_elem:=n;
 for i:=1 to n do
  begin
   writeln('Фамилия, имя ');
   readln(str[i].name);
   writeln('Знак зодиака ');
   readln(str[i].znak2);
   writeln('Дата рождения ');
   writeln('День ');
   readln(str[i].bday[1]);
   writeln('Месяц ');
   readln(str[i].bday[2]);
   writeln('Год ');
   readln(str[i].bday[3]);
  end;
 
 for i:=1 to n do
  begin
   writeln(tf,str[i].name);
   writeln(tf,str[i].znak2);
   writeln(tf,str[i].bday[1]);
   writeln(tf,str[i].bday[2]);
   writeln(tf,str[i].bday[3]);
  end;
  close(tf);
end;
 
 
 
 
procedure print(var tf: text);
var i,j: integer;
begin
 i:=1;
  rewrite(tf);
 //_______   сортируем по датам рождения
 for i:= 1 to (kolich_elem-1) do
   for j:=1 to (kolich_elem-i) do
 
if((1000*str[j].bday[1]+50*str[j].bday[2]+str[j].bday[3])>(1000*str[j+1].bday[1]+50*str[j+1].bday[2]+str[j+1].bday[3])) then
 begin
  T:=str[j];
  str[j]:=str[j+1];
  str[j+1]:=T;
 end;
 
 for i:=1 to kolich_elem do
  begin
   writeln(tf,str[i].name);
   writeln(tf,str[i].znak2);
   writeln(tf,str[i].bday[1]);
   writeln(tf,str[i].bday[2]);
   writeln(tf,str[i].bday[3]);
  end;
  close(tf);
 
//________
 
 reset(tf);
 i:=1;
 while not eof(tf) do
  begin
   write('Фамилия, имя ');
   readln(tf,str[i].name);
   writeln(str[i].name);
   write('Знак зодиака ');
   readln(tf,str[i].znak2);
   writeln(str[i].znak2);
   write('День');
   readln(tf,str[i].bday[1]);
   writeln(str[i].bday[1]);
   write('Месяц ');
   readln(tf,str[i].bday[2]);
   writeln(str[i].bday[2]);
   write('Год ');
   readln(tf,str[i].bday[3]);
   writeln(str[i].bday[3]);
   inc(i); 
  end;
 close(tf);
end;
 
 
 
 
procedure app(var tf: text);
var i,n: integer;
begin
 Append(tf);
 writeln('Сколько хотите дописать записей? ');
 readln(n);
 
 for i:=(kolich_elem+1) to (kolich_elem+n) do
  begin
   writeln('Фамилия, имя ');
   readln(str[i].name);
   writeln('Знак зодиака ');
   readln(str[i].znak2);
   writeln('Дата рождения ');
   writeln('День ');
   readln(str[i].bday[1]);
   writeln('Месяц ');
   readln(str[i].bday[2]);
   writeln('Год ');
   readln(str[i].bday[3]);
  end;
 
 for i:=(kolich_elem+1) to (kolich_elem+n) do
  begin
   writeln(tf,str[i].name);
   writeln(tf,str[i].znak2);
   writeln(tf,str[i].bday[1]);
   writeln(tf,str[i].bday[2]);
   writeln(tf,str[i].bday[3]);
  end;
  
 kolich_elem:=kolich_elem + n;
  close(tf);
end;
 
 
 
 
procedure find(var tf: text);
var i,n,p,j,z: integer; findname:string[20]; tr:string;
begin
 rewrite(tf);
 writeln('Введите искомую фамилию: ');
 readln(findname);
 
 z:=length(findname);
 j:=0;
 
 
 for i:=1 to kolich_elem do
    begin
    p:=length(str[i].name)-length(findname);
    tr:=str[i].name;
    Delete (tr, (z+1), p);
    if (findname=tr) then
         begin
            writeln(str[i].name);
            writeln(str[i].znak2);
            writeln(str[i].bday[1]);
            writeln(str[i].bday[2]);
            writeln(str[i].bday[3]);
            j:=1;
 
         end;
    end;
    
if(j=0) then
      begin
        writeln ('Нет такой личности!');
        writeln ();
      end;
close(tf);
writeln ();
end;
 
 
 
begin
 assign(tf,'file.txt');
 writeln ('Выберете нужный вам режим: ');
 while (true) do
  begin
   writeln(' 1 – Новый файл');
   writeln(' 2 – Просмотр файла');
   writeln(' 3 – Добавление в файл');
   writeln(' 4 – Поиск по фамилии');
   writeln(' 0 - Выход');
   readln(c);
   case c of
    '1':input(tf);
    '2':print(tf);
    '3':app(tf);
    '4':find(tf);
    '0':break;
    else
     writeln('Неверный режим!');
   end;
  end;
end.

Новые блоги и статьи Все статьи Все блоги /
Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .	Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .	попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .	Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .
Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .	Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .

Опции темы