Pradziamokslis

tai va, pradejau mokytis free pascal . nieko nelaukes pradejau rasyt programas is knygu, ir uzstrigau prie vienos uzdeuoties,

Prie kasos langelios stovi N zmoniu ,.kasininke i-ajam zmogiu skiria ti laiko. Sudarykite programa , kuri apskaiciuotu kiekvieno kliento sugaista laika sioje istaigoje, pradiniai duomenys ivedami is klaviaturos. pagalvokite apie vaizdu rezultatu apipavidalinima. ...

masciau masciau ir pradejau rasyt koda, taciau man gavos jis nei sioks nei toks ir pasimeciau

program klientai;
var n, t:integer;
 i:real;

begin
WriteLn ('iveskite kasininkes darbo laika valandomis');
readln (t);

writeln ('kiek zmoniu stovi prie langelio ? ');
readln (n);

i:= t div n;
if i = 0
 then
  begin
 i:= t mod n;

Writeln ('Atsakymas>>', i:4:2 ,'minuciu');

readln;
	end

kaip ir sakau nera loginio mastymo ir kodas nebaigtas nes pasiklydau tar nezinios, jei galit pagelbekit ka blogai dariau ir kaip turejau galvoti :)

program klientai;
var t, i, n : integer;

begin
WriteLn('Įveskite kiek žmonių stovi prie kasos');
	ReadLn ( n );
WriteLn ('Įveskite kiek laiko kasininkė skiria kiekvienam klientui');
	ReadLn ( t );
for n := 1 to n do
	begin
		i := i + t;
		WriteLn ( n,' Žmogus sugaišo laiko: ', i);
	end;
end.

Esu taip pat pradedantysis, bet atrodo, kad turėtų būti taip pagal užduotį.

pataisysiu :)

program klientai;
var t, i, n, k : integer;

begin
WriteLn('Įveskite kiek žmonių stovi prie kasos');
ReadLn ( n );
WriteLn ('Įveskite kiek laiko kasininkė skiria kiekvienam klientui');
ReadLn ( t );
i := 0;
for k := 1 to n do begin
	i := i + t;
	WriteLn ( k,' Žmogus sugaišo laiko: ', i);
end;
ReadLn();
end.

i := 0;

for k := 1 to n do begin

i := i + t;

is kur tas k atsirado ? :)

ir supratau dabar esme =]]]

k skirtas ciklui vykdyti ir žmonėms eilės tvarka surašyti.

program nd;
var a, b, c, d, l, j:integer;
begin
 writeLn ('iveskite keturzenkli skaiciu');
 readLn (a, b, c, d);

 if (a = b) or (a = c) or (a = d) or (b = c) or (b = d) or (c = d)
  then   l:= a + b + c + d
  else   j:= a * b * c * d ;
writeln ('yra lugiu', l ,'nera lygiu ', j);
 readln;
end.

mano pirmas kodas be niekeno pagalbos ... as manau kad ji galima dar kaskaip pakeisti ir suredaguoti . cia turbut buvo lengviausia iseiti pagal mane :D . bet atitinka i uzduoti ... kuri buvo "ar tiesa kad duotojo skaiciaus m bent du skaitmenys yra lygus, jeigu bent du skaitmenys lygus, tai visus skaitmenis sudeti, kitaip sudauginti ... ******klaidu yra ... jei galit paaiskinkite :D

Atrodo taip turi but :D

if (a = b) or (a = c) or (a = d) or (b = c) or (b = d) or (c = d)
   then   l:= a + b + c + d
   else   l:= a * b * c * d

Pagal prioritetus OR pirmiau vykdomas nei palyginimo zenklai :D

Atrodo taip turi but :D

 

 

if (a = b) or (a = c) or (a = d) or (b = c) or (b = d) or (c = d)
   then   l:= a + b + c + d
   else   l:= a * b * c * d

 

Pagal prioritetus OR pirmiau vykdomas nei palyginimo zenklai :D

jo dekui , as jau ta issiskinau is knygos pavyzdziu :DD

/

program nd;
var a, b, c, d, l, j:integer;
begin
 writeLn ('iveskite keturzenkli skaiciu');
 readLn (a, b, c, d);

 if (a = b) or (a = c) or (a = d) or (b = c) or (b = d) or (c = d)
  then   l:= a + b + c + d
  else   j:= a * b * c * d;
writeln ('yra lugiu', l ,'nera lygiu ', j);
 readln;
end.

 

mano pirmas kodas be niekeno pagalbos ... as manau kad ji galima dar kaskaip pakeisti ir suredaguoti . cia turbut buvo lengviausia iseiti pagal mane :D . bet atitinka i uzduoti ... kuri buvo "ar tiesa kad duotojo skaiciaus m bent du skaitmenys yra lygus, jeigu bent du skaitmenys lygus, tai visus skaitmenis sudeti, kitaip sudauginti ... ******klaidu yra ... jei galit paaiskinkite :D

program nd;
var a, b, c, d, l, j:integer;
begin
 writeLn ('iveskite keturzenkli skaiciu');
 readLn (a, b, c, d);

 if (a = b) or (a = c) or (a = d) or (b = c) or (b = d) or (c = d)
  then   l:= a + b + c + d
  else   j:= a * b * c * d;
writeln ('yra lugiu', l ,'nera lygiu ', j);
 readln;
end.

 

mano pirmas kodas be niekeno pagalbos ... as manau kad ji galima dar kaskaip pakeisti ir suredaguoti . cia turbut buvo lengviausia iseiti pagal mane :) . bet atitinka i uzduoti ... kuri buvo "ar tiesa kad duotojo skaiciaus m bent du skaitmenys yra lygus, jeigu bent du skaitmenys lygus, tai visus skaitmenis sudeti, kitaip sudauginti ... ******klaidu yra ... jei galit paaiskinkite :D

Blogai skaitai tą skaičių. Deja, nežinau, ar tas skaičius m yra iš 4 skaitmenų, kaip parašyta tavo programoje, ar iš kitokio skaičiaus skaitmenų. Jei iš keturių, tai visus skaitmenis rašai į masyvą:

for i:= 1 to 4 do begin
 mas[i] := m mod 10; //gauni paskutinį skaitmenį
 m := m mod 10; //pašalini paskutinį skaitmenį
end;

jei ne iš 4 skaitmenų, tada "for" keiti "while" ir skaičiuoji, kiek skaitmenų radai, kol m taps 0;

tada patikrini, ar yra vienodų

for i:= 1 to 4 do begin
 for j:= 1 to 4 do begin
if ((mas[i] = mas[j]) and (i<>j)) then begin
  vienodi := true; // vienodi : boolean
  break;
end;
 end;
end;

tada patikrini, ar yra vienodų

if vienodi then begin
 //pirmas veiksmas
end
else begin
 //antras veiksmas
end;

pirmas veiksmas:

s := 0;
for i:=1 to 4 do
 s := s + mas[i];

antras veiksmas:

s := 1;
for i:=1 to 4 do
 s := s * mas[i];

ir atspausdini "s";

Blogai skaitai tą skaičių. Deja, nežinau, ar tas skaičius m yra iš 4 skaitmenų, kaip parašyta tavo programoje, ar iš kitokio skaičiaus skaitmenų. Jei iš keturių, tai visus skaitmenis rašai į masyvą:

 

for i:= 1 to 4 do begin
 mas[i] := m mod 10; //gauni paskutinį skaitmenį
 m := m mod 10; //pašalini paskutinį skaitmenį
end;

 

jei ne iš 4 skaitmenų, tada "for" keiti "while" ir skaičiuoji, kiek skaitmenų radai, kol m taps 0;

 

tada patikrini, ar yra vienodų

 

for i:= 1 to 4 do begin
 for j:= 1 to 4 do begin
if ((mas[i] = mas[j]) and (i<>j)) then begin
  vienodi := true; // vienodi : boolean
  break;
end;
 end;
end;

 

tada patikrini, ar yra vienodų

 

if vienodi then begin
 //pirmas veiksmas
end
else begin
 //antras veiksmas
end;

 

pirmas veiksmas:

 

s := 0;
for i:=1 to 4 do
 s := s + mas[i];

 

antras veiksmas:

 

s := 1;
for i:=1 to 4 do
 s := s * mas[i];

 

ir atspausdini "s";

juk rasiau temoj pradziamokslis :D biski per sunku tad nesiu savo sukurta ;D nes nlb suprantu is kur tie mas ir t.t. :)