Как сделать сортировку по полу человека?

Question

[Vladislav200164]

Вообще у меня такое задание: Составить программу для задачи: в февральскую зарплату выдать премию работникам мужского пола в размере 100руб. Данные о сотрудниках ввести с клавиатуры. В выходной файл ввести табель с указанием ФИО работника, его пола, оклада, премии и суммы выплаты. Нужна ваша помощь пожалуйста

Answer 1

[Hemul GM]

Вводишь всё в массив. Сортируешь массив по значению пола. Готово.

Я тут не вижу твоих попыток и не понятно, что у тебя не получилось.

Comments

[Vladislav200164]

Ну вот моя программа, ошибка в 4 строке снизу там где про пол
Program Pascal;
type zap=record
fio:string[20];{FIO rabotnika}
pol:string[10];{POL rabotnika}
zp:real;{oklad}
st:integer;{premia}
sumvyp:real;{summa vyplat}
end;
var tab:array[1..10]of zap;
i,n:integer;
r:text;
Begin
assign(r,'res-6');rewrite(r);
writeln('Kol-vo rabotnikov-?');readln(n);
writeln('Vvedite spisok FIO');
writeln('Vvedite Pol rabotnika');
writeln('Oklad');
for i:=1 to n do begin
readln(tab[i].fio);
readln(tab[i].pol);
readln(tab[i].zp);
end;
Writeln(r,' FIO ',' POL ',' oklad ',' premia ',' summa vyplat');
for i:=1 to n do
with tab[i] do begin
if pol='m' then st:=100
else st:=0;
sumvyp:=zp+st;
writeln(r,fio,'':20-length(fio),r,pol,'':10-length(pol)zp:7:2,st:7,sumvyp:12:2);
end;
close(r);
END.

Answer 2

[Василий Банников]

А в каком месте тут сортировка то нужна? просто делаешь if sex = 'MALE' then bonus := 100; else bonus := 0;
И выводишь

Comments

[Vladislav200164]

Ну вот моя программа, я почти так же писал как вы написали, ошибка в 4 строке снизу там где про пол
Program Pascal;
type zap=record
fio:string[20];{FIO rabotnika}
pol:string[10];{POL rabotnika}
zp:real;{oklad}
st:integer;{premia}
sumvyp:real;{summa vyplat}
end;
var tab:array[1..10]of zap;
i,n:integer;
r:text;
Begin
assign(r,'res-6');rewrite(r);
writeln('Kol-vo rabotnikov-?');readln(n);
writeln('Vvedite spisok FIO');
writeln('Vvedite Pol rabotnika');
writeln('Oklad');
for i:=1 to n do begin
readln(tab[i].fio);
readln(tab[i].pol);
readln(tab[i].zp);
end;
Writeln(r,' FIO ',' POL ',' oklad ',' premia ',' summa vyplat');
for i:=1 to n do
with tab[i] do begin
if pol='m' then st:=100
else st:=0;
sumvyp:=zp+st;
writeln(r,fio,'':20-length(fio),r,pol,'':10-length(pol)zp:7:2,st:7,sumvyp:12:2);
end;
close(r);
END.

[Василий Банников]

Vladislav200164, а зачем сортировать?
Вообще сортировать точно также, как и числа, только с поправкой на то, что всего 2 возможных значения

[Vladislav200164]

Василий Банников, у меня по заданию тип сортировка, а ошибка заключается, что: нельзя использовать read и write для переменных этого типа.

[Василий Банников]

Vladislav200164, как это нельзя?

[Vladislav200164]

Василий Банников, я дпже не знаю, что это за ошибка(лично у меня турбо паскаль, просто нету возможности в другом паскале проверить, мб там всё нормально)