Search the Community
Showing results for tags 'Pascal'.
Found 36 results
-
Man programma neaiziet, nevaru atrast savu kļūdu. Itkā uzrādās : Ожидался конец файла.
-
1. Aprēķināt kvadrātu summu viesiem masīva A(1..100) elementiem, kas dalās ar 3. 2. Uzrakstīt programmu, kas atrod naturālu skaitli diapozonā no 1 līdz n ar vislielāko dalītāju skaitu(cikls ar skaitītāju). Kāds varētu palīdzēt? Ar šiem uzd jo es esu mēģinājis un nekas nesanāk un viss aiziet šķērsām
-
Sveiki, te atkal es... Man jau atkal kārtējais labratorijas darbs, kuru es neizprotu, varbūt šoreiz būs kāds, kas spēs arī kaut ko, kaut nedaudz, palīdzēt... Uzdevuma apraksts: Uzdevums: Paldies jau iepriekš par jebkāda veida palīdzību!
-
Šogad sāku mācīties programmēšanu...Man ir uzdots mājas darbs, kuru es īsti neizprotu, jo pasniedzēja diezgan slikti, manuprāt, māca un grūti saprast... Darbam nevajadzētu būt baigi sarežģītam, bet vai te ir kāds, kas varētu uzrakstīt šo programmu, man sanāca tikai masīvu izveidot, bet nekas vairāk... Uzdevuma apraksts: Uzdevumu variants: Uzdevums: Noteikt elementu skaitu, kas pieder lietotāja norādītajam intervālam. Masīva izmērs 17 25 Paldies par palīdzību jau ieprieks, es to tiešām novērtēšu...Jau vairākas nedēļas pats mocos ar šī uzdevuma izpildi....
-
Mans uzdevums : 1)Dota kvadrātiska matrica kuras elementi ir veseli skaitļi robežās (10:50). Pagriezt matricu par 90 grādiem pulksteņa rādītāja virzienā un izvadīt uz ekrāna rezultātu. Program pagriez; uses crt; var n,i,j:integer;a,b:array[1..50,1..50] of integer; begin clrscr; write('n=');readln(n); writeln('Sakuma matrica:'); randomize; for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(43)+10;{[10;50} write(a[i,j]:4); end; writeln; end; Writeln('Pagriezta matrica 90:'); for i:=1 to n do for j:=1 to n do b[i,j]:=a[n-j+1,i];{Pagrieziens} for i:=1 to n do begin for j:=1 to n do begin write(b[i,j]:3); end; writeln; end; readln; end. Nesaprotu kā var :2)Aprēķināt un izvadīt uz ekrāna dotās matricas blakus diagonāles elementu summu. Iepriekš paldies.
-
Sveiki! Man te uzradās neliela problēmiņa, man ir jāuzraksta šāda programma, bet es nezinu īsti kā viņu uzrasktīt. Dotās matricas elementi ir naturāli skaitļi robežās (-30, 10). Matricas katras rindas elementus sakārtot (pārvietot) augošā kārtībā. Izvadīt uz ekrāna iegūto matricu. Aprēķināt un izdot uz ekrāna pārveidotās matricas galvenās diagonāles elementu kopsummu. Es būšu ļoti pateicīgs, ja kāds palīdzēs uzrasktīt man šo programmu, vai vismaz pamataus pastāstīs, kas un ka jāraksta. Paldies jau iepriekš!
-
Sveiki. Vopšem jau iedeva pirmo darbu, ko realizēt. Viss super viss sanāk, bet apstājos, jo programma caurums. Vopšem īsos vilcienos. pieņemsim, ka dotas sekojošas rindiņas. "latvija vel joprojam ir krize un kalvits nav atrodams" vajag noteikt vai rindina sākās ar vārdu "latvija" ilgi meklējot atradu netā tādu... string[5]=e string[6]=m string[7]=g un sekojoši uzrakstīju if (InputString[1]='l') and (InputString[2]='a') and (InputString[3]='t') and (InputString[4]='v') and (InputString[5]='i') and (InputString[6]=' j') and (InputString[6]='a') and (InputString[6]=' ') then bet tad tā padomājot ja rindiņa ir šāda " . . . . . . . latvija vel joprojam ir krize un kalvits nav atrodams" rindiņa sakās ar vārdu latvija bet [1] vairs nav "l" un tas atstarpju skaits ' . ' arī var būt mainīgs. Man pietiktu, ja kāds pastāstītu algoritmu, kā noteikt, cik simboli ir pirms vārda latvija. viena ideja man bija if Pos('latvija',RINDA) >= 1 then ---> šādi vismaz es zinu vai rindiņā ir vārds latvija, tad to rindiņu pēc tam var aktīvi mocīt. tad es domāju ar visādiem length(RINDA)-length('latvija') bet visu laiku apraujos. Ceru uz atsaucību.
- 4 atbildes
-
Labs vakars BOOTIEŠIEM. Par cik esmu zaļš gurķis šajās lietās, tad nu, ir nepieciešama programma, kas saskaita visus teikumus ievadītajā tekstā.
-
Sveiki, gudrinieki. Ir tāda štelle, ka man ir .exe faili, kam created datums ir 2011, bet modified palicis 2010. man vajag, lai izskatītos kā tgd taisīts. to vsp var izdarīt, ja nav paša programmas koda? jo it kā no mašīnkoda atpakaļ kodu nevar dabūt... precīzu.
-
varbūt kāds var man palabot kļūdas,programma aiziet,bet saknes neatrod.. ar pascal darbojos knapi mēnesi,esmu ļoooti liela iesācēja.. program bikvadratvienadojums; uses crt; var a,b,c,y,y1,y2,d,x,x1,x2:real; label paz1; begin clrscr; write('a:'); readln(a); write('b:'); readln(b); write('c:'); readln©; if a=0 then writeln('tas nav bikvadratvienadojums') else begin d:=(b*b)-(4*a*c); if d<0 then begin writeln('vienadojumam nav realu atrisinajumu'); goto paz1 end; if d=0 then begin y:=(-b)/(2*a); x:=sqrt(y); if y<0 then begin writeln('nav atrisinajuma'); goto paz1 end; if y=0 then writeln('viena sakne,X=0') else if y>0 then writeln('X1=',x:0:2,'X2=-',x:0:2) end else if d>0 then begin y1:=((-b)+sqrt(d))/(2*a); y2:=((-b)-sqrt(d))/(2*a); x1:=sqrt(y1); x2:=sqrt(y2); if (y1<0) and (y2<0) then begin writeln('nav atrisinajuma'); goto paz1 end; if y2<0 then begin writeln('divas saknes X1=' ,x2:0:2,' X2=-',x2:0:2); goto paz1 end; if y1<0 then begin writeln('divas saknes X1=',x1:0:2,' X2=-',x1:0:2); goto paz1 end; if (y1=0) or (y2=0) then begin writeln('vienadojumam ir viena sakne x=0') end; end; paz1: readkey end; end.