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

Kāds ir tavs jautājums?

-170

2

Atbildes
0 balsis
898 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.

Labs jautājums?
Jā
Nē

Pirms 11 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 11 gadiem

Laba atbilde?
Jā
Nē

Komentēt

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 11 gadiem

Laba atbilde?
Jā
Nē

Komentēt

, pirms 11 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 11 gadiem :

sadi ?

Ego , pirms 11 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

Tava atbilde

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.