program procedures_with_arrays;
procedure DIAKRISH(var filo:char, bathmos:integer);
begin
if filo='A' then
begin
writeln('Είσαι άνδρας');
if bathmos > 10 then
begin
writeln('Μπράβο Πέρασες αγόρι μου');
end
else
begin
writeln('Δυστυχώς Κόπηκες αγόρι μου');
end
;
end
else
begin
writeln('Είσαι Κορίτσι');
if bathmos > 10 then
begin
writeln('Μπράβο Πέρασες κορίτσι μου');
end
else
begin
writeln('Δυστυχώς Κόπηκες κορίτσι μου');
end
;
end
;
end
;
var
onoma:string;
filo:char;
bathmos:integer;
begin
writeln('Δώσε το όνομά, το φύλο σου και το βαθμό σου');
readln(onoma);
readln(filo);
readln(bathmos);
while onoma <> 'TELOS' do
begin
DIAKRISH(filo,bathmos);
writeln('Δώσε το όνομά, το φύλο σου και το βαθμό σου');
readln(onoma);
if onoma = 'TELOS' then
begin
writeln('Τελειώσαμε. Ευχαριστώ για τις πληροφορίες');
end
else
begin
readln(filo);
readln(bathmos);
end
;
end
;
end.
procedure DIAKRISH(var filo:char, bathmos:integer);
begin
if filo='A' then
begin
writeln('Είσαι άνδρας');
if bathmos > 10 then
begin
writeln('Μπράβο Πέρασες αγόρι μου');
end
else
begin
writeln('Δυστυχώς Κόπηκες αγόρι μου');
end
;
end
else
begin
writeln('Είσαι Κορίτσι');
if bathmos > 10 then
begin
writeln('Μπράβο Πέρασες κορίτσι μου');
end
else
begin
writeln('Δυστυχώς Κόπηκες κορίτσι μου');
end
;
end
;
end
;
var
onoma:string;
filo:char;
bathmos:integer;
begin
writeln('Δώσε το όνομά, το φύλο σου και το βαθμό σου');
readln(onoma);
readln(filo);
readln(bathmos);
while onoma <> 'TELOS' do
begin
DIAKRISH(filo,bathmos);
writeln('Δώσε το όνομά, το φύλο σου και το βαθμό σου');
readln(onoma);
if onoma = 'TELOS' then
begin
writeln('Τελειώσαμε. Ευχαριστώ για τις πληροφορίες');
end
else
begin
readln(filo);
readln(bathmos);
end
;
end
;
end.
Δεν υπάρχουν σχόλια:
Δημοσίευση σχολίου