Uzdod jautājumus un saņem atbildes! Šobrīd 67089 jautājumi, 283673 atbildes!

Kāds ir tavs jautājums?

140

       

-170

 
  • 2

    Atbildes

  • 0 balsis
  • 836 skatījumi

sveiki,varetu palidzet ar programminu,

Datori un internets » Programmēšana un dizains

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[i]) < length(g[i]) then
length (g[i]):= min;
Writeln('Vards, atrod isako vardu : ', min);
Readln;
End.

Pirms 10 gadiem

 

Atbildes (2)

 
Labākā atbilde
  • 0

    balsis

Valdis Līcis

+879

 
Lieto šo te - http://www.compileonline.com/compile_pascal_online.php Un parotaļājies līdz sanāk - zināms, ka besī ārā instalēt uz kompja pascal :)

pirms 10 gadiem  

500

Labākā atbilde
  • 0

    balsis

Ego

+79135

 
Nu jau drusku labāk, pat izskatās ka kaut kas darīts.
Garām, protams ;) , bet sākumam derēs

g : Array of string;
manuprāt definēts nepareizi

readln(g);
šaubos vai tas strādās kā masīva elementa ievads

min:=-50;
vārda garums negatīvs?

if length (g[i]) < length(g[i]) then
bezjēdzīga elementa salīdzināšana pašam ar sevi

Writeln('Vards, atrod isako vardu : ', min);
apšaubāms teksts
..

pirms 10 gadiem  

, pirms 10 gadiem :

program mhdd;
var g : array[1..5] of string;
i,min : integer;
begin
min:=1;
for i:=1 to 5 do
writeln ('ievadiet vaardu');
readln(g[min]);
if length(g[i])<length(g[min]) then min:=i;
end;
writeln('iisaakais vaards: ', g[min]);
readln;
end.

, pirms 10 gadiem :

sadi ?

Ego , pirms 10 gadiem :

Kritērijs jau ir pavisam vienkāršs - ja strādā pareizi ar tipiskiem testiem, tad der.
Pavirši skatoties varētu derēt, katrā ziņā labāk

500

Tava atbilde

1000

       

Nav nepieciešams reģistrēties!

Ienāc iekšā izmantojot:

       

Meklēt jautājumus

       

Palīdzi saviem klientiem saņemt vislabākās atbildes

Kļūstot par ekspertu pajauta.lv, Tu uzlabo savu klientu servisu un iegūsti papildus publicitāti. Tavas atbildes būs atrodamas 100 tūkstošiem pajauta.lv lietotāju, lieliski atradīs Google, kā arī varēsi izveidot savās web lapās vai draugiem.lv lapā īpašo pajauta.lv bloku.