Reikia pagalbos su pascal

Perkant 10 ir daugiau vienodu prekiu suteikiama p procentu nuolaida. Zinomas perkamu prekiu skaicius n ir vienos prekes kaina k. Parasykite programa, kuri apskaiciuotu, kiek reikia moketi uz pirkini.

Dekui :)

Perkant 10 ir daugiau vienodu prekiu suteikiama p procentu nuolaida. Zinomas perkamu prekiu skaicius n ir vienos prekes kaina k. Parasykite programa, kuri apskaiciuotu, kiek reikia moketi uz pirkini.

Dekui :)

panaudok if.

neina

Perkant 10 ir daugiau vienodu prekiu suteikiama p procentu nuolaida. Zinomas perkamu prekiu skaicius n ir vienos prekes kaina k. Parasykite programa, kuri apskaiciuotu, kiek reikia moketi uz pirkini.

Dekui :)

program skaiciuojam;
var n, p : real;
begin
writeln('Prekiu skaicius'); readln(n);
writeln('Prekes kaina'); readln(k);
writeln('Nuolaida'); readln(p);
if n >= 10 then writeln(k - (k * p / 100))
else n < 10 then writeln(n * k);
end.

Neatsimenu pascal'io sintaksės jau, bet turėtu veikt.

P.S. kintamieji real tipo. Nusistayk pats kiek išsivesi skaičių po kablelio.

program skaiciuojam;
var n, p : real;
begin
writeln('Prekiu skaicius'); readln(n);
writeln('Prekes kaina'); readln(k);
writeln('Nuolaida'); readln(p);
if n >= 10 then writeln(k - (k * p / 100))
else n < 10 then writeln(n * k);
end.

 

Neatsimenu pascal'io sintaksės jau, bet turėtu veikt.

P.S. kintamieji real tipo. Nusistayk pats kiek išsivesi skaičių po kablelio.

Šiek tiek nelogiška pirkti dvi ir tris ketvirtadalius prekės, todėl n turėtų būti integer/longinti priklauso ar daug prekių bus :)

program nuolaida;

var p,n,k : longint;

begin

WriteLn('Prekiu skaicius');

readln(n);

Writeln('Vienos prekes skaicius');

readln(k);

Writeln('Nuolaida');

readln(p);

if n>=10

then

Readln;

end.

tiek padariau, o kaip toliau rasyti?

program nuolaida;
var p,n,k,viso,viso2 : real;
begin
WriteLn('Prekiu skaicius');
readln(n);
Writeln('Vienos prekes kaina');
readln(k);


Writeln('Nuolaida');
readln(p);
if n>=10
then
  begin
viso:= n*k ;
viso2:= (viso*p) /100;
viso:=viso - viso2;
writeln('Moketi ' ,viso:2:2, ' lt')
end
else
if n<10 then
begin
viso:= n*k;
writeln('Nuolaida netaikoma');
writeln('Moketi ',viso:2:2,' lt');
  end;
Readln;
end.

Va taip pagal mane :)

taip pat uzsuk į programavimopamokos.net

o kaip reikia nustatyti, kiek isvesti po kablelio?

Šiek tiek nelogiška pirkti dvi ir tris ketvirtadalius prekės, todėl n turėtų būti integer/longinti priklauso ar daug prekių bus :)

O jei nuolaida bus 35.5%? :-)

var n : integer; p, k : real;

EDIT: Tfu, nepabaigiau skaityt pranešimo Tavo. :-) Na iš esmės ir real tiks čia. Klaidos nėra, nebent būtų griežta sąlyga.

o kaip reikia nustatyti, kiek isvesti po kablelio?

writeln('viso moketi', viso:2:2)

paryskintas ir pabrauktas skaicius nurodo kiek palikti po kablelio .

aisq, o pirmas skaicius ka nurodo?

aisq, o pirmas skaicius ka nurodo?

Skaičiaus poziciją.

aisq, o pirmas skaicius ka nurodo?

Pakeisk tuos skaičius didesniais, pamatysi rezultatą.

Visi variantai cia teisingi, tiesiog mano bus daugiau optimizuotas :P Gal kam pravers.

program nuolaida;
var n, p, k : integer;
sum : real;
begin
 WriteLn('Vienos prekes kaina: ');
 Readln(k);
 WriteLn('Nuolaida: ');
 Readln(p);
 WriteLn('Iveskite kiek prekiu imsite: ');
 Readln(n);

 sum := n * k;

 if n < 10 then
Writeln('Moketi ',sum,' lt')
 else
begin
   	sum := sum - (sum * p / 100);
   	Writeln('Moketi ',sum:4:2,' lt');
end;
 Readln;
end.

Visi variantai cia teisingi, tiesiog mano bus daugiau optimizuotas :P Gal kam pravers.

program nuolaida;
var n, p, k : integer;
sum : real;
begin
 WriteLn('Vienos prekes kaina: ');
 Readln(k);
 WriteLn('Nuolaida: ');
 Readln(p);
 WriteLn('Iveskite kiek prekiu imsite: ');
 Readln(n);

 sum := n * k;

 if n < 10 then
Writeln('Moketi ',sum,' lt')
 else
begin
   	sum := sum - (sum * p / 100);
   	Writeln('Moketi ',sum:4:2,' lt');
end;
 Readln;
end.

Mažiau ramų suvalgys ;D