Задача 6 Урок 17
Primary tabs
Решите предыдущую задачу:
С использованием процедуры, которая разбирала бы очередную строку, изменяя по ссылке значения двух перемененных (одна для имени и одна для балла), уже после вызова этой процедуры для очередной строки записывайте очередные значения переменных в массивы (каждую в свой).
program lesson17_6; procedure getData(s: string; var name: string; var ball: integer); var sBall: string = ''; i: integer; begin for i := 1 to length(s) do if (s[i] >= '0') and (s[i] <= '9') then sBall := sBall + s[i] else if s[i] <> ' ' then name := name + s[i]; val(sBall, ball); end; var s: array[1..10] of string; strArr: array[1..3] of string; intArr: array[1..3] of integer; name: string; i, ball, max, index: integer; begin writeln('specify the name and the ball: '); for i := 1 to 10 do begin write(i, '. '); readln(s[i]); if s[i] = 'end' then break; end; ball := 0; for i := low(strArr) to high(strArr) do begin name := ''; getData(s[i], name, ball); strArr[i] := name; intArr[i] := ball; end; max := 0; for i := 1 to 3 do if intArr[i] > max then begin max := intArr[i]; index := i; end; writeln('winner: ', strArr[index], ' ', intArr[index]); readln(); end.
- Log in to post comments
- 803 reads
vedro-compota
Wed, 09/08/2021 - 19:31
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)