5. je nepovinná...velmi vďačný vám budem ja, kukiak a SRneC.
Takže toto máme na zajtra ráno Keby niekto aspon jedno pls:
1) Napíšte program, ktorý vypočíta a vypíše cenu dobierky za balík na pošte. V programe je cena poštovného zapísaná ako konštanta v hodnote 50,- Sk. Cenu za kus a počet kusov zadáva používateľ. Poštovné sa platí za balík. Do balíka sa zmestí max. 50 kusov.
2) Napíšte program, ktorý načíta od používateľa 3 čísla a vypíše ich od najmenšieho po najväčšie.
3) Napíšte program Bezúročná pôžička. Používateľ zadáva výšku pôžičky a mesačnú splátku. Program vypíše koľko rokov a mesiacov budeme sporiť. V prípade, že posledná splátka vyjde nižšia ako výška mesačnej splátky, vypíše aj jej výšku.
5) Vytvorte program, ktorý bude zisťovať, ktorou z číslic je dané celé kladné číslo deliteľné
program balik;
const l=50;
var i,x,cena:integer;
begin
writeln('zadajte pocet kusov');
readln(i);
if i>50 then writeln('prilis vela kusov') else begin
writeln('zadajte cenu za kus');
readln(x);
cena:=50+i*x;
writeln('cena je: ',cena,', - Sk');
end;
readln;
end.
5: vypise vsetky vsetky cislice ktorymy je delitelne,
program cislo;
var x,y:longint;
begin
writeln('zadaj cele kladne cislo: ');
readln(x);
writeln('cislo je delitelne cislicami: ');
for y:=1 to 9 do if x mod y=0 then writeln(y);
readln;
end.
program cisla;
var x,i,o:integer;
begin
writeln('zadajte tri cisla');
readln(x,i,o);
if x<o then begin
if x<i then begin
write(x,',');
if i<o then write(i,',',o) else write(o,',',i);
end;
end;
if i<o then begin
if i<x then begin
write(i,',');
if x<o then write(x,',',o) else write(o,',',x);
end;
end;
if o<x then begin
if o<i then begin
write(o,',');
if i<x then write(i,',',x) else write(x,',',i);
end;
end;
readln;
end.
v tej 3 snad kolko mesiacov budeme splacat nie? ci ako?
v tej 4 hodnotu akeho vyrazu? ak hociakeho zadaneho, tak to je neuskutocnitelne, lebo nevies ake vstupy mas cakat
Druha....ale skontrolujte to radsej ete niekto....
program cisla;
var p:array[1..3] of integer;
i,a: integer;
begin
writeln ('zadaj tri cisla');
for i:=1 to 3 do
readln (p);
for i:=1 to 3 do
if p>p[i+1] then
begin
a:=p;
p:=p[i+1]
p[i+1]:=a;
end;
writeln ('Cisla podla poradia su ',p[1],' ',p[2],' ',p[3]);
readln
end.
program bezurocna_pozicka;
var x,y,mesiacov,rok:longint;
begin
writeln('napiste kolko ste si pozicali: ');
readln(x);
writeln('po kolko splacat kazdy mesiac? ');
readln(y);
rok:=0;
while x>0 do begin
x:=x-y;
inc(mesiacov);
end;
while mesiacov>12 do begin
inc(rok);
mesiacov:=mesiacov-12;
end;
if (rok>0) and (x<>0) then
write('splacat budete ',rok,' rokov a ',mesiacov,' mesiacov, posledna splatka bude ',x+y, ' ,- Sk');
if (rok>0) and (x=0) then
write('splacat budete ',rok,' rokov a ',mesiacov,' mesiacov');
if (rok=0) and (x<>0) then
write('splacat budete ',mesiacov,' mesiacov, posledna splatka bude ',x+y, ' ,- Sk');
if (rok=0) and (x=0) then
write('splacat budete ',mesiacov,' mesiacov');
readln;
end.
su to sice dost zbuchane nie najefektivnejsie riesenia (audiotrack ani sa nepozeraj, ), ale tebe to urcite staci, aspon to vyzera vierohodnejsie ze si to urobil sam, nechcelo sa mi s tym piplat s optimaliazaciou
matwej napísal:su to sice dost zbuchane nie najefektivnejsie riesenia (audiotrack ani sa nepozeraj, ), ale tebe to urcite staci, aspon to vyzera vierohodnejsie ze si to urobil sam, nechcelo sa mi s tym piplat s optimaliazaciou
mesiacov:=x div y;
x:= x mod y;
if (x>0) then inc(mesiacov);
premennú rok tam nemusíš mať, to už vo výpise upravíš "mesiacov" a posledná splátka bude v x
//edit: a v tom zoraďovaní čísel si skúšal zadať tri rovnaké? V takom prípade tvoj program zlyhal lebo nevrátil výstup. Pridaj si tam znamienka rovnosti
), ale tebe to urcite staci, aspon to vyzera vierohodnejsie ze si to urobil sam, nechcelo sa mi s tym piplat s optimaliazaciou
V takom prípade tvoj program zlyhal lebo nevrátil výstup. Pridaj si tam znamienka rovnosti