Vis vienkāršākie paskāla cikli, skolas uzdevums, netikeu gudrs.

[SkyFinder]

Sveiki gudrie programmētāji!

Jums jau tas noteikti šķitīs ārkārtīgi viegli, bet es laužu galvu jau pāris stundas un tūdaļ būs jādodas uz darbu, laika vairs nav, tāpēc rakstu šeit.

 

Man 12.kl uzdevums programmēšanā skan šādi "Izveidot programmu, kas izdrukā skaitļa 3 pakāpēs (līdz 6.pakāpei). "

 

Būtu ļoti labi, ka kāds man varētu šo paskaidrot/parādīt, jo tik tiešām centos izdomāt, bet diemžēl bez rezultātiem.

 

program uzdevums_91;

uses crt;

var a, b: integer;

 

begin

clrscr;

 

writeln ('Skaitla 3 pakapes, lidz 6.pakapei.');

for a:=3 to 729 do

write ();

 

writeln;

readln;

end.

 

Vel pie tēmas minēti ir: for..to..do, for..downto..do, repeat..until, while..do. Man nepielec, kad vis labāk kuru ir izmanto, ir jāizmanto obligāti, konkrētais?

[Vilx-]

Nē, visi cikli ir fundamentāli vienādi. Izmanto to, kurš konkrētajā situācijā ir ērtāks.

 

Taču, ja uzdevums ir tik truls kā šis (tur taču nav rakstīts, ka obligāti jāizmanto cikls, vai ne?), tad kāpēc vienkārši nesarēķināt tos 6 skaitļus uz kalkulatora, un neierakstīt 6 reizes writeln?

[VIL]

x:=3;
for i:=1 to 6 do
 begin
 WriteLn(x);
 x:=x*3;  
 end;

Labots Novembris 12, 2012 - Vilx-

[arrow]

Tu vari izmantot jebkuru, ja nav speciāli definēts.

Šeit ir kaut kas līdzīgs tavai programmai, tikai notiek skaitļa un pakāpes ievade. Savām vajadzībām, es domāju, ka mācēsi pārveidot.

 

program pakape;
var a,b,c,d: integer;
begin
 c:=0;
 writeln('Ievadiet skaitli ko kapinat');
 readln(a);
 d:=a;
 writeln('Cik reizes kaapinaat?');
 readln(b);
While b > c do
 begin
	 d := d*a;
	 writeln('Skaitlis ',a, ' pakaapee ',c+2,' ir ',d);
	 c:=c+1;
 end;
	 readln(a);
end.

Labots Novembris 12, 2012 - arrow

[SkyFinder]

Es jau zināju, ka beigās no vienkāršības, par sevi varēšu ierēkt. Nez kāpēc gribas pataisīt lietu sarežģītāku nekā, tā patiesībā ir.

Lieliski paldies Jums!