Pascal program.

Moderatori: janis.wd, Vecākie lietotāji

amamam
Reģistrēts lietotājs
Atbildes: 2
Pievienojies: 24 Sep 2014, 12:14
Reputācija: 0

Pascal program.

Post no amamam » 24 Sep 2014, 12:17

Palīdziet sastadit programmu pascala.

uzdevums ir ->

Ievadīt trīsstūra virostņu koordinātes.Aprēķināt trīsstura malu garumus.

viesic
Reģistrēts lietotājs
Atbildes: 155
Pievienojies: 26 Jan 2009, 13:37
Reputācija: 0

Post no viesic » 24 Sep 2014, 12:43

Grūtāko daļu uzrakstīju, pārējo daļu gan jau īzī sarakstīsi:

Code: Select all

Program xy;
Var       
    x,y : Integer;
Begin
 Write('x: '); 
 Readln(x);
 Writeln('y: ');
 Readln(y);
 ...
End.
Last edited by viesic on 24 Sep 2014, 13:42, edited 1 time in total.

amamam
Reģistrēts lietotājs
Atbildes: 2
Pievienojies: 24 Sep 2014, 12:14
Reputācija: 0

Post no amamam » 24 Sep 2014, 12:46

Es vispār esmu iesācējs.. un varētu arī sākumu man palīdzēt lūdzu? :)

User avatar
Aldis
E-žurnālists
Atbildes: 5084
Pievienojies: 21 Nov 2008, 15:55
Reputācija: 0
Atrodas: LV

Post no Aldis » 24 Sep 2014, 13:20

Image
Image Oh My God = OMG
Image Ak Mans Dievs = AMD

User avatar
Crow
E-žurnālists
Atbildes: 5391
Pievienojies: 10 Mai 2009, 14:22
Reputācija: 0
Atrodas: Ir

Post no Crow » 24 Sep 2014, 16:41

Tu esi izvēlējies nepareizo profesiju. Palīdzēt varētu, programma ir smieklīgi vienkārša, bet ticēt, ka tas tev noderēs vairāk kā tikai attiecīgajā kursā atšūties no pasniedzēja, no mums būtu par daudz prasīts.
Дебилы, бл*ть...

User avatar
foxsk8
Moderators
Atbildes: 5070
Pievienojies: 22 Feb 2007, 12:33
Reputācija: 0
Atrodas: Liepāja, www.notepad.lv

Post no foxsk8 » 24 Sep 2014, 20:17

Kam tas pascal vajdzīgs. Labāk iedotu tev uzreiz ar Visual Basic darboties, vai arī ar kādiem SDK. Vot uztaisi disketes rasējumu paskālā :), nekas grūts tur nav. Paskāls diemžēl programmēšanas sākumos ir tas pats kas reizrēķins matemātikā. utt.. patīk viņš vai nē, bet ir jāmāk.

Kādreiz vispār neta nebija, bija grāmatnīcā nopērkama pascal iesācējiem ar daudz un dažādiem uzdevumiem, piemēriem, utt.. man kaut kur pat tā grāmata mētājās.

User avatar
Crow
E-žurnālists
Atbildes: 5391
Pievienojies: 10 Mai 2009, 14:22
Reputācija: 0
Atrodas: Ir

Post no Crow » 24 Sep 2014, 21:56

Tā. Aiz neko darīt krietni sarūsējušās iemaņas padarbinot:

Code: Select all

program Sides;

const
  X_ = 0;
  Y_ = 1;

type
  TVertex = array[X_..Y_] of Real;

var
  g_Triangle: array[0..2] of TVertex;
  g_Sides: array[0..2] of Real;
  i, j: Integer;

begin
  WriteLn('Mans lieliskais trijstuura malu garumu apreekjinaataajs.');
  WriteLn;

  for i := 0 to 2 do
  begin
    j := i + 1;
    Write('Ievadiet ', j, '. virsotnes X koordinaatu: ');
    ReadLn(g_Triangle[i][X_]);
    Write('Ievadiet ', j, '. virsotnes Y koordinaatu: ');
    ReadLn(g_Triangle[i][Y_]);
  end;

  WriteLn;

  for i := 0 to 2 do
  begin
    j := (i + 1) mod 3;
    g_Sides[i] := Sqrt( Sqr(g_Triangle[i][X_] - g_Triangle[j][X_]) + Sqr(g_Triangle[i][Y_] - g_Triangle[j][Y_]) );
  end;

  for i := 0 to 2 do
    WriteLn(i + 1, '. malas garums: ', g_Sides[i]:3:3);
  WriteLn;
  Write('Aplausus studijaa!');
  ReadLn;
end.
Image

Nezinu, vai vecajā Paskālā kompilējas, varbūt "uses Math" vajadzēja priekš kvadrātsaknes. Bet tas, kopā ar faktu, ka neviens pasniedzējs neticētu, ka pats šitādu sacerēji, lai paliek kā "kaut kas pašam arī jāizdara".

User avatar
Aldis
E-žurnālists
Atbildes: 5084
Pievienojies: 21 Nov 2008, 15:55
Reputācija: 0
Atrodas: LV

Post no Aldis » 25 Sep 2014, 09:28

Agrāk samples jau kkādas bij arī internetos. Atceros kā staipīju ar disketēm uz mājām kodus un tutoriālus... :D Ap 2000.-šajiem gadiem. Literatūra no kuras man bij jāapgūst bij krievu valodā, tamdēļ no vairums vienaudžiem to arī saprotu.

Uz kordinātu plaknēm "zīmējām" līnijas u.c. objektus uz visual basic, kgan turbo pascal arī varēja grafisko režīmu piečinīt tīri sakarīgu, pievienojot laikam graph.tpu moduli.
Image Oh My God = OMG
Image Ak Mans Dievs = AMD

User avatar
macbeton
Reģistrēts lietotājs
Atbildes: 3510
Pievienojies: 01 Nov 2008, 18:43
Reputācija: 1
Atrodas: Libau

Post no macbeton » 25 Sep 2014, 10:17

Traģiskākais ir ka tādi loši pēc tam nāk ārā no tā saucamajām universitātēm un lepojas ar savu diplomu.

User avatar
iKey
E-žurnālists
Atbildes: 1460
Pievienojies: 25 Apr 2007, 16:55
Reputācija: 0
Atrodas: Aizkraukles morālā anomālija

Post no iKey » 25 Sep 2014, 15:09

Profenē, kur mācās datorsistēmu tehniķi, programmēšana tiek arī apčamdīta - pārsvarā Pascal un tad Visual Basic.
Reset poga domāta tam, lai parādītu datoram, kurš te ir galvenais.

Jolla Sailfish
Image

User avatar
Aldis
E-žurnālists
Atbildes: 5084
Pievienojies: 21 Nov 2008, 15:55
Reputācija: 0
Atrodas: LV

Post no Aldis » 25 Sep 2014, 18:18

Nu i...? Lai jau lepojas ar saviem diplomiem...
Tur jau sākas vēl traģikomiskākais, ka tamdēļ mums ir sētnieki ar 3 augstākajām izglītībām...
Image Oh My God = OMG
Image Ak Mans Dievs = AMD

ExDec
Reģistrēts lietotājs
Atbildes: 285
Pievienojies: 24 Mar 2011, 12:00
Reputācija: 1
Atrodas: Latvija

Post no ExDec » 25 Sep 2014, 20:47

Jā, es arī nesaprotu, kāpēc tevi no turienes izlaida. Vajadzēja labāk sūtīt uz Tvaika ielu, jo lielākajā skaitā gadījumu tu tiešām nerubī, ko saki.

User avatar
macbeton
Reģistrēts lietotājs
Atbildes: 3510
Pievienojies: 01 Nov 2008, 18:43
Reputācija: 1
Atrodas: Libau

Post no macbeton » 27 Sep 2014, 17:06

Problēma ir ļoti vienkārša - kamēr tāds **dritvai kociņ** kautko mudjijās un priekšniecībai **dritvai kociņ** ka "tā ir jābūt", normāliem kadriem nav darba.
Tālāk no tā izriet, kamē tam daunim ir alga, viš arī vairojas. Iespēja, ka tādiem bērni izaugs gudri - ļoti niecīga.
Lielos kantoros tādi dauņi var izvilkt ne tikai pārbaudes laiku, bet pat gadus. Tas ir cieši saistīts ar Latvijas ekonomiku - liekais imports. Daunelis jau neko neprot saremontēt, un neprot novērst tehnikas bojāšanos. Drīzāk - pamudina tehnikas bojāšanos. Tas nozīmē lieko importu, kas savukārt ir galvenais kaitēklis visai šīs valsts ekonomikai.
Lielākā daļa tuparilu tiktāl nespēj padomāt, nogurst tas ķīselis galvā.

Pievienot atbildi

Return to “Cita programmatūra ”