...Sveiki. Labai labai reikia programuotojo pagalbos . Galva "niekaip neisnesa" vieno dalyko : kaip su funkcija grazinti masyva? Juk funkcijos antrasteje apsirasome funkcijos varda, jos parametru sarasus ir tam funkcijos vardui veliau turime priskirti kazkoki tai rezultata. Kaip tai imanoma padaryti su rinkiniu, kuriame yra daug rezultatu? O juo labiau, ar imanoma, kad funkcija grazintu kelis, ne viena, masyva? Aciu.
Iš pradžių skaityk duomenis si procedūra. Tada surikiuok su procedūra. Ir galiausiai Išvesk duomenis su procedūra(nors geriau būtų programoje, bet jei tau reikia gali ir procedūroje) ir užpildyk programoje kreipinius.gal galit padėt su šiuo uždaviniu:
parašykite programą,kuri rastų kurios komandos užėmė pirmas 3 vietas. Pradiniai duomenys komandų pavadinimų masyvas,komandų pergalių masymas. kur įmanoma naudoti procedūras ir funkcijas.
Jei požymiai sudėtingi ir susiję - labai patogu. Jei labai paprasti ir vienareikšmiai užtektų vienos funkcijos. (jei gerai supratau)Sveiki. Gal zinote, ar galima vienoje programoje panaudoti kokias 5-6 logines funkcijas, norint skirdtyti masyva pagal pozymius? Ar tai yra neekonomiska, netaisyklinga? Aciu.
Code: Select all
program lektuvas;
var A,B,V,M,C : integer;
begin
readLn(A,B,C);
B := B + C;
M := B mod 60;
V := A + B div 60;
V := V mod 24;
writeln(V,' ',M);
readln;
end.
Code: Select all
program laikas;
var val,s,v:longint;
min,sek:real;
begin
WriteLn('Įveskite atstuma(km) ir greitį(km/h)');
Read(s,v);
val:= s div v;
min:= (s / v - val) * 60;
sek:= ((s / v - val) * 60 - min) * 60 ;
writeln(val,' h ',min:2:0,' min ',sek:2:0,' sek');
readln;
end.
Code: Select all
program laikas;
var val,s,v:longint;
min,sek:real;
begin
WriteLn('Áveskite atstuma(km) ir greitá(km/h)');
Read(s,v);
val:= s div v;
min:= round((s / v - val) * 60);
sek:= ((s / v - val) * 60 - min) * 60 ;
writeln(val,' h ',min:2:0,' min ',sek:2:0,' sek');
Readln;
end.
Return to “Programuotojų kampas”
Users browsing this forum: No registered users and 9 guests