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

@Vatryshka · Регистрация: 24.09.2009

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

О спортсменах известны фамилия, страна и баллы, нужно фамилию и страну победителя соревнований. Текстовый файл) Сделал но не правильно, нужно через строки)) Подскажите, как это примерно будет выглядеть

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
Program n1;
uses crt;
type sport=record
f1:string[30];
s:string[30];
ball:integer;
end;
var f:text;
sorevn:array[1..10] of sport;
i,n,v,m,max,maxn:integer;  s1,s2:string;
begin
clrscr;
write('Vvedite kolichestvo sportsmenov:'); readln(n);
assign(f,'sorevn2.txt');
rewrite(f);
for i:=1 to n do
begin
write('Familija:');
readln(sorevn[i].f1);
write('Strana:'); readln(sorevn[i].s);
write('Balli:');readln(sorevn[i].ball);
writeln('----------');
writeln(f,sorevn[i].f1,' ',sorevn[i].s,' ',sorevn[i].ball);
end;
close(f);
assign(f,'sorevn2.txt');
reset(f);
writeln('');
writeln('Pobeditel sorevnovaniy:');
 max:=sorevn[1].ball;
  i:=0;
  while not Eof(F) do begin
  inc(i);
  read(f,sorevn[i].f1);
  read(f,sorevn[i].s);
readln(f);
 if sorevn[i].ball>max then max:=sorevn[i].ball;
  if sorevn[i].ball=max then begin
  s1:=sorevn[i].f1;
  s2:=sorevn[i].s;
  maxn:=max;
  end;
  end;
  close(F);
  write(s1,' ',s2);
readkey
End.

Добавлено через 1 час 21 минуту
Нуу хотябы словесно)

Добавлено через 3 часа 12 минут
ап

@Puporev · 14.01.2010, 07:17

Создаем в папке с программой текстовый файл, типа такого

Code
1
2
3
4
kkkk aaaa 15
tttt bbbb 16
aaaa cccc 21
bbbb dddd 19

между словами ровно 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
uses crt;
type
sport=record
     fm,st:string[20];
     bl:integer;
     end;
var f:text;
    sp:array[1..100] of sport;
    name,s:string;
    n,t,c,i,j,imx:integer;
begin
clrscr;
write('Имя файла: ');
readln(name);
assign(f,name+'.txt');
{$I-}reset(f){$I+};
if IOResult<>0 then
 begin
  writeln('Файл не найден, программа будет закрыта.');
  readln;
  exit;
 end;
n:=0;
while not eof(f) do
 begin
  n:=n+1;
  readln(f,s);{читаем строку из файла}
  sp[n].fm:=copy(s,1,pos(' ',s)-1);{первое слово до пробела - фамилия}
  delete(s,1,pos(' ',s)); {удаляем с пробелом}
  sp[n].st:=copy(s,1,pos(' ',s)-1);{второе слово - страна}
  delete(s,1,pos(' ',s)); {удаляем}
  val(s,t,c);{остаток строки - баллы, преобразуем в число}
  sp[n].bl:=t;{записываем в поле баллы}
 end;
close(f);
imx:=1;
for i:=1 to n do
if sp[i].bl>sp[imx].bl then imx:=i; {находим номер спортсмена с наибольшими баллами}
write('Победил ',sp[imx].fm,'  страна - ',sp[imx].st);
readln
end.

@кот Бегемот · 14.01.2010, 08:51

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

@Андрей Борисови · 14.01.2010, 09:00

Сообщение от Vatryshka

страну победителя соревнований.

если делать ввод через read(a,b,c);
то страна с пробелом в развании вызовет ошибку
например Российская Федерация или Unated Kingdom (как-то-так)

напинайте преподу

@Vatryshka · 14.01.2010, 19:38 **[ТС]**

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
uses crt;
type
sport=record
     fm,st:string[20];
     bl:integer;
     f1:string[30];
     s:string[30];
     ball:integer;
     end;
     type
          n1=array[1..10] of sport;
var f:text;
    sp:array[1..100] of sport; sorevn:n1;
    name,s:string;
    n,t,c,i,j,imx:integer;
Procedure vvod(var sorevn:n1);
begin
clrscr;
write('Vvedite kolichestvo sportsmenov:'); readln(n);
assign(f,'sorevn2.txt');
rewrite(f);
for i:=1 to n do
begin
write('Familija:');
readln(sorevn[i].f1);
write('Strana:'); readln(sorevn[i].s);
write('Balli:');readln(sorevn[i].ball);
writeln('----------');
writeln(f,sorevn[i].f1,' ',sorevn[i].s,' ',sorevn[i].ball);
end;
close(f);
end;
 
begin
vvod(sorevn);
clrscr;
assign(f,'sorevn2.txt');
{$I-}reset(f){$I+};
if IOResult<>0 then
 begin
  writeln('File ne naiden.');
  readln;
  exit;
 end;
n:=0;
while not eof(f) do
 begin
  n:=n+1;
  readln(f,s);
  sp[n].fm:=copy(s,1,pos(' ',s)-1);
  delete(s,1,pos(' ',s));
  sp[n].st:=copy(s,1,pos(' ',s)-1);
  delete(s,1,pos(' ',s));
  val(s,t,c);
  sp[n].bl:=t;
 end;
close(f);
imx:=1;
for i:=1 to n do
if sp[i].bl>sp[imx].bl then imx:=i;
write('Pobedil ',sp[imx].fm,'  Strana - ',sp[imx].st, ' Balli -',sp[imx].bl);
readln
end.

Ну в общем в таком виде приняли

всем спс)

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	14.01.2010, 08:51
	Puporev , у него проблема была в другом: он в программе заполнял этот файл, а преподу ввод не понравился, мол, должно быть одной строкой 1