Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
mi_muerte
1 / 1 / 0
Регистрация: 11.09.2013
Сообщений: 34
#1

Обработать данные результатов соревнований по бегу - Turbo Pascal

06.10.2013, 21:54. Просмотров 479. Ответов 1
Метки нет (Все метки)

Задание. Подготовить исходные данные в текстовом файле (не менее 10 строк).
Исходные данные хранятся в текстовом файле. Каждая строка данных занимает отдельную строку файла. Отдельные элементы строки отделяются запятой:
Название 1, число
Название 2, число
Ввести данные из файла. Вывести данные из файла на экран в виде таблицы. Выполнить вычисления, вывести результат на экран и записать в новый файл.

Обработать данные результатов соревнований по бегу
Результаты соревнований по бегу

Спортсмен Результат, сек

(до 20 символов) 99,99

Вывести данные призовых мест (с 1 по 3):
«Спортсмен», время
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.10.2013, 21:54
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Обработать данные результатов соревнований по бегу (Turbo Pascal):

Обработать данные результатов соревнований по бегу - Turbo Pascal
Обработать данные результатов соревнований по бегу Результаты соревнований по бегу Спортсмен Результат, сек ...

Обработать данные из файла - Pascal
нужна прога: 1) исходные данные(целые) берутся из файла кол-во данных не ограничено; 2) нужно отобрать мин, макс элементы; 3) найти...

Процедуры. Нужно написать программу "Визитка", выводящую в начало распечатки результатов данные об авторе программы. - Pascal
Нужно написать программу "Визитка", выводящую в начало распечатки результатов данные об авторе программы: ФИО номер группы, номер бригады,...

Даны результаты по бегу на дистанцию 100 метров трех спортсменов. Выбрать и напечатать лучший результат. - Turbo Pascal
Даны результаты по бегу на дистанцию 100 метров трех спортсменов. Выбрать и напечатать лучший результат. Спасибо!=) Добавлено...

Составить итоговый протокол соревнований на основании трех результатов соревнований по прыжкам в длину - C#
Тщетные попытки сделать курсовую работу. На основании трех результатов соревнований по прыжкам в длину(фамилии и результаты трех попыток)...

Хэш-таблица для хранения результатов соревнований - C#
Доброго времени суток, киберчане. Прошу у вас помощи. Не прошу написать сам текст программы, считаю это было уж слишком для меня. Просто...

1
Puporev
Модератор
52824 / 40635 / 13884
Регистрация: 18.05.2008
Сообщений: 94,253
07.10.2013, 14:36 #2
Без массивов и сортировки
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
uses crt;
{процедуры преобразования русского текста из файла .txt в программу и обратно}
procedure Convert(var s:string);
{ANSI -> ASCII}
var i:integer;
begin
for i:=1 to length(s) do
if ord(s[i]) in [192..239] then s[i]:=chr(ord(s[i])-64)
else if ord(s[i]) in [240..255] then s[i]:=chr(ord(s[i])-16)
else if ord(s[i])=168 then s[i]:=chr(ord(240))
else if ord(s[i])=184 then s[i]:=chr(ord(241));
end;
procedure Convert1(var a:string);{ASCII->ANSI}
var i:integer;
begin
for i:=1 to length(a) do
if ord(a[i]) in [128..175] then a[i]:=chr(ord(a[i])+64)
else if ord(a[i]) in [224..239] then a[i]:=chr(ord(a[i])+16)
else if ord(a[i])=240 then a[i]:=chr(ord(168))
else if ord(a[i])=241 then a[i]:=chr(ord(184));
end;
var f,g:text;
    s,ss,s1,s2,s3,sm1,sm2,sm3:string;
    a,b,c,mn1,mn2,mn3:real;
    cd:integer;
begin
clrscr;
assign(f,'input.txt');
reset(f);
writeln('----------------------------------');
writeln('|      Фамилия       | Результат |');
writeln('----------------------------------');
{прочитаем первые три, определим мин1,мин2,мин3}
readln(f,s);
s1:=copy(s,1,pos(',',s)-1);
Convert(s1);
delete(s,1,pos(',',s));
val(s,a,cd);
gotoXY(1,wherey);write('| ',s1);
gotoXY(22,wherey);write('|',a:7:2);
gotoXY(34,whereY);writeln('|');
readln(f,s);
s2:=copy(s,1,pos(',',s)-1);
Convert(s2);
delete(s,1,pos(',',s));
val(s,b,cd);
gotoXY(1,wherey);write('| ',s2);
gotoXY(22,wherey);write('|',b:7:2);
gotoXY(34,whereY);writeln('|');
readln(f,s);
s3:=copy(s,1,pos(',',s)-1);
Convert(s3);
delete(s,1,pos(',',s));
val(s,c,cd);
{выведем в таблицу}
gotoXY(1,wherey);write('| ',s3);
gotoXY(22,wherey);write('|',c:7:2);
gotoXY(34,whereY);writeln('|');
{найдем 1,2,3 мининимальный}
if a<b then
 begin
  mn1:=a;
  sm1:=s1;
  mn2:=b;
  sm2:=s2
 end
else
 begin
  mn1:=b;
  sm1:=s2;
  mn2:=a;
  sm2:=s1
 end;
if c<mn1 then
 begin
  mn3:=mn2;
  sm3:=sm2;
  mn2:=mn1;
  sm2:=sm1;
  mn1:=c;
  sm1:=s3;
 end
else if c<mn2 then
 begin
  mn3:=mn2;
  sm3:=sm2;
  mn2:=c;
  sm2:=s3
 end
else
 begin
  mn3:=c;
  sm3:=s3
 end;
{прочитаем остальные строки}
while not eof(f) do
 begin
  readln(f,s);
  ss:=copy(s,1,pos(',',s)-1);
  Convert(ss);
  delete(s,1,pos(',',s));
  val(s,c,cd);
  gotoXY(1,wherey);write('| ',ss);
  gotoXY(22,wherey);write('|',c:7:2);
  gotoXY(34,whereY);writeln('|');
  {найдем среди них 1,2,3 мин, если есть меньше первых 3х}
  if c<mn1 then
   begin
    mn3:=mn2;
    sm3:=sm2;
    mn2:=mn1;
    sm2:=sm1;
    mn1:=c;
    sm1:=ss;
   end
  else if c<mn2 then
   begin
    mn3:=mn2;
    sm3:=sm2;
    mn2:=c;
    sm2:=ss
   end
  else
   begin
    mn3:=c;
    sm3:=ss
   end;
 end;
{выведем первые 3 минимальных}
writeln('----------------------------------');
writeln('Призеры:');
writeln('----------------------------------');
writeln('|      Фамилия       | Результат |');
writeln('----------------------------------');
gotoXY(1,wherey);write('| ',sm1);
gotoXY(22,wherey);write('|',mn1:7:2);
gotoXY(34,whereY);writeln('|');
gotoXY(1,wherey);write('| ',sm2);
gotoXY(22,wherey);write('|',mn2:7:2);
gotoXY(34,whereY);writeln('|');
gotoXY(1,wherey);write('| ',sm3);
gotoXY(22,wherey);write('|',mn3:7:2);
gotoXY(34,whereY);writeln('|');
writeln('----------------------------------');
close(f);
assign(f,'output.txt');
rewrite(f);
Convert1(sm1);
Convert1(sm2);
Convert1(sm3);
writeln(f,sm1,',',mn1:0:2);
writeln(f,sm2,',',mn2:0:2);
writeln(f,sm3,',',mn3:0:2);
close(f);
writeln('Призеры записаны в файл output.pas');
readln
end.
Процедуры конвертации есть здесь.
Конвертация строк
Пример исходного файла
Петров,15.25
Сидоров,14.06
Иванов,13.58
Осенин,14.95
Крайнев,13.48
Половцев,15.00
Стариков,14.02
Фофанов,14.00
Андреев,15.23
Лобанов,13.67
Получится
Крайнев,13.48
Иванов,13.58
Лобанов,13.67
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.10.2013, 14:36
Привет! Вот еще темы с ответами:

Можете пожалуйста создать базу данных для расчета результатов соревнований - MS Access
Разработать информационную систему «Старт» для подсчета результатов соревнований. БД состоит из трех таблиц: • «Участники»: фамилия и...

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

Разработать информационную систему "Старт" для подсчета результатов соревнований - MS Access
База данных состоит из трех таблиц: &quot;Участники&quot;: * фамилия и инициалы; * стартовый номер (ключевое поле); * шифр группы...

Разработать информационную систему "Старт" для подсчета результатов соревнований. База данных - MS Access
Помогите пожалуйста создайте базу данных. Очень буду благодарен Разработать информационную систему &quot;Старт&quot; для подсчета результатов...


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

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

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