Πως θα βάλω ρίζα;

[yodan000]

έχει βαλθεί να με τρελάνει σήμερα

Κώδικας: Επιλογή όλων

program hi(intput,output);
var a,b,c,d:real;
begin;
write('Δώσε τους 3 βαθμούς');
readln(a,b,c);
d:=(a+b+c)/3;
if (a>10) or (a<0) or (b>10) or (b<0) or (c>10) or (c<0) then
writeln('Μη αποδεκτά δεδομένα');
end
else d>=4.5 then
begin
writeln('Ο μαθητής περνάει');
end;
else d<4.5 then
writeln('Ο μαθητής δεν περνάει');
end
writeln('Πατήστε ENTER για να εξέλθετε του προγράμματος');
end.


αυτό εδώ που έχει λάθος; μου λέει πως μετά από κάθε end στις συνθήκες πρέπει να βάζω τελεία(.).

[hlias]

Απ'ότι βλέπω έχεις αρκετά λάθη...
1)Στο BEGIN δεν βάζουμε ";". Και καλό θα ήταν, το πρώτο BEGIN και το τελευταίο END. να τα γράφουμε με κεφαλαία γράμματα.
2)Στην 9η σειρά βλέπω ένα "end". Γιατί υπάρχει;
3)Πριν το else δεν βάζουμε ";" ΠΟΤΕ!
4)Και αν μπορείς να γράφεις με στοίχιση θα σε διευκολύνει.

ΠΧ:

Κώδικας: Επιλογή όλων

program p1;
uses crt;
var a:integer;
BEGIN
readln(a);
if a=0 then
writeln('miden') //paratirise to oti den exei ";" giati akolou8ei to else
else if a>0 then //meta to else mhn ksexnas to if
writeln('thetikos')
else
writeln('arnitikos');
END.


[yodan000]

δε βάζουμε end μετά από κάθε if ή else;
Υ.Γ. για να φτιάξω προγράμματα με γραφικό περιβάλλον μου είπαν να αρχίσω delphi ξέρετε κάποιον καλό οδηγό και τι προγράμματα χρειάζομαι;

[yodan000]

[codeprogram hi(input,output);
var a,b,c,d:real;
begin;
write('Δώσε τους βαθμούς');
readln(a,b,c);
d:=(a+b+c)/3;
if (a>10)or(a<0)or(b>10)or(b<0)or(c>10)or(c<0) then
begin
writeln('Μη αποδεκτά δεδομένα');
end
else if d>=4.5 then
begin;
writeln('Ο μαθητής περνάει');
end
else
begin
writeln('Ο μαθητής δεν περνάει');
end;
writeln('Πατήστε ENTER για να εξέλθετε του προγράμματος');
end.
][/code]λοιπόν το έφτιαξα.... το ερώτημα με την delphi ισχύει ακόμα και επίσης ποια είναι η διαφορά της pascal από την turbo pascal;

[hlias]

Για delphi σε Linux θα κατεβάσεις Lazarus IDE.

Το "end;" μπαίναι αφου έχει προηγηθεί ένα μπλοκ εντολών και ένα begin.
Αν μετα το if <συνθήκη> then ακολουθεί μια εντολή δεν θα την περικλείσεις σε begin <εντολή> end;
Η turbo pascal for windows (TPW) είναι IDE για τα windows.

Θα σου κανω ενα σχεδιαγραμμα αργότερα.

[yodan000]

που θα βρω οδηγό για delphi και turbo pascal;
η turbo δεν γίνεται στο linux;

[hlias]

Δεν μπορώ να καταλάβω γιατί θες την TPW στο Linux.

Για το θέμα με begin ... end; :

Κώδικας: Επιλογή όλων


if x=1 then
begin
writeln('Αυτό είναι ένα σύνολο εντολών");
writeln('Γι'αυτό άλλωστε βάζουμε και begin ... end;");
end //βλέπεις ότι δεν βάζω ; πριν το else
else
writeln('Εδώ έχουμε μια εντολή και δεν χρειάζεται begin ... end;");


[yodan000]

οκ ευχαριστώ οδηγό για delphi που θα βρω;