Eva33
Nariai-
Pranešimai
11 -
Užsiregistravo
-
Lankėsi
-
Atsiliepimai
0%
Apie Eva33
-
Rangas
Naujas veidas forume
Paskutiniai lankytojai
Paskutinių lankytojų blokas yra išjungtas ir nėra rodomas kitiems nariams.
-
:D :D geras klausimas O reikia progos, kad Paskaliu programuot? :D
-
Sveiki, gal galit padėti, meta klaidą "Blogas skaičiaus formatas". program manksta; Type Duomenys = record pavadinimas : string; kartai : integer; end; var d: array [1..100] of Duomenys; n,i: integer; procedure nuskaitymas; var myfile: text; i,n: integer; begin i:=1; assign(myfile,'u2.txt'); reset(myfile); Readln (myfile, n); for i:= 1 to n do begin ReadLn (myfile, d[n].pavadinimas, d[n].kartai); end; Close (myfile); end; begin nuskaitymas; Readln; end.
-
https://drive.google.com/open?id=0B7IsDJze3VhfWm4yZ2cyYmtHbEk sita uzduotis, kazkodel neleidžia man jos prisegti.
-
Sveiki kas galėtų padėti padaryti užduotį su datos funkcija?
-
Sveiki, gal kas nors galėtų padėti baigti rašyti programą, niekaip nesigauna :((( viscicukai.rar
-
ačiū labai :)
-
Taip, būtent apie mokyklinį, lauksiu informacijos ar kontaktų... iš anksto dėkoju!!!
-
Ieškau žmogaus kuris moka programuoti Paskaliu
-
tame esmė, kad nerodo klaidos, bet ir nekompiliuoja ir nevykdo, žodžiu nereaguoja visai :)
-
padėkite surasti klaidą, neveikia procedūra. program Bevarde11; var m,n,k:integer; procedure mano (k,n,m:integer; var a,x,p,y:integer); begin k:=0; a:=n; while a<m do begin a:=a+1; x:=a mod 10; p:=(a div 10) mod 10; y:=a div 100; if a=x*100+p*10+y then k:=k+1; end; begin writeln('Įveskite skaičių m: '); readln(n); writeln('Įveskite skaičių n: '); readln(m); writeln; mano (k,n,m,a,x,p,y ); writeln; writeln('Laimėjusių kiekis: ', k); Readln; end.