Paskalis

Sakinyje raskite žodį turintį daugiausiai simbolių.

Padėkit, su "string" dar nieko nemoku :|

nebereikia

Sakinyje raskite žodį turintį daugiausiai simbolių.

Padėkit, su "string" dar nieko nemoku :)

T.y. su string negalima daryti, ar kaip :D ?

Nes kitaip, tai nebent po char'ą skaityt reiktų.

Nesenai pradėjom mokytis pasaklį, dabar konkrečiai einam ciklą, kadangi praleidau keltą pamokų, tai dabar truputį bėdų turiu.

gal kas galit išspęsti tokį uždavinį?

Mokinys kontrolinį darbą perrašinėjo n kartų. Mokytoją į dienyną įrašė geriausio bandymo pažymį. Parašyti programą , kuri išspausdintų, kokį pažymį mokytoja įrašė.

Pradėjau spręsti, bet nebesugalvojų, gal užvesit ant kelio?

program Bevardė1;

var n,i,paz:integer;

begin

WriteLn('Kiek kartu rase kontrolini');

Readln(n);

for i:=1 to n do

begin

WriteLn('Iveskite pazimy');

ReadLn(paz);

Kažkas tokio suveiktų ;)

program Bevardė1;
var n,i,paz,max:integer;
begin
WriteLn('Kiek kartų rašė kontrolinį:');
Readln(n);
max := 0;
for i:=1 to n do
begin
	WriteLn('Įveskite pažymį');
	readln(paz);
	if (paz > max) then max := paz;
end;
writeln('Gavo: ', max);
readln;
end.

Kažkas tokio suveiktų ;)

program Bevardė1;
var n,i,paz,max:integer;
begin
WriteLn('Kiek kartų rašė kontrolinį:');
Readln(n);
max := 0;
for i:=1 to n do
begin
	WriteLn('Įveskite pažymį');
	readln(paz);
	if (paz > max) then max := paz;
end;
writeln('Gavo: ', max);
readln;
end.

Dėkui, suveiks

Už savaitės ši tema švęstų vienerių metų neaktyvumo sukaktį. Deja, aš ją pakelsiu. :)

Klausimas labai paprastas. Turiu integer tipo masyvą A. Man reikia padaryti masyvą B, kuriame A masyvo elementai būtų sudėlioti didėjimo tvarka.

Gal galit pasiūlyti procedūrą tai atliekančia? Galvoju daryti su while ir if, bet bus ilga procedūra.

P.S. Masyvo elementų kiekis žinomas (n), 1≤ n ≤100

Už savaitės ši tema švęstų vienerių metų neaktyvumo sukaktį. Deja, aš ją pakelsiu. :)

Klausimas labai paprastas. Turiu integer tipo masyvą A. Man reikia padaryti masyvą B, kuriame A masyvo elementai būtų sudėlioti didėjimo tvarka.

Gal galit pasiūlyti procedūrą tai atliekančia? Galvoju daryti su while ir if, bet bus ilga procedūra.

 

P.S. Masyvo elementų kiekis žinomas (n), 1≤ n ≤100

http://en.wikipedia.org/wiki/Sorting_algor...ting_algorithms

išsirink :D

Nebereike.

Sveiki man reikia pagalbos maciau cia vienas narys irgi prase pagalbos su tokiu uzdaviniu bet jam pavyko ji isprest anksciau negu kasnors parase koda. Taigi as prasau gal galit kas padet parasyt siam uzdaviniu programa (su paskaliu)

Parašykite programą, kurioje būtų panaudota procedūra dviejų duotų natūrinių skaičių didžiausiam bendrajam dalikliui ir mažiausiam bendrajam kartotiniui rasti.

P.S. nepykit kad be lietuvisku raidziu rasau

Jei galima vietoj procedūros rašyt funkciją tuomet:

Program lcmgcd;

function lcm(a, b: longint): longint;
begin
lcm := a;
while (lcm mod b) <> 0 do inc(lcm, a);
end;

function gcd(a, b: longint): longint;
begin
if a mod b <> 0 then gcd := gcd(b, a mod b)
   			else gcd := b;
end;

begin
writeln('The least common multiple of 12 and 18 is: ', lcm(12, 18));
writeln('The greatest common divisor of 12 and 18 is: ', gcd(12, 18));
end.

Jei galima vietoj procedūros rašyt funkciją tuomet:

Program lcmgcd;

function lcm(a, b: longint): longint;
begin
lcm := a;
while (lcm mod b) <> 0 do inc(lcm, a);
end;

function gcd(a, b: longint): longint;
begin
if a mod b <> 0 then gcd := gcd(b, a mod b)
   			else gcd := b;
end;

begin
writeln('The least common multiple of 12 and 18 is: ', lcm(12, 18));
writeln('The greatest common divisor of 12 and 18 is: ', gcd(12, 18));
end.

dekui uz koda, deje, ten negalima naudot funkcijos , nes reikia procedura. Pasinagrinesiu koda gal kazkas paaiskes kaip cia darei, susirasysiu aiskesnius kintamuosius.

P.S. Jeigu nesunku gal gali perrasyt i procedura?

Gal galit kas sia programa perrasyt su procedura nes man nelabai gaunasi Aciu

Gal galit kas sia programa perrasyt su procedura nes man nelabai gaunasi Aciu

Program DBDirMBK;
var dbd, mbk: integer;

procedure DBDirMBK(a, b: longint);
var tmp : integer;
begin
tmp := a * b;
while a<>b do
	if a > b then a := a - b
			 else b := b - a;
dbd := a;
mbk := tmp div a;
end;

begin
DBDirMBK(12, 18);
   writeln('The least common multiple of 12 and 18 is: ', mbk);
   writeln('The greatest common divisor of 12 and 18 is: ', dbd);
end.

Nagrinėkis, gal čia aiškiau bus.

dekui