Система задач и упражнений по языку программирования Pascal. Часть 2 - 23 стр.

UptoLike

ВУЗ: 

ЯГПУ им. Ушинского | Ярославль

Составители: 

Рубрика: 

23
(2) По данным заболеваемости на заводах Ярославля определить завод, на котором
меньше всего пропущено дней по болeзни.
I.program zdorow;
Type zawod=record
Kolrab:integer;
Den:integer; end;
Var Z:array[1..5] of zawod;
II.program zdorow;
type zawod=record
naz:string[40];
kolrab:array[1..500] of
integer;
den:integer; end;
var Z:array[1..5] of zawod;
III.program zdorow;
type zawod=record
naz:string[40];
kolrab:integer;
den:integer; end;
var Z:array[1..5] of zawod;
(3) По результатам игр в футбольном турнире определить команду победителя.
I.program turnire;
Ture komand=record
Naz:string[15];
Rez:array[1..6] of real;
Ocn:integer; end;
Var K:array[1..7] of
komand;
II.program turnire;
ture komand=record
naz:string[15];
rez:array[1..6] of string[5];
ocn:array[1..6] of real; end;
var K:array[1..7] of
komand;
III.program turnire;
ture komand=record
naz:string[15];
rez:array[1..6] of string[5];
ocn:integer; end;
var K:array[1..7] of
komand;
(4) По данным изменениям валютного курса для ряда стран в течение
текущего года определить изменение курса в % для каждой страны.
I.program walyuta;
Type strana=record
Naz:string[20];
Dened:real;
Mestcurs:string[20]; end;
Var W:array[1..12] of
strana;
II.program walyuta;
type strana=record
naz:char;
dened:string[20];
mestcurs:array[1..12] of
real; end;
var W:array[1..12] of
strana;
III.program walyuta;
type strana=record
naz:string[20];
dened:string[20];
mestcurs:array[1..12] of
real; end;
var W:array[1..12] of
strana;
(5) По итоговой турнирной таблице по хоккею определить команду, забившую
больше всего шайб.
I.program turnir;
Type komanda=record
Naz:string[40];
Ocenka:integer;
Zab,prop:integer;end;
Var K:array[1..12] of
komanda;
II.program turnir;
type komanda=record
naz:string[40];
ocenka:array[1..15] of
string[5];
zab,prop:integer;end;
var C,K:array[1..12] of
komanda;
III.program turnir;
type komanda=record
naz:integer;
ocenka:integer;
zab,prop:real;end;
var K:array[1..12] of
komanda;
9. Напишите имя поля, которое отвечает за:
(1) результат последней игры i-ой команды, если заголовок программы имеет вид:
program turnir;
type komand=record
naz:string[15];
rez:array[1..6] of string[5];

Страницы