potrebujem pomoct v pascale

• Citovať príspevok

Príspevok od používateľa vladki74 » 25 mar 2007, 13:50

• Citovať príspevok

Príspevok od používateľa chrono » 25 mar 2007, 13:51

este raz to zadanie

• Citovať príspevok

Príspevok od používateľa vladki74 » 25 mar 2007, 15:13

• Citovať príspevok

Príspevok od používateľa audiotrack » 25 mar 2007, 16:11

• Citovať príspevok

Príspevok od používateľa Gregi » 26 mar 2007, 8:35

Boh vie, do akeho vlaku to nastupil. Ale predpokladam ciel, Ukrajina, Rusko (a uz o nom nikdy nepoculi)

• Citovať príspevok

Príspevok od používateľa piton » 26 mar 2007, 14:11

Gregi napísal:Boh vie, do akeho vlaku to nastupil. Ale predpokladam ciel, Ukrajina, Rusko (a uz o nom nikdy nepoculi)

ROFL
K teme... Program by som aj vedel urobit, ale tie prve 2 body netusim o com su

• Citovať príspevok

Príspevok od používateľa audiotrack » 26 mar 2007, 17:36

Kód: Vybrať všetko

program zamest;
 type TZamestnanec=record
       meno:string;
       priezvisko:string;
       plat:integer;
       end;
const pocet=10;
var zamestnanci:array[1..pocet] of TZamestnanec;
    pomocna:TZamestnanec;
      I,J:Integer;

begin
for I:=1 to pocet do begin
  write('Zadaj meno ',i,'. zamestnanca: ');
  readln(zamestnanci[i].meno);
  write('Zadaj priezvisko ',i,'. zamestnanca: ');
  readln(zamestnanci[i].priezvisko);
  write('Zadaj plat ',i,'. zamestnanca: ');
  readln(zamestnanci[i].plat);
  end;
for I:=1 to pocet do begin
  for J:=1 to I do begin
    if zamestnanci[i].plat>zamestnanci[j].plat then begin
      pomocna:=zamestnanci[j];
      zamestnanci[j]:=zamestnanci[i];
      zamestnanci[i]:=pomocna;
      end;
  end;
end;
writeln('Zoradenie podla platu: ');
for I:=1 to pocet do begin
  writeln (zamestnanci[i].meno,' ',zamestnanci[i].priezvisko)
end;
end.

//edit:

Gregi napísal:Boh vie, do akeho vlaku to nastupil. Ale predpokladam ciel, Ukrajina, Rusko (a uz o nom nikdy nepoculi)

na vlak do nitry na privát.. potom som na to zabudol, preto som písal tak neskoro lebo až druhý deň som zbadal že som jej to slúbil

• Citovať príspevok

Príspevok od používateľa katika » 27 mar 2007, 20:09

• Citovať príspevok

Príspevok od používateľa chrono » 27 mar 2007, 20:10

• Citovať príspevok

Príspevok od používateľa audiotrack » 27 mar 2007, 20:11

katika napísal:@audiotrack

mas moznost to aj vyskusat ?
Ak ano, aky program pouzivas ?

je to funkčné.. písal som to v delphi, ale je to syntax pascalu takže je jedno v čom to budeš skúšať. Turbo Pascal, Borland, Freepascal.. čokoľvek.

chrono napísal:Pokiaľ viem, audiotrack používa Delphi (už to tuším písal).

audiotrack používa delphi, micsrosoft visual studio a pspad na javascript a php. Šír toto posolstvo ďalej

• Citovať príspevok

Príspevok od používateľa katika » 27 mar 2007, 22:42

co vy nato ?

je to ok ?

• Citovať príspevok

Príspevok od používateľa audiotrack » 27 mar 2007, 22:46

• Citovať príspevok

Príspevok od používateľa katika » 27 mar 2007, 22:59

ups premena sa mi stratila

uz som to opravila dik

• Citovať príspevok

Príspevok od používateľa chrono » 27 mar 2007, 23:56

audiotrack napísal:audiotrack používa delphi, micsrosoft visual studio a pspad na javascript a php. Šír toto posolstvo ďalej

Hm, programy v Pascale sa dajú robiť aj v MS Visual Studiu (tak to si ho budem musieť asi zohnať [v BSA rozumejte: kúpiť], keďže potom asi nie je nič, čo by sa v ňom nedalo robiť)?

• Citovať príspevok

Príspevok od používateľa audiotrack » 28 mar 2007, 9:33

ahj

• Citovať príspevok

Príspevok od používateľa Gregi » 28 mar 2007, 10:46

audiotrack napísal: //edit:
na vlak do nitry na privát.. potom som na to zabudol, preto som písal tak neskoro lebo až druhý deň som zbadal že som jej to slúbil

Ale iste, len sa Ti akosi tazko dycha s tym jednym plucom a vzdy po pivcisku Ta boli chrbat, pretoze ta, uz len jedna, oblicka to nestiha. No hold, stavaju sa i hosie veci. Ale hlavne ze si stastny a v kruhu milujucej rodiny. Organ sem, organ tam, to Ta predsa nemoze rozhadzat