Λοιπόν προσπάθησα να το λύσω αυτά που έχω κάνει μέχρι τώρα είναι τα εξής.Την διαφορά επί της % πώς την βρίσκουμε?Τις δηλώσεις θα τις βάλω αύριο και κάτι ερωτηματικά που έχω ξεχάσει.Ευχαριστώ
Program dimoprasia;
Var
Begin
Writeln('Dose timi ekkinishs');
read(timi_ekkinisis);
prosfora:=timi ekkinisis;
repeat
Writeln('Dose prosfora');
readln(nea_prosfora);
Writeln('dose onoma');
readln(neo_onoma);
If nea_prosfora>prosfora then
begin
syn_prosfores:=syn_prosfores+1
palia_prosfora:=prosfora
prosfora:=nea_prosfora
onoma:=neo_onoma
end;
diafora:=nea_prosfora-palia_prosfora;
until nea_prosfora:=0 or syn_prosfores=100
Writeln('O/Η',neo_onoma,'pire to antikeimeno stin timi twn',nea_prosfora);
Διαφορά% = (nea_prosfora-prosfora)/prosfora *100
Μία διόρθωση στο προγραμματάκι σου ...
Begin
......
repeat
repeat
Writeln('Dose prosfora');
readln(nea_prosfora);
until nea_prosfora > prosfora;
Writeln('dose onoma');
readln(neo_onoma);
If nea_prosfora>prosfora then
........
until nea_prosfora:=0 or syn_prosfores=100
Ο έλεγχος εγκυρότητας πρέπει να γίνεται με repeat .. until. Πρόσεξε λίγο τις εκχωρήσεις παλιάς και νέας τιμής, βγαίνουν λαθάκια......
Αν χρειαστείς βοήθεια πες ........