Προπαίδεια με Pascal

Program multi;
uses crt;
var i,j:integer;
Begin
clrscr;
for i:=1 to 10 do
begin
    for j:=1 to 10 do
        write(i*j:5);
    writeln;
end;
readln;
End.

Πρόγραμμα με όριο γινομένου με repeat και while

Να γίνει πρόγραμμα με τις δομές επανάληψης repeat και while που θα διαβάζει αριθμούς και θα τους πολλαπλασιάζει μεταξύ τους μέχρι το γινόμενο να γίνει μεγαλύτερο του 10000 (ή όσο το γινόμενο είναι μικρότερο ή ίσο με το 10000).

Λύση με repeat

Λύση με while

Άθροισμα αριθμών με όριο

Να γίνουν 2 προγράμματα. Το πρώτο με τη δομή επανάληψης while και το δεύτερο με τη δομή επανάληψης repeat. Το πρόγραμμα θα διαβάζει ένα συγκεκριμένο αριθμό, που θα είναι το όριο. Μετά, θα διαβάζει αριθμούς μέχρι το άθροισμα τους να ξεπεράσει τον αριθμό όριο. Π.χ. Αν ο αριθμός όριο είναι το 100, θα ζητάει αριθμούς μέχρι το άθροισμα τους να ξεπεράσει το 100.





Λύση με while

Λύση με repeat

Επανάληψη με while και repeat

Να γίνoυν προγράμματα με τη χρήση των δομων επανάληψης while και repeat που να διαβάζουν το πλήθος των αριθμών που θα προστεθούν και μετά να ζητάνε τόσους αριθμούς (όσο και το πλήθος) και να τους αθροίζουν μεταξύ τους. Στο τέλος να εμφανίζεται και το άθροισμα. (Π.χ. αν ο αριθμός που θα δώσουμε για πλήθος είναι 5, θα ζητηθούν 5 αριθμοί και θα προστεθούν μεταξύ τους).



Λύση Άσκησης με while

Λύση Άσκησης με repeat

Επανάληψη με for

Να γίνει πρόγραμμα με τη χρήση της δομής επανάληψης for που να διαβάζει το πλήθος των αριθμών που θα προστεθούν και μετά να ζητάει τόσους αριθμούς (όσο και το πλήθος) και να τους αθροίζει μεταξύ τους. Στο τέλος να εμφανίζεται και το άθροισμα. (Π.χ. αν ο αριθμός που θα δώσουμε για πλήθος είναι 5, θα ζητηθούν 5 αριθμοί και θα προστεθούν μεταξύ τους).




Λύση Άσκησης