ponkas
-
Pranešimai
3 -
Užsiregistravo
-
Lankėsi
-
Atsiliepimai
0%
Turinio tipas
Forumas
Kalendorius
Parduotuvė
Akademija
Skelbimai
ponkas Pranešimai
-
-
As ten nesigaudau toje uzduotyje.. Pabandziau bet blogaij ten yra... su masyvu as is wis zalias... nujauciu,kad cia kazkas panasaus,bet kazka reikia dar pakoreguoti,kad programa darytu tij ko man reikia pagal uzduoti:>
program trumpiausia;
var prad: text;
s, trump: string;
min: integer;
begin
assign(prad, 'failas.txt');
reset(prad);
readln(prad, s);
min := length(s);
trump := s;
while(not eoln(prad)) do
begin
readln(prad, s);
if (length(s) < min) then trump := s;
end;
close(prad);
writeln('Trumpiasia eilutė: ', trump);
writeln('Joje yra simbolių: ', min);
Readln;
end.
Butu geriausia,kad parasytumete :)
Kaip man ta reikalinga uzduoti padaryti.. ;)
-
Prasau pagalbos padarant viena uzduoti,niekaip man nesiseka ja igyvendinti.Jei kas pades busiu lb dekingas:)
Duotas tekstinis failas(raides ir skaitmenys).Rastas raides surasyti alfabeto tvarka i kita faila.
free paskalis
Programuotojų kampas
Atrašyta · Redagavo ponkas
programa imeciau kaip pawyzduka,gal ja siek tiek pakoregavus,programa darytu tij ko man reikia:) buciau lb dekingas jei kas padetu :(