Powerdrax
-
Pranešimai
29 -
Užsiregistravo
-
Lankėsi
-
Atsiliepimai
0%
Turinio tipas
Forumas
Kalendorius
Parduotuvė
Akademija
Skelbimai
Powerdrax Pranešimai
-
-
permečiau akim, viena klaida sintaksinė užkliuvo, pačio kodo nenagrinėjau, pabandyk, gal padės ;)
Nepadėjo, vis tiek žymi klaidą. Šioje linijoje-var i,c,n:=integer;
-
Sveiki, gal kas galite padėti su siuo uždaviniu: 1. Viena cigaretė kainuoja a litų. Jaunuolis per dieną surūko b cigarečių. Po kiekvienų rūkymo metų, surūkytų cigarečių dienos norma i užauga c cigarečių. Parašykite programą kuri apskaičiuotų, kiek pinigų žmogus pavers sveikatai kenksmingais dūmais per n metų (tarkime, kad metai turi 365 dienas).
Bandžiau spęsti, bet meta klaida-syntax error expected but not found
Mano sprendimas:
program Noname0;
var i,c,n:=integer;
a,p,d,ats:=real;
begin
WriteLn('Iveskite vienos cigaretes kaina');
Readln(a);
writeln('Iveskite kiek cigareciu surukote per diena');
readln(i);
writeln('Keliomis cigaretemis kitais metais planuojate surukyti daugiau');
readln©;
writeln('Kiek metu planuojate rukyti');
readln(n);
d:=0;
ats:=0
while d<n do
begin
p:=a*i*365;
ats:=ats+p;
d:=d+1;
end;
writeln(ats);
readln();
readln();
end.
-
Yra kiek pamenu kinieciu alternatyva vShare
Pascal uždavinys
Programuotojų kampas
Atrašyta
Dėkoju, truputi dar reikėjo pakoreguoti, bet viskas gerai :)