Jump to content

pascal programma


gacho23
 Share

Recommended Posts

pats tik talu tiku,bet nekas nesanak 

uzdevums : Lietotājs ievada 5 vārdus, ko saglabā masīvā un programma atrod īsāko vārdu. Jāizmanto cikli, funkcija Length. 

Program Mhdd;
Var
g : Array of string;
i,min : Integer;
begin
min:=-50;
for i:= 1 to 5 do
writeln ('ievadiet vardu');
readln(g);
if length (g) < length(g) then
length (g):= min;
Writeln('Vards, atrod isako vardu : ', min);
Readln;
End.

Link to comment
Share on other sites

(labots) · Hidden by Vilx-, Aprīlis 15, 2014 - Nevajag atrisināt priekšā.
Hidden by Vilx-, Aprīlis 15, 2014 - Nevajag atrisināt priekšā.

Program Mhdd;
Var
    g : Array [1..5] of string;
    i,min : Integer;
begin
    min:=1;
    for i:= 1 to 5 do
        begin
            writeln('ievadiet vardu');
            readln(g);
            if (length(g) <= length(g[min])) then min := i;
        end;
    Writeln('Vards, atrod isako vardu : ', g[min]);
    Readln;
End.

 

http://ideone.com/xKD3di

Labots - Salmo
Link to comment

OK, Tu esi jau uz pareizās takas. Šajā gadījumā es ieteiktu rīkoties tā: ņem šo programmu un katru rindiņu pārraksti "cilvēku valodā" - saviem vārdiem apstāsti, kas tur notiek. Izdari to smalki ridiņu-pa rindiņai. Varbūt pat dari tā, ka pieraksti šo aprakstu kā komentāru katrai rindiņai galā.

 

Tad ieliec rezultātu šeit, un mēs varēsim Tev pateikt, kur Tavs kods atšķiras no tā, ko Tu tur biji domājis.

Link to comment
Share on other sites

Sadali divos ciklos būs tev vienkāršāk.

 

1) Ciklā savadi visu masīvā 

2) Ciklā pārbaudi garumu

 

Program Mhdd;
Var
g : Array of string;
i,min : Integer;
begin
min:=-50;
for i:= 1 to 5 do
writeln ('ievadiet vardu');
readln(g);

end;

--------------------

For zzzzzzzzzzzzzzzzzz
if length (g) < length(g) then
length (g):= min;  - Kas tev šeit notiek?

end;
Writeln('Vards, atrod isako vardu : ', min);
Readln;
End.

Link to comment
Share on other sites

nevertell

Nu nach tā vajag darīt ? Arnicānam tā jau spalvas plēš par to, ka viņš par daudz izsijā pirmā kursa beigās, tagad vēl tirliņi liks mājas darbu kodu ? Protams, šis nav par LU, šis ir paskāls, bet ticu, ka citur ar programmu pamīkstina. Budžeta deldētājs. 

Link to comment
Share on other sites

Es nerakstu kodu priekšā, tikai parādu, kā būtu darīt korektāk kā arī uzdodu jautājumu, kur es pats nesaprotu, kas notiek :D

Link to comment
Share on other sites

Mezavecis

Arī piekrītu, ka gatavu kodu nav vajadzības veidot un tas tikai pazemina tā jau ne sevišķi spīdošās izglītības sistēmas kvalitāti. Turpmāk šādi komentāri ar gataviem kodiem tiks dzēsti. Mērķis ir izskaidrot nevis iebarot ar karoti. Ir novērots, ka te ir biedri, kam patīk spodrināt spavas, bet tas nekā nevairo ne jūsu, ne arī šī foruma reputāciju, jo izpildot mājas darbu vienam, nākamreiz atnāks vēl 10 prasītāji.

 

Atgādinājumam, šim biedram jau bija topiks. Pēc sākotnējā koda redzams, ka viņš galīgi neorientējas uzdevumā un pat nav pateicis, kur ir problēma.

http://www.boot.lv/forums/index.php?/topic/157662-pascal/

Link to comment
Share on other sites

 

 

if length (g) < length(g) then

 

Ja programmas kodu ieliek code tagos, tad tas forumā kļūst lasāmāks.

P.S. Kāds bizness salīdzināt pašu ar sevi uz nevienādību?

Link to comment
Share on other sites

@Vil @Azazel un visvairāk @Mežaveci

 

Kā jau rakstīju palīdzu cilvēkam spert NĀKAMO SOLI

 

un kā jau kolēģi minēja šajā kodā bija un ir vēl daudz citas problēmas.

 

Bet tik tiešām izskatās, ka autors nav pietiekami daudz laika veltījis šī uzdevuma izpildei, tāpēc arī iesaku kamēr nav autors spēris pats nākamos soļu pēc pirmajiem jēdzīgajiem komentāriem turpmāk neko nepalīdzēt, jo tas tik tiešām degradē izglītību kā tādu.

Link to comment
Share on other sites

Izveido kontu, vai pieraksties esošajā, lai komentētu

Jums ir jābūt šī foruma biedram, lai varētu komentēt tēmas

Izveidot jaunu kontu

Piereģistrējies un izveido jaunu kontu, tas būs viegli!

Reģistrēt jaunu kontu

Pierakstīties

Jums jau ir konts? Pierakstieties tajā šeit!

Pierakstīties tagad!
 Share

×
×
  • Izveidot jaunu...