Pascal

viki · Napísal autor témy **viki**: 11.12.2016 15:59

a keď chcem aby z toho bol záznam tak na žačiatok pridam type a ktomu čo potrebujem ?

focko · Napísal **focko**: 11.12.2016 16:01

tam som ešte nedošiel v tomto nepríjemnom jazyku

https://www.tutorialspoint.com/pascal/pascal_records.htm

viki · Napísal autor témy **viki**: 11.12.2016 16:09

to ani ja celý pascal na výške prejdu behom mesiaca a ja si pískať môžem lebo v živote som to nemala

LadyD · Napísal **LadyD**: 11.12.2016 16:26

ale to by som potrebovala v zazname a ked sa nemylim to v zazname nieje

// Spojený príspevok 11.12.2016 16:27

aha uz nic

uz to vidim

viki · Napísal autor témy **viki**: 11.12.2016 21:15

Kód:

program zadanie2;
 type 
 Tkamiony=record
znacka :string;
TK:(ano,nie);
zatazenost:(volny,naceste);
end;
var 
dp:Tkamiony;
f:text;
A,V,N:char;
begin
write ('TK');
write ('A-ano,N-nie:');
readln(A);
until (A='a') or (A='A') or (A='n') or (A='N');
Case A of 
'a','A':dp.TK:=ano;
'n','N':dp.TK:=nie;
end;
write ('zatazenost:');
write ('V-volny, N-naceste:');
readln (V)
until (V='v') or (V='V') or (V='n') or (V='N');
Case V of 
'v','V' :dp.zatazenost:=volny;
'n','N' :dp.zatazenost:=naceste;
end;
write (f,'znacka',dp.znacka);
write (f,'TK',dp.TK);
write (f,'zatazenost',dp.zatazenost);
end.

// Spojený príspevok 11.12.2016 21:15

nechce mi brat until vyhadzuje mi chybu že mu vadí ;

// Spojený príspevok 11.12.2016 21:44

Za chyby sa vopred ospravedľnujem už sama neviem čo píšem ..

Vopred veľmi pekne ďakujem

focko · Napísal **focko**: 11.12.2016 21:58

skús používať jednotné číslo pri definícii typu... chýba ti tam do, preto sa mu nepáči until s bodkočiarkou

viki · Napísal autor témy **viki**: 11.12.2016 22:04

Kde má tam byť do bo už dajako nechápem strácam sa niečo iné čítam ale tu verím viac bo sa v tom určite vyznáš

focko · Napísal **focko**: 11.12.2016 22:05

sorry, repeat

som zabudol, že to je pascal

viki · Napísal autor témy **viki**: 11.12.2016 22:06

a kde mám dať ten repeat ?

focko · Napísal **focko**: 11.12.2016 22:08

Kód:

program zadanie2;
type
  TKamion=record
    znacka : string;
    tk : (ano,nie);
    zatazenost : (volny,na_ceste);
end;
var
  dp : TKamion;
  f : text;
  A, V : char;
begin
  Assign(f, 'kamion.txt');
  Rewrite(f);
  write('Znacka: ');
  readln(dp.znacka);
  repeat
    write('TK ([A]no, [N]ie): ');
    readln(A);
  until (A = 'a') or (A = 'A') or (A = 'n') or (A = 'N');
  Case A of
    'a', 'A' : dp.TK := ano;
    'n', 'N' : dp.TK := nie;
  end;
  repeat
    write('zatazenost ([V]olny, [N]a ceste): ');
    readln(V);
  until (V = 'v') or (V = 'V') or (V = 'n') or (V = 'N');
  Case V of
    'v', 'V' : dp.zatazenost := volny;
    'n', 'N' : dp.zatazenost := na_ceste;
  end;
  writeln(f, 'Znacka: ', dp.znacka);
  writeln(f, 'TK: ', dp.tk);
  writeln(f, 'Zatazenost: ', dp.zatazenost);
  Close(f);
end.

viki · Napísal autor témy **viki**: 11.12.2016 22:08

Kód:

Program pocitac;
type Tpocitac=record
  Znacka : string;
  Farba : (biela,cierna,strieborna);
  Uhlopriecka : integer;
  Pamat : real;
  Hmotnost : real;
end;
var
  pc : Tpocitac;
  S : Char;
  I : Integer;
  LINE: string;
  f: text;
begin
  Assign(f, 'pocitac.txt');
  Rewrite(f);
  writeln('Zadaj nasledujuce polozky:');
  write('Znacka:');
  readln(pc.znacka);
  repeat
    writeln('Farba :');
    write('B-biela,C-cierna,S-strieborna: ');
    readln(S);
  until (S = 'b') or (S = 'B') or (S = 'c') or (S = 'C') or (S = 's') or (S = 'S');

  Case S of
    'b','B' : pc.farba := biela;
    'c','C' : pc.farba := cierna;
    's','S' : pc.farba := strieborna;
  end;
  writeln(f, 'znacka: ', pc.znacka);
  writeln(f, 'farba: ', pc.farba);
  writeln(f, 'uhlopriecka: ',pc.uhlopriecka);
  writeln(f, 'Pamat: ',pc.pamat:3);
  writeln(f, 'Hmotnost: ', pc.Hmotnost:6:2);
  close(f);
end.

Viete mi pomôcť s týmto aby tam bolo minimum alebo maximum sumy a aby to zapísalo ? lebo mne to nechce isť a neviem si s tým už rady :/

Pascal

Podobné témy