Jump to content

Search the Community

Showing results for tags 'Pascal'.

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Par boot.lv forumu
    • Foruma noteikumi
    • Raksti
    • BOOT.lv foruma informācija
    • Biežāk uzdotie jautājumi (BUJ)
    • Akcijas, pasākumi un jaunumi
  • Datortehnikas programmatūra un operētājsistēmas
    • Windows
    • Unix, Linux, BSD utml.
    • MacOS, Un cita Apple programmatūra
    • Programmatūra un interneta servisi
    • Programmēšana
    • Vīrusi, spams, spiegu programmas
  • Datortehnika
    • Datoru komponentes
    • Monitori
    • Datortīklu tehnika
    • Printeri / Skaneri
    • Portatīvie datori
    • Apple Macintosh datori un cita produkcija
  • Tehnika
    • Foto
    • Videokameras un video apstrāde
    • Audio un audio tehnika
    • SatTV, ciparuTV
    • Televizori / DVD, Blu-Ray tehnika
    • Kabeļi, akumulatori un citi aksesuāri
    • Dārza tehnika, apkure un ūdensapgāde
    • Virtuves un mājas sadzīves tehnika
    • Cita tehnika
  • Mobilie tālruņi / Radio ierīces / Internets / GPS
    • Mobilie tālruņi, viedtālruņi un planšetdatori
    • Mobilo sakaru operatori
    • GPS
    • Citas RF ierīces
    • Interneta provaideri
  • BOOT.lv tirdziņš
    • Pārdod
    • Pērk
    • Maina
    • Publiskais tirdziņš visiem
    • Atdodu par velti
    • Darbs, vakances, pakalpojumi
  • BOOT lietotāju DIY projekti
    • BOOT lietotāju IT/elektroniskie projekti
    • Overclocking jaunumi un jautājumi
    • Citi DIY projekti
  • Juridiskie jautājumi
    • Pirātisms un autortiesības
    • Darba ņēmēju tiesības un pienākumi
    • Patērētāju tiesības
    • Citas juridiskās lietas
    • Veikali, norēķini, bankas, kredīti
    • Nekustamais īpašums
  • BOOT.Lv diskusijas
    • Tehniska rakstura diskusijas
    • Izglītība, kursi, sertifikāti
    • Neietilpstošas tēmas par sadzīvi
    • Humors
  • BOOT.LV
  • GAMEZ Forums
    • Ražots Latvijā
    • Diskusijas par un ap spēlēm
  • BOOT.Lv Auto / Moto / Velo
    • Auto modeļi (BMW, Audi, Opel, Žiguļi u.c.)
    • Auto remonts, serviss, "šķūnings"
    • Satiksme, policija, fotoradari, CSN, autosports
    • Auto, velo, moto SPORTS
    • Auto un to daļu sludinājumi
    • Velosipēdi, mopēdi, skuteri, motocikli, kvadricikli

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

  1. Izveidojam Embarcadero (Delphi uzturētājs) kontu Piereģistrējamies bezmaksas webināram Lejupielādējam instalāciju Uz epastu saņemam seriāli. Sīkāka info: http://community.embarcadero.com/blogs/entry/delphi-boot-camp
  2. elsis

    Komplekts CAD

    Sveiki! Gribēju kādam zinošākam paprasīt padomu par PC komplektāciju. Interesē mājas dators priekš CAD un ikdienas lietošanas. CAD pārsvarā Autocad (2D), Solidworks, SketcUp, Revit, Robot Structural Analysis un Photoshop. Nav domāts profesionālam darbam, tikai hobijam. Pārsvarā Autocad un Solidworks- kompleksi modeļi nav paredzēti. Pielietojama joma- būvniecība un mašīnbūve, tā kā arī simulācijas un stress analysis būtu nepieciešams. Jautājumi tieši par CPU, GPU un SSD... CPU - galvenais interesē viewport veiktspēja. Renderēšana nebūtu prioritāte, tādēļ lasīju, ka CPU vēlams ar augstāku takts frekvenci, savukārt vairāk kodoli noder tieši uz renderēšanu. 6700k ir 4 kodoli, bet 4.0 Gh, savukārt 5820k 6 kodoli ar 3.3 GH. It kā 5820k kotējas augstāk, bet vai būs to vērts ņemt labāk to. 5930k, 5960k vai Xeon- gan jau būtu overkill? GPU- prioritāte tāpat viewport performance. Vai ar GTX daudz maz sakarīgi var pastrādāt bez īpašiem lagiem? Ja kas, tad 1080 nebūtu pārāk grūti notirgot, ja nu nevelk. Un tad labāk ņemt jauno Quadro sēriju no Pascal arhitektūras. SSD- kā ir ar to jauno m.2 ssd; windows dabūt virsū stabilu var vai tur vēl visai daudz neskaidrību? Plānotais komplekts : MOBO - ASROCK X99M KILLER/3.1 (micro-ATX) CPU - INTEL CORE i7-6700K (4.0GHz, 8MB Cache, LGA1151) vai INTEL CORE i7-5820K 3.3GHZ 15MB LGA2011-V3 Dzese - CORSAIR CPU COOLING HYDRO SERIES H75 RAM - CORSAIR VENGEANCE LPX 32GB 3000MHZ DDR4 C15 DIMM KIT OF 4 SSD - SAMSUNG SSD 850 PRO 512GB SATA III vai SAMSUNG SSD 950 PRO 512GB M.2 2280 GPU - PNY Technologies Quadro M4000 vai MSI GeForce GTX 1080 8GB GDDR5X CASE - CORSAIR CARBIDE SERIES AIR 240 HIGH AIRFLOW (micro-ATX) PSU - CORSAIR BUILDER CX750M ATX2.3 80+ 750W Monitors jau ir: Dell P2415Q 24 Ultra HD
  3. FreshMeat

    Vieglākais starts programmēšanai?

    Īsumā pastāstīšu savus nodomus: Vēlos izveidot programmu, kura palaistu cmd (command prompt) windows sistēmā un tajā palaistu komandu, kas nosūta ziņojumu (popup logu) datoriem, kuri saslēgti tīkla. Varbūt šeit ir kāds programmētājs, kas varētu sniegt labu padomu un pateiktu ar kuru p-valodu labāk iesākt, un, kura būtu labākā manam mērķim? Esmu darbojies Pascal, Delphi un VBA.
  4. Burkings

    Vaidzīga palīdzība ar Turbo Pascal.

    Sveiki, Mēģināju uztaisīt programmu , ar Funkciju , bet uzrādās dažas kļūdas kas man nav izprotamas. Un šeit kļūdas UN šeit viena no vietām kur tā kļūda ir..
  5. GUNIS95

    Binārie koki

    Sveiki Man ir 3 jautājumi Koka elementu kas neatsaucās uz citiem elementiem sauc par ? Koka elementu uz kuru neatsaucās citi elementi sauc par? Nevaru īsti saprast kuram jautājumam atbilde ir lapa un kuram sakne Un tad vēl jautājums par koka apgaitu lūk uzdevums: http://i.imgur.com/wp5zFcn.png?1 Vai esmu pareizi sapratis vai nē?
  6. GUNIS95

    Datu struktūras Free Pascal

    Sveiki, Ir šāda lieta. Ir jāizveido vienkāršsaistīts cirkulārs saraksts ar beigu rādītāju. Katrs saraksta elements satur lauku ar vērtību un rādītāja lauku kurš norāda uz nākamā elementa adresi. Īsti nesaprotu kā darbojas rādītājs un kāds ir tā pielietojums. Būtu labi ja varētu parādīt piemēru un apskaidrot kas tas ir.
  7. GUNIS95

    Free Pascal Custom IDE

    Sveiki, Vēlējos uzzināt vai Free Pascal kompilatoram iespējams uztaisīt pielāgotu IDE. Kaut kas līdzīgs jau ir izveidots Windows Free Pascal IDE ,kas ir windows vidē, vēlētos pats arī kaut ko līdzīgu izveidot, paša vajadzībām. Jo dosiskā IDE ne īpaši iet pie sirds. Kāds varētu dot kādu padomu, kā un ar ko sākt?
  8. GUNIS95

    Pascal darbības ar text failiem

    Sveiki! Uzdevums: Ja ievades failā viena otrai sekojošas rindas ir vienādas tad izvadfailā starp šīm rindām ievadīt vārdu COPY. Kāds varētu dot kādu ideju?
  9. GUNIS95

    Rekursīvs rindas summas aprēķins

    Sveiki, Īsti nesaprotu kas ir jādara un kāds ir uzdevuma mērķis. Varbūt kāds varētu izskaidrot? Uzdevumu skatīt pielikumā.
  10. cmonlyy

    Pascal, tuvākā vērtība

    Sveiki! Nespēju līdz galam tikt ar uzdevumu: Viendimensiju masīvā noteikt elementa vērtību un indeksu, kuram ir pāra indekss un vērtība tuvākā vērtībai 6 analizējamajā elementu kopā (pāra indeksi). Pāra indeksus atradu, bet kā lai atrod tuvāko vērtību 6? program project1; const num=20; { masiva izmers } var oper, { izpildama programmas operacija } { oper=3333 beigt } i,j : integer; { darba imdeksi } ms: array[1..num] of real; { Masivs, kuru apstrada } x, dx :real; k : integer; { indeksi rezultatam } Maxv, MaxTemp : real; { rezultats } label MENU, SOLVE, BEIGAS; begin MENU: x:=0.27; dx:=0.345; writeln; writeln( 'Programma domata ciklu operatoru un masivu apgusanai '); writeln( ' 3333 - beigt'); writeln( ' 1111 - rekinat ar standarta sakumvertibam '); writeln( ' jebkurs cits skaitlis - rekinat ar pasa uzdotam sakumvertibam'); read( oper); if oper=3333 then goto BEIGAS; if oper=1111 then goto SOLVE; { masiva aizpildisana un aprekini } writeln( 'ievadi divus realus skaitlus, tie noteiks masiva elem. vertibas'); read(x, dx); SOLVE: for i:=1 to num do begin ms[i]:=10*sin(x); x:=x+dx; end; writeln; for i:=1 to num do {Uzgenereta masiva izvads} begin write( ' "',i:2, '"', ms[i]:10:5) end; writeln; writeln(' Lai turpinatu ievadi jebkuru skaitli '); read(j); { Meklejam tuvako vertibu vertibai 6 ar para indeksu } MaxTemp:=ms[2]; k:=2; for i:=1 to num do begin if(Maxv>MaxTemp) and (i mod 2=0) then begin Maxv:=ms[i]; k:=i; end; end; writeln; writeln('tuvakais skaitlis vertibai 6 ir ', ms[k]:10:5,' elements: ',k); goto MENU; BEIGAS: end. P.S. Sagatave no pasniedzēja, mana daļa sākas ar { Meklejam tuvako vertibu vertibai 6 ar para indeksu }. Paldies!
  11. Sveiki, man vajadzētu privātskolotāju programmēšana, vajadzētu visu no pašiem pamatiem iemācīt un kā darboties ar TURBO PASCAL. Par samaksu vienosimies Varētājiem lūdzu rakstīt uz m.majorenkova@gmail.com
  12. Grauznis

    Pascal : Nesaprotama izvade funkcijā

    Uzdevums : Sastādīt programmu, kas atrod dotā naturālā skaitļa ciparu summu; pēc tam – iegūtā skaitļa ciparu summu utt. Līdz palicis viens cipars. Mana programma: Program skaitlis; Var a : longint; Function sk( x : longint) : longint; Var t :longint; Begin t := 0; Repeat t := t + ( x mod 10); x:= x div 10; until x = 0; if (t < 10) then sk := t else sk(t); End; Begin readln(a); writeln(sk(a)); End. Programma drabojas skaitļiem, kā 25 , bet ievadot skaitli 976 izvada 0. Vai kāds varētu paskaidrot kāpēc tā? Pareizo rezultātu izdevās izvadīt ar šadu programmu : Program skaitlis; Var a : longint; Function sk( x : longint) : longint; Var t :longint; Begin t := 0; Repeat t := t + ( x mod 10); x:= x div 10; until x = 0; if (t < 10) then begin writeln(t); halt; end else sk(t); End; Begin readln(a); sk(a); End. Kāpēc pirmā programma nedarbojas nedorbojas?
  13. Acex

    Programmēšana uz win8

    Nopirku jaunu portatīvo, gribēju sākt pašmācības ceļā programmēšanu, saprast, kas, ko, kā, doma bija sākt ar Pascal, dabūju arī grāmatu Turbo Pascal. Tik problēma, ka portatīvajam ir win8 un Pascal neiet uz win8. Ir kāda iespēja Pascal tomēr palaist uz win8,vai varbūt jāsāk ar kko citu, vai labāk jāpārinstalē uz win7? Bet nu, pārinstalēt tomēr negribētos.
  14. gacho23

    pascal programma

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

    Pascal

    izveidot 2 pascal programmas,ar šādiem 2.nosacījiem Programmas viens, otras programmas nosaukums divi 1.ar random funkciju iegut divus skaitlus no 1.no 1-6 un 2.10-20 un izvadit uz ekrana skaitlus no 1. lidz 2 skaitlim un to kvadratu. 2.ar random funkciju iegut divus skaitlus no 1.no 2-5 un 2.15-20 un izvadit uz ekrana skaitlus no 1. lidz 2 skaitlim un to kvadratu.un to kvadrata sakni
  16. Zyx-Cheater

    Pascal- masivu izveide un analize

    Sveiki! Šobrīd studēju un mācos darboties pascālā, programmēšana man nekad nav īsti gājusi un vienmēr sagādājusi lielas problēmas. Jau vairākas dienas cīnos ar vienu uzdevumu, kuru man uzdeva augstskolā, un netieku galā ar dažādām nepilnībām. Mans uzdevums ir Viendimensiju masīvā (masīvs ar dažādām skaitliskām vetrtībām, 50 elementi) noteikt mazākā elementa vērtību un indeksu, analizēt visus masīva elemntus, kas ir lielāki par 3. Man ir jāuzstaisa divas programmas, viena kas izveidos piecus masīvus, un otra, kas viņus analizēs un atradīs tuvāko vērtību 3, kas ir lielāka par 3. Ar pirmo darba daļu itkā galā esmu ticis, programma izveido 5masīvus, kuri ir txt failā. Programmas teksts, kas izveido masīvus: program masivs; uses crt; var mas:array[0..49] of real; i, j:integer; a, x, solis:real; fails:text; begin writeln('Programma, kas genere masivu'); assign(fails, 'masivs.txt' ); rewrite(fails); for j:=1 to 5 do begin writeln; writeln; writeln('Ievadi x vertibu:'); readln(x); writeln('Ievadi a vertibu:'); readln(a); writeln('Ievadi soli par kadu pieaugs masiva elementi:'); readln(solis); writeln; writeln('Masivs:'); writeln; for i:=0 to 49 do begin mas:=a*x; x:=x+solis; write(mas:8:0, ''); write(fails,mas:8:0, ''); end; writeln(fails); end; writeln(''); writeln(''); close(fails); readkey; end. >>>>> Otras programmas teksts kas analizē masīvus: program masivs; uses crt; var mas:array[0..49] of real; i, j, l, id, ind:integer; b, a:real; fails:text; begin writeln('Programma, kas analize masiva elementus'); assign(fails, 'masivs.txt' ); reset(fails); for j:=0 to 4 do begin writeln; for i:=0 to 49 do begin read(fails,mas); write(mas:8:0, ''); end; writeln; for l:=0 to 49 do begin if (mas > 3) then b:= mas; id:= l; break end; for i:=0 to 49 do begin if (mas > 3) then if (mas < b) then begin b:= mas; id:=i; end; end; writeln('Vismazaka masiva elementa, kas lielaks par 3 vertiba ir', b:3:0, ' ', 'un ta indeks ir=', id, ''); end; writeln(''); writeln(''); write(fails); close(fails); readkey; end. >>> Pievienošu bildi, kurā redzama šī programma. Tajā ir nepilnības ar kurām nespēju tikt galā, šajā forumā noteikti lielākā daļa ir gudrāki par mani programmēšanā un ceru uz viņu padomiem un palīdzību. Programma jaucās ar indeksiem un brīžam arī ar skaitļu vērtībām. Nesaprotu kur ir manas kļūdas tekstā un kapēc viss nestrādā kā vajag. Tikko iedomājos izņemt no otrā cikla: break , bet tagad izskatās ka programma negattīvos skaittļus uzttver kā pozitīvus. masivs.txt
  17. janssunsanj

    pascal iegade

    sveiki, savos pusaudzu gados es mileju paprogrammet pascala (uz skolas datora), kaut gan es nemacijos datorzinibas. tagad atkal sagribejas paniekoties, bet neta meklejot paskalu uzgaju kautkadu open versiju?!?!??! jautajums ir tads, kur var dabut officialu turbo paskalu (un vai par to vajag maksat - neta nevaru atrast paskala officialu situ, kura visu siki uzzinat)
  18. Man ir gatavs programmas kods, kur prasība ir viena ieraksta izmaiņa failā. Bet vajadzētu - divu ierakstu apmainīšana failā (pēc uzdotas pazīmes). Īsti nesaprotu kā to realizēt kodā. Uzdevums: Izstrādāt galveno programmu un moduli tiešās pieejas failu darbību analīzei. Failam jāsatur fiksēta garuma ieraksti (piem. simbolu rindas). Paredzēt apakšprogrammas sekojošam failu darbībām: faila izveidošana divu ierakstu apmainīšana failā (uzdotas pazīmes) faila satura apskatīšana. Moduļa LAB5UN pirmtekstsunit lab5un; interface uses LAB5IO; type MyRec= record name1 : STR39; name2 : STR39; end; type Myfiletype = file of MyRec; var MyFileERR :integer; procedure Fcreate(var fff:Myfiletype; filename:string; var FileOpen: boolean); procedure Fopenf ( var fff:Myfiletype;filename:string; var FileOpen:boolean); procedure Fview ( var fff:Myfiletype; FileOpen: boolean); procedure FRwRec ( var fff:Myfiletype; FileOpen: boolean); procedure FClose ( var fff:Myfiletype; var FileOpen: boolean); implementation uses CRT; procedure Fcreate(var fff:Myfiletype; filename:string; var FileOpen: boolean); var RC, n, i: integer; answer : string[1]; rec :MyRec; label BUILD; begin assign(fff, filename); {$I-} RC:=13; reset(fff); {$I+} RC:=ioresult; if (RC=0) then if (FileRewr(filename) = FALSE) then begin close(fff); FileOpen:=False; MyFileErr:=1; exit; end; {$I-} rewrite(fff); {$I+} if(IOResult<>0) then begin MyFileErr:=3; FileOpen:=False; exit; end; n:=NumOfRec; Rec.Name1:=' '; Rec.Name2:=' '; for i:=0 to n do begin Rec.name1:= chr($61 +i); Rec.name2:= chr($30 +i); write(fff,Rec); end; close(fff); FileOpen:=False; end; procedure FOpenF( var fff:Myfiletype; filename:string; var FileOpen: boolean); begin assign(fff, filename); {$I-} reset(fff); {$I+} if (ioresult=0) then FileOpen:=TRUE else begin FileOpen:=False; MyFileErr:=4; end; end; procedure Fview( var fff:Myfiletype; FileOpen: boolean); var i :integer; rec:Myrec; begin if (FileOpen=False) then begin WriteLntext(' Fails nav atverts ; Darbibu nevar izpildiit'); exit; end; i:=0; seek(fff,i); while (eof(fff)<> TRUE) do begin read(fff,rec); WriteLnRec('Ieraksts #:', i,' ',rec.name1, ' ', rec.name2); i:=i+1; end; seek(fff,0); end; procedure FRwRec( var fff:Myfiletype; FileOpen: boolean); var Rec:Myrec; var i: integer; begin if (FileOpen=False) then begin WriteLnText(' Fails nav atverts ; Darbibu nevar izpildiit'); exit; end; WriteLnTEXT (' Ievadi labojamaa ieraksta numuru '); {$I-} readINT(i); seek(fff,i); {$I+} if (ioresult=0) then FileOpen:=TRUE else begin MyFileErr:=5; exit; end; READREC(Rec.name1, Rec.name2); write(fff, rec); end; procedure FClose( var fff:Myfiletype; var FileOpen: boolean); begin if (FileOpen=False) then begin WriteLnText(' Fails nav atverts ; Darbibu nevar izpildiit'); exit; end; WriteLnText (' Aizveram failu '); close(fff); FileOpen:=False; end; begin MyFileErr:=0; end. Moduļa LAB5IO pirmtekstsunit lab5IO; interface var MyFileErr: integer; type STR39= string[39]; function FileRewr(filename:string): boolean; function NumOfRec: integer; procedure WriteLnTEXT( OUTTEXT: string); procedure readINT(var i: integer); procedure READREC(var STR1, STR2 : STR39); procedure WriteLnRec(str1: string; i:integer; str2,str3,str4,str5:string); procedure FError ; implementation uses CRT; function FileRewr(filename:string): boolean; var answer:string; begin writeln('Fails ',filename,' eksiste vai veidot to no jauna ?'); writeln(' j/n '); read(answer); if( (answer='j') or (answer='J')) then begin writeln(' esoso failu paarrakstam'); FileRewr:= TRUE; exit; end else begin writeln('tiek saglabaats esosais fails '); FileRewr:= FALSE; end; end; function NumOfRec: integer; label INPNUM; var n : integer; begin INPNUM: writeln('Cik ierakstus gatavot (skaitam 0, 1, 2, 3,.. n)?'); {$I-} read(n); {$I+} if(IOResult<>0) then begin writeln(' Nepareizi ievadiits ierakstu skaits'); writeln(' Ievadiit vajag no jauna'); goto INPNUM; end; NumOfRec:=n; end; procedure WriteLnTEXT( OUTTEXT: string); begin writeln( OUTTEXT); end; procedure readINT(var i: integer); begin read(i); end; procedure READREC(var STR1, STR2 : STR39); begin writeln(' Ievadi labojamaa ieraksta pirmo lauku'); readln; readln(STR1); writeln(' Ievadi labojamaa ieraksta otro lauku'); read; readln(STR2); end; procedure WriteLnRec(str1: string; i:integer; str2,str3,str4,str5:string); begin writeln(str1, i:3,str2,str3,str4, str5); end; procedure FError ; begin case (MyFileErr) of 1: writeln( ' ######01 lietotaajs neatlauj paarrakstit esoso failu '); 2: writeln( ' ######02 Kluuda ievadotierakstu skaitu veidojamaa failaa'); 3: writeln( ' ######03 Neizdodas radiit failu'); 4: writeln( ' ######01 Nevar atveert pieprasiito failu'); 5: writeln( ' ######04 Nepielaujams labojamaa ieraksta numurs'); else writeln(' ######55 Faila apstraades kluuda Nr:', MyFileErr); end; MyFileErr:=0; writeln(' ###### nospied taustinu '); readkey; end; begin MyFileErr:=0; end. Vadības programmas pirmtekstsprogram lab5; uses lab5un, lab5IO; var Mydata: Myfiletype; Myrecc : Myrec; MydataOpen : boolean ; var RC:integer; filename: string; Oper: integer; label CASEPOINT; begin MyDataOpen:=False; CASEPOINT: if (MyFileErr<>0) then FError; writeln(' Ko darisim ?'); writeln('1 - veidosim jaunu failu'); writeln('2 - atversim esosu failu'); writeln('3 - apskatisim faila saturu'); writeln('4 - mainisim failaa viena ieraksta saturu'); writeln('5 - aizvert failu '); writeln('6 - beigt darbu '); readln (Oper); case (Oper) of 1: begin write('Ievadi faila vaardu '); read; readln(filename); FCreate(MyData, filename,MyDataOpen); end; 2: begin write('Ievadi faila vaardu '); read; readln(filename); FOpenf(MyData, filename, MyDataOpen ); if(MyDataOpen=true) then writeln('Fails ',filename,' atverts sekmigi') else writeln('Failu ',filename,' atvert neizdevaas'); end; 3: begin Fview(MyData, MydataOpen); end; 4: begin FRwRec(MyData, MyDataOpen); end; 5: begin FClose(MyData, MyDataOpen); end; 6: begin exit; end; end; goto CASEPOINT; end.
  19. TinaT

    Pascal apakšprogrammas

    Vai mans risinājums ir veikts ar 2 līmeņu programmu? Un kā to saprast? Ir gatavs Pascal programmas kods: Program Lab2; uses CRT; const ElSk=20; { Elementu skaits masiva} InpFileName='Data.txt'; type MyMas=array[1..ElSk] of integer; {apkalpojama masiva tips} var ms: MyMas; {Apkalpojamais masivs} InpFile, {Ievada datu fails} OutFile {rezultatu fails} :TEXT; i, summa2 : integer; ch : char; OutfileName: string; label TESTING, ENDING; procedure BUBLE( var a: MyMas) ;forward; { norade uz deklaraciju zemak} function SUM2( a:MyMas) :integer;forward;{ iekseja PROCMAS funkcija} procedure PROCMAS( var a: MyMas; var S2: integer);forward; procedure PROCMAS( var a: MyMas; var S2: integer); var i ,j,temp: integer; begin {Sakas ProcMas izpilde } S2:=sum2(a); { Nosakam divu mazako masiva elementu summu } if (S2<10) then { Vieta, kur vajadzetu kartot augosha seciba} for i:=1 to ElSk-1 do for j:=i+1 to ElSk do if a< a[j] then begin temp:= a; a:=a[j]; a[j]:=temp; end; end; {ProcMas } procedure BUBLE( var a: MyMas); {masiva a kartosana disltosha secibaa} var i, j, temp : integer; begin for i:=1 to ElSk-1 do for j:=i+1 to ElSk do if a> a[j] then begin temp:= a; a:=a[j]; a[j]:=temp; end; end; {BUBLE} function SUM2( A:MyMas) :integer;{ iekseja PROCMAS funkcija} { nosaka divu mazako a masiva elementu summu } var i, sum : integer; begin BUBLE(a); { Kartojam masivu dilstosa seciba} sum:=0; {Summejam pirmos divus sakartota masiva elementus} for i:=1 to 2 do sum:=sum+a; SUM2:=sum; end; { SUM2 } begin Assign(InpFile, InpFileName ); { Datu ievada fails } Reset(InpFile); writeln(' Ievadiet rezultata faila vaardu:'); readln(OutFileName); assign(OutFile, OutFilename); { Rezultatu fails } rewrite(OutFile); TESTING: CLRSCR; for i:=1 to ElSk do Read(InpFile, ms); if EOF(InpFile) then goto ENDING; writeln( 'Ievaditie dati:'); writeln(Outfile); writeln(Outfile, 'Ievaditie dati:'); for i:=1 to ElSk do begin write(' "', i:2,'" ', ms:4, ' '); write(Outfile, ms:3); end; PROCMAS( ms, summa2); writeln(Outfile); writeln( 'Divu mazako masiva elementu summa ir ', summa2); writeln(Outfile, 'Divu mazako masiva elementu summa ir ', summa2); writeln('Rezultata masivs:'); writeln (Outfile, 'Rezultata masivs:'); for i:=1 to ElSk do begin write(' "', i:2,'" ', ms:4, ' '); write(Outfile, ms:3); end; writeln(' Ievadi y vai Y lai turpinatu vai ko lai beigtu'); readln(Ch); if (ch='Y') or (ch='y') then goto TESTING; ENDING: close(InpFile); close(OutFile); end.
  20. sanfrancisko

    programmu apakšlīmeņi

    kā skaita programmas apakšlīmeņus? piemēram, ja man galvenajā programmā ir viena vai vairākas neatkarīgas procedūras, tad tā ir 2 līmeņu programma? un ja galvenajā programmā ir procedūra, kurā iekšā ir kāda funkcija, tad tā jau ir 3 līmeņu programma?
  21. mrdimants

    Ceru uz jūsu sapratni.

    Esmu nedaudz neizpratnee, kaa pilda so doto uzdevumu, ceru uz sapratni 1. Masīva A(N,M) elementiem ( kur N un M ievada no tastatūras), vērtības piešķir ar RANDOM funkciju. Masīva vērtību apgabals norādīts konkrētā uzdevumā. 2. Uz ekrāna izvada: matricu A(N,M): katram variantam aprēķināto rezultātu. 3. Uzdevums - Dotas matricas elementi ir naturali skatli robezas(10,20). Noteikt cik matrica ir vienadi blakus elementu pari matricas kolonnas. Izvadit to skaitu un katra atrasta para elementa vertibu un atrasanas vietu. 4. Pievērsiet uzmanību, kā M, N var būt vērtība >par3 5. Ja matrica uzdevumā kvadrātiskā tad M=N. 6. Programmā iegūto rezultātu saglabāt teksta failā 7. Programmā pierakstīt komentārus 8. Uzdevuma risinājumam, uzzīmēt programmas blokshēmu. Paslaik ir tik talu, talak neizprotu, kas talak jaizdara... program a11uzd; uses crt; var n,m,k,f:integer; A: Array [1..10, 1..20] of integer; begin clrscr; writeln('Ievadi n un m: '); readln(n,m); for k:=1 to m do for f:=1 to n do A[k,f]:=random(10)+10; for k:=1 to m do begin for f:= 1 to n do write(A[k,f]:4); writeln(); writeln(); end; readkey; end.
  22. og1oc

    Pascal teksta apstrāde

    Jāpilda mājasdarbs divas stundas jau čakarējos, bet nevaru izdomāt. Uzd tāds, varbūt varat palīdzēt. Programma ievadīt Text failu, veikt tā apstrādi un apstrādes rezultātu izvadīt citā TEXT failā. Ja ievades failā divas viena otrai sekojošas rindas ir vienādas, tad izvades failā starp vienādajām rindām iespraust rindu ar tekstu COPY. Paraugs kurš jāmaina: program Lab1; uses CRT; var InpFile, {Ievada datu fails} OutFile :TEXT; {rezultatu fails} InputString, OutputString : string; OutfileName: string; CONST InpFileName='Lab1Inp.txt'; begin Assign(InpFile, InpFileName ); { Datu ievada fails } Reset(InpFile); writeln(' ievadi rezultata faila vaardu'); readln(OutFileName); assign(OutFile, OutFilename); { Rezultatu fails } rewrite(OutFile); CLRSCR; while (not EOF (InpFile)) do begin readln(InpFile, InputString); OutputString:=InputString; writeln( OutputString); OutputString:='Apstraadaatais teksts="' + Outputstring + '"'; writeln( OutputString); Writeln(OutFile, Outputstring); end; close(InpFile); close(OutFile); end.
  23. pingvinleduslacis

    Txt failu apstrāde

    Paldies
  24. Lietotājs ievada no tastatūras teksta mainīgo A. Ievada arī teksta mainīgo B un C. A,B,C var būt gan vārds, gan nesakarīga simbolu virkne, jebkas. Programmai ir jāparbauda vai teksta mainīgais A sākas ar Y un ir vienāds ar kādu no teksta mainīgajiem B vai C
  25. AneteJ

    help

    Man programma neaiziet, nevaru atrast savu kļūdu. Itkā uzrādās : Ожидался конец файла.
×
×
  • Izveidot jaunu...