ערכתי לאחרונה בתאריך 16.10.05 בשעה 22:43 בברכה, TGR
זה הראשון שעשיתי, זה טוב ?מה לתקן ? program MatanS (input,output); var sum,chair,table,closet:integer; begin writeln ('Enter a price for chair'); readln (chair); writeln ('Enter a price for a table'); readln (table); writeln ('Enter a price for a closet'); readln (closet); sum:=chair+table+closet; writeln "this is the total sum:",sum ; end.
|
--------------------------------------
וזה השני...יש לתקן משהו ?
program MatanS (input,output); var grade1,grade2,grade3,grade4,grade5:integer; average:real; begin writeln ('Enter a grade for student 1'); readln (grade1); writeln " Enter a grade for student 2'); readln (grade2); writeln ('Enter a grade for student 3'); readln (grade3); writeln ('Enter a grade for student 4'); readln (grade4); writeln ('Enter a grade for student 5'); readln (grade5); average:=(grade1+grade2+grade3+grade4+grade5)\5; writeln ('the average is:',average'); end.
|
