RinaIds miniblogs

Katra dzīvē pienāk mirklis, kad kontroldarbs būs jāiet pārrakstīt konsultācijā

Paskāla sintaksi nezinu, tāpēc uzrakstīšu algoritmu. Definē 3 mainīgos - dienai (integer), todien patērētajam cementam (double), cementa summai (double) - un piešķir tiem sākumvērtības. Ciklā palielini dienu par 1, cementa daudzumu reizini ar koeficientu 1.2 un cementa summai skaiti klāt cementa daudzumu.

Tam vajadzētu izskatīties kaut kā tā, mēģināju arī palaist caur onlaina kompilatoru un it kā vajadzētu būt pareizi.

program repeatUntilLoop;
var
 diena: integer;
 cements: double;
 summa: double;



begin
 diena := 0;
 cements := 5;
 summa := 5;

 repeat
 diena := diena + 1;
 cements := cements*1.2;
 summa := summa+cements
 until summa > 200;
 writeln('diena: ', diena);
end.

Pieņemot, ka tu Pascal mācies vismaz kopš septembra, tā laikam nav labākā lieta, ko tev mācīties, ja nevari izdarīt kaut ko tik vienkāršu