free paskalis

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.

tai cia prasai, parasyt? ar padet?

tai imesk, ka esi padares bent.

as tai skaityciau po simboli, jei tai raide, irasai i masyva, jei ne, praleidi. poto masyva surusiuoji ir irasai i faila.

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.. ;)

programa imeciau kaip pawyzduka,gal ja siek tiek pakoregavus,programa darytu tij ko man reikia:) buciau lb dekingas jei kas padetu :(

Labas visiems.Turiu viena tokia problemėlę :) Niekaip negaliu sumastyti kaip padaryti viena užduotį,jei kas padėtų bučiau lb dekinga. :D Tai vat mano uzduotis yra tokia:

Ekrane matomas meniu:

PIEŠINYS

PABAIGA

pasirinkti galima rodyklėmis, vykdyti nuspaudus Enter; bet kada darba galima nutraukti, spaudziant Esc.

FUNKCIJOS GRAFIKAS: y = tgx - 2x

PIEŠINYS: Ant stalo guli atversta knyga, atsidaro langas ima pūsti vėjas, knyga po lapą užsiverčia.

Padėkit bent kaip nupaišyti knygą ir kad ji užsiverstų po lapą.

Labas visiems.Turiu viena tokia problemėlę :) Niekaip negaliu sumastyti kaip padaryti viena užduotį,jei kas padėtų bučiau lb dekinga. :D Tai vat mano uzduotis yra tokia:

Ekrane matomas meniu:

PIEŠINYS

PABAIGA

pasirinkti galima rodyklėmis, vykdyti nuspaudus Enter; bet kada darba galima nutraukti, spaudziant Esc.

FUNKCIJOS GRAFIKAS: y = tgx - 2x

PIEŠINYS: Ant stalo guli atversta knyga, atsidaro langas ima pūsti vėjas, knyga po lapą užsiverčia.

 

Padėkit bent kaip nupaišyti knygą ir kad ji užsiverstų po lapą.

paskaliu? :D

paskaliu? :)

Free paskaliu su grafikos elementais

nu grafika as paskaliu esu mates ir dares, bet kad tokia, tai cia man biski baisiai skamba.