Temos pavadinimas: WordPress, Shopify ir PHPFusion programuotojų bendruomenė :: Padėkit išspresti
Parašė H2O· 2010 Sau. 12 18:01:17
#1
PVZ: Žmogus kasdien uždirba tam tikrą skaičių (x) pinigų. Uždarbį įvesime klaviatūra. Paskaičiuokite kiek žmogus uždirba per vieną savaitę.
Program uždarbis;
Var x, uždarbis, i : integer;
Begin
Uždarbis := 0
For i:= 1 to 7 do
Begin
Writeln ( ‘Iveskite uzdarbi ’ , i);
Readln ( x);
Uzdarbis := uzdarbis + x;
End,
Žmogus gavęs atlyginimą kasdien išleidžia tam tikrą sumą pinigų (x) parašykite programą , kuri suskaičiuotų kas lieka po 8 dienų išlaidų.
Kiekvienos dienos išlaidas įveskite klaviatūra pvz uždarbis 400, o išlaidos 20, 50, 30, 100, 5, 10, 10, 15
Parašė ibodom· 2010 Sau. 12 18:01:48
#2
Paskalio nebemoki? ;DDD
Parašė Edvinas.· 2010 Sau. 12 18:01:36
#3
Toli grazu man cia :D
Parašė H2O· 2010 Sau. 12 18:01:29
#4
Na nemoku :D būk gerulis ir išspresk. :)
Parašė ibodom· 2010 Sau. 12 18:01:00
#5
Jei pateiktum normalią sąlygą išspręsčiau - bet čia nesupratau kokia turi būt progra..
Tu kelintokas?
Redagavo ibodom· 2010 Sau. 12 18:01:05
Parašė H2O· 2010 Sau. 12 18:01:58
#6
Kas buvo užduota ant lapo ta nupyliau čia.
aš dešimtokas jeigu manes klausi.
Redagavo H2O· 2010 Sau. 12 18:01:54
Parašė ibodom· 2010 Sau. 12 18:01:58
#7
program islaidoss;
var uzdarbis, islaidos, diena: integer;
begin
Writeln ('Uzdarbis:', ' ');
Readln ( uzdarbis );
for diena := 1 to 8 do
begin
WriteLn ( diena,' ', ' dienos islaidos:');
ReadLn ( islaidos );
uzdarbis := uzdarbis - islaidos;
end;
WriteLn ( 'Is uzdarbio liko:', ' ', uzdarbis );
ReadLn;
end.
Redagavo ibodom· 2010 Sau. 12 18:01:06
Parašė H2O· 2010 Sau. 12 18:01:18
#8
jeigu nesunku išjunkt smile
Parašė ibodom· 2010 Sau. 12 18:01:29
#9
melo151 parašė:
jeigu nesunku išjunkt smile
Done. ;)
Parašė H2O· 2010 Sau. 12 18:01:35
#10
O didelis dėkui +10 ;) mldc.