Pascal - programavimo kalba

Programavimas bei interneto svetainių kūrimas
paulixxx
Posts: 215
Joined: Fri Jan 01, 2010 8:57 pm

Re: Pascal - programavimo kalba

Postby paulixxx » Thu Mar 17, 2011 5:30 pm

Code: Select all

program bylos; var prad, pirma: text; begin assign(prad, 'PIRMAS.TXT'); // failas tam pačiam aplankale rewrite(prad); //prad, o ne parad WriteLn(prad, 'text'); close(prad); //pamiršai šita Readln; //readln nereikia Readln; end.
Windows 7 Ultimate; NVIDIA GeForce 9500 GT (1024 MB); AMD Athlon(tm) 64 X2 Dual Core Processor 4400+; HDD 250GB; 3 GB RAM DDR II; PSU 350W;MB Gigabyte GA-M61PME-S2

KiLLV
Posts: 1
Joined: Mon Apr 18, 2011 3:41 pm

Re: Pascal - programavimo kalba

Postby KiLLV » Mon Apr 18, 2011 3:44 pm

tai vat ziurekit kai ant delphi parasyti kad pvz yra suma 31
ir ji sudeti 3+1

kaip parasyt?

User avatar
enemy11
Posts: 33
Joined: Tue Jun 29, 2010 3:05 pm

Re: Pascal - programavimo kalba

Postby enemy11 » Tue Apr 19, 2011 9:19 am

Jei skaičius dviženklis su DIV ir MOD susirask pirmą ir paskutinį skaičiaus skaitmenį ir sudėk.

pikckiskis
Posts: 1
Joined: Sat Jun 11, 2011 10:17 pm

Sveiki , dėl pascalio :)

Postby pikckiskis » Sat Jun 11, 2011 10:26 pm

sveiki visi esu pijus man 11 domiuosi yvairiais dalykais susijuseis su pc programavimas,photoshopinimas,video editinimas ir t.t. :D kaip sakiau man 11 todėl dar neasu konors rimto sukūres ar pan.

šendien man yšklio dar 1 klausimas manau čia lankosi daug tikrai patyrusiu programuotoju taigi aš noriu sužinot kaip sukurt pgr kuri galėtų daugint 2 skaitmenis ir po to parodyt gauta rezultata :)

jei kas galit ymeskit čia pgr teksta ir dar jei galit normalei paiskinkit kas ka ten reisk......

iškart ačiū

User avatar
Progmaker
Rašytojas
Posts: 2414
Joined: Thu Jul 06, 2006 10:11 am
Contact:

Re: Pascal - programavimo kalba

Postby Progmaker » Mon Jun 13, 2011 9:40 pm

Code: Select all

Program daugyba; Var pirmas_skaicius, antras_skaicius, sandauga: Integer; {Pranešame kompiuteriui, kad mūsų programoje yra trys kintamieji (besikeičiančios reikšmės): pirmas skaičius, antras skaičius ir sandauga (čia saugosime sudaugintus pirmus du skaičius)} Begin {Programos pradžia} Write('Iveskite pirma skaiciu: '); {Išspausdina ekrane tekstą, prašantį įvesti pirmą skaičių} Readln(pirmas_skaicius); {Nuskaitomas iš klaviatūros įvestas skaičius} Writeln('Iveskite antra skaiciu:'); {Išspausdina ekrane tekstą, prašantį įvesti antrą skaičių} Readln(antras_skaicius); {Nuskaitomas iš klaviatūros įvestas pirmas skaičius} sandauga := pirmas_skaicius * antras_skaicius; {Sudauginti pirmą įvestą skaičių su antru ir tada rezultatą saugoti kintamajame sandauga} Writeln(sandauga); {Išspausdinti daugybos rezultatą} Readln; {Palaukti, kol programos vartotojas paspaus bet kokį klavišą - to reikia tam, kad pamatytum sandaugos rezultatą } End. {Programos pabaiga}
Sveikas, Pijau ;) Smagu, kad nutarei mokintis programuoti :) Čia parašiau paprastą programą (tiesa, iš atminties, tad jei kas geriau moka Pascal - pataisykit (Pascal programavau prieš kokius gal 10 metų)).
Labai gera knyga (ir dar lietuviškai!) Gintauto Grigo "Programavimas Paskaliu": http://ragaine.su.lt/mokomoji/pascal/index.htm Siūlau paskaityti ;)
Ir sėkmės :)
Knowledge is power! && http://www.ernestas.info/ (Gyvenu čia)

msv
Posts: 6
Joined: Thu Jul 28, 2011 3:59 pm

Re: Pascal - programavimo kalba

Postby msv » Sun Oct 09, 2011 8:52 pm

Sveiki visi,

nusprendžiau ir aš mokytis programavimo paslapčių, todėl užsirašiau į JPM. Gal kas iš labiau patyrusių gali man naujokui paaiškinti kaip išspręsti šitą pratimą?

8. Kintamieji a ir b yra sveikojo tipo. Kurie reiškiniai klaidingi ir kodėl?
a) 10 div 6 / 2; c) b mod (10 / 5);
b) a * 2 + a mod 3; d) a + 2b;


man atrodo, kad neteisingi yra a ir c, nes dalijami sveikieji skaičiai..?


o šitas kaip?

7. Ar yra neteisingų priskyrimo sakinių? Jei taip, nurodykite kurie, ir trumpai paaiškinkite kodėl.
a) n := n + 1; e) n := n mod 2;
b) n + 1 := 5; f) x := x;
c) x := x := 2; g) x := (7 mod 5);
d) 12 := n + 1; h) x/n := 1 -3;


beje, skaitau Grigo "programavimas paskaliu", bet taip ir neaišku man iki galo :|

msv
Posts: 6
Joined: Thu Jul 28, 2011 3:59 pm

Re: Pascal - programavimo kalba

Postby msv » Mon Oct 10, 2011 3:31 pm

Noriu pasakyti, kad labai laukiu atsakymo :)

User avatar
virusass
Posts: 241
Joined: Sun Jul 12, 2009 2:06 pm
Location: Subačius

Re: Pascal - programavimo kalba

Postby virusass » Tue Oct 11, 2011 8:30 am

8. Neteisingi a,c ir d. D neteisingas, nes 1) Kintamasis negali prasidėti skaičiumi; 2) Jei turėjo omeny 2*b tai reikia būtinai daugybos ženklo.

7. Neteisingi b,c,d ir h.
Shiz - šprotai irgi žuvis

msv
Posts: 6
Joined: Thu Jul 28, 2011 3:59 pm

Re: Pascal - programavimo kalba

Postby msv » Wed Oct 19, 2011 3:49 pm

8. Neteisingi a,c ir d. D neteisingas, nes 1) Kintamasis negali prasidėti skaičiumi; 2) Jei turėjo omeny 2*b tai reikia būtinai daugybos ženklo.

7. Neteisingi b,c,d ir h.
Dėku tau!

Reikia dar jūsų pagalbos.
program keisti;
var a, b, c: integer;
begin
read (a, b);
...
writeln (a, ' ', b)
end.
Vietoj daugtaškių reikia įrašyti tokius priskyrimo sakinius, kad programa du duotuosius skaičius parašytų atvirkščia eile, negu jie buvo perskaityti, t. y., sukeistų juos vietomis.
Pavyzdžiui, jeigu buvo perskaityti skaičiai 123 456, tai turi būti rašoma 456 123.

User avatar
virusass
Posts: 241
Joined: Sun Jul 12, 2009 2:06 pm
Location: Subačius

Re: Pascal - programavimo kalba

Postby virusass » Thu Oct 20, 2011 2:03 pm

Oo JPM :D Mano brolis kaiptik mokinasi aš jau baigiau :D

Code: Select all

program keisti; var a, b, c: integer; begin read (a, b); c := a; //Kintamajame c išsaugoma a reikšmė a := b; //a įgauna b reikšmę b := c; //Išsaugota a reikšmė kintamajame c perkeliama į kintamąjį b writeln (a, ' ', b) end.
Shiz - šprotai irgi žuvis

msv
Posts: 6
Joined: Thu Jul 28, 2011 3:59 pm

Re: Pascal - programavimo kalba

Postby msv » Fri Oct 28, 2011 8:58 pm

Parašykite programą (su komentarais), kuri, nenaudodama papildomų kintamųjų, sukeistų vietomis sveikojo tipo kintamųjų x ir y reikšmes.

Padėkit, labai prašau.

User avatar
virusass
Posts: 241
Joined: Sun Jul 12, 2009 2:06 pm
Location: Subačius

Re: Pascal - programavimo kalba

Postby virusass » Sat Oct 29, 2011 4:30 pm

Šiaip programa labai nesudėtinga, tiesiog reikia truputį pamastyti, kas gali susieti šiuos skaičius...

Code: Select all

program keisti; var x,y : integer; //Du duotieji skaičiai begin readLn(x,y); x := x + y; //Gaunama abiejų skaičių suma y := x - y; x := x - y; writeln(x, ' ', y); end.
Shiz - šprotai irgi žuvis

hafkas
Posts: 1
Joined: Mon Nov 28, 2011 10:55 pm

Re: Pascal - programavimo kalba

Postby hafkas » Mon Nov 28, 2011 10:57 pm

Padekite!
Gaunu sitoki error kai paleidziu programa.
http://imageshack.us/f/607/fpsc.png/

Lin3R
Posts: 765
Joined: Tue Jul 18, 2006 8:23 pm
Location: Kaunas

Re: Pascal - programavimo kalba

Postby Lin3R » Tue Nov 29, 2011 5:19 pm

Padekite!
Gaunu sitoki error kai paleidziu programa.
http://imageshack.us/f/607/fpsc.png/
Pagooglink apie klaidos kodus, ir žinosi kame bėda ;) arba kažkokios apie delphi gale yra surašyti visi kodai :)
Viskas ką pasakiau gali būti netiesa ;)

mrmodern
Princesė
Posts: 4042
Joined: Wed Mar 28, 2007 8:27 pm
Location: Vilnius

Re: Pascal - programavimo kalba

Postby mrmodern » Wed Jan 11, 2012 2:58 pm

Code: Select all

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Menus; type TForm1 = class(TForm) Menu: TMainMenu; N1: TMenuItem; ff1: TMenuItem; Normal1: TMenuItem; Hard1: TMenuItem; procedure ff1Click(Sender: TObject); procedure paspaustas(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; N:byte; M:integer; A:array[0..64,0..64] of byte; implementation {$R *.dfm} procedure TForm1.paspaustas(Sender: TObject); var Button: TButton; begin Button := Sender as TButton; ShowMessage(Button.Caption + ' clicked'); end; procedure generuoti; begin end; procedure kurtimygtuka(x,y,ID:integer); var (* Pointer to the new button that we are going to create *) NewButton : TButton; begin NewButton := TButton.create(nil); with NewButton do begin Top := x; Width := 32; Height :=32; OnClick := paspaustas; Left := y; Parent := form1; Caption := 'skyle '+ inttostr (ID); end; //With end; procedure CreateMatrix(); var i,j:byte; x,y:integer; begin Generuoti(); for i:=0 to M-1 do for j:=0 to M-1 do begin A[i,j]:=0; x:=100+i*40; y:=100+j*40; kurtimygtuka(x,y,i*M+j); end; end; procedure TForm1.ff1Click(Sender: TObject); begin //DeleteMatrix; N:=6; M:=6; CreateMatrix; end; end.
Klaida sitoj eilutejL
OnClick := paspaustas;

Undeclared indentifier 'paspaustas'
AMD Phenom 9750 HD3850, 4gb 2x2048mb ddr2, 320GB, 790X chipset.


Return to “Programuotojų kampas”

Who is online

Users browsing this forum: Bing [Bot] and 22 guests