Pascal

viki · Napísal **viki**: 09.12.2016 15:28 | Pascal

Potrebovala by som pomôcť v pascali. Chcela som vytvoriť záznam ktorý by obsahoval niečo kolo počítačov ja som si vybrala značku, farbu, uhlopriečku, pamäť a hmotnosť no keď program som zrealizovala nefungoval v každom riadku vyhodil chybu. Záznam musí obsahovať podmienku . No problém nastáva hlavne aj tu vždy keď zadám podmienku berie ju za chybu.

killer · Napísal **killer**: 09.12.2016 15:38 | Pascal

Daj sem kód čo zatiaľ máš.

viki · Napísal autor témy **viki**: 09.12.2016 16:06 | Pascal

Kód:

Program pocitac;
type  Tpocitac=recoord
Znacka:string;
Farba: (biela,cierna,strieborna);
Uhlopriecka:integer;
Pamat:real;
Hmotnosť:real;
end;
var
Pocitac:Tpocitac;
begin
writeln ('Zadaj nasledujuce polozky:');
write('Znacka:')
readln(pocitac.znacka);
write('Farba:')
readln(pocitac.farba);
repeat
writeln ('Farba :')
write('B-biela,C-cierna,S-strieborna');
readln (S);
until S im ['b','B','c','C','s','S'];
'b','B' :pocitac.farba=biela;
'c','C' :pocitac.farba=cierna;
's','S':pocitac.farba=strieborna;
end;
write ('pamat :',pocitac.pamat:3); readln ;
write ('Hmotnost :pocitac.hmotnost 6:2);
readln
end. 

Robila som to podľa vzoru ktorý sme robili v škole ale nefunguje to. No ešte z toho musím spraviť textový súbor čo zatiaľ netuším ako to spraviť . Za každú pomoc veľmi pekne ďakujem

focko · Napísal **focko**: 09.12.2016 16:07 | Pascal

vlož to do code, nedá sa to čítať

// úprava #1
record - máš dve O

// úprava #2
nemáš deklarované S typu char (tipujem), tú podmienku `until S...` som vôbec nepochopil

viki · Napísal autor témy **viki**: 09.12.2016 16:18 | Pascal

netušim ako sa s tym poriadne pracuje ked že to mam len druhy mesiac v živote a netušim . Mám proste teraz spracovať zadanie záznam čo ma obsahovať podmienku a tu podmienku until som robila všetko podla vzoru mame niečo podobne spracovane len tam nebol problem

focko · Napísal **focko**: 09.12.2016 16:27 | Pascal

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;
begin
  writeln('Zadaj nasledujuce polozky:');
  write('Znacka:');
  readln(pc.znacka);
  write('Farba:');
  readln(pc.farba);
  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;
  write ('Pamat: ',pc.pamat:3);
  readln();
  write ('Hmotnost: ', pc.Hmotnost:6:2);
  readln();
end.

ak niečo nechápeš opýtaj sa

viki · Napísal autor témy **viki**: 09.12.2016 16:32 | Pascal

ako vytvorím teraz z tohto textový súbor ?

focko · Napísal **focko**: 09.12.2016 16:33 | Pascal

skús: https://www.tutorialspoint.com/pascal/pascal_files_handling.htm

viki · Napísal autor témy **viki**: 09.12.2016 16:39 | Pascal

ďakujem ..... napísala som program no neberie mi ho vyhadzuje mi chyby pri značke hmotnosti

focko · Napísal **focko**: 09.12.2016 16:40 | Pascal

ukáž program

viki · Napísal autor témy **viki**: 09.12.2016 16:41 | Pascal

Ako ?

focko · Napísal **focko**: 09.12.2016 16:41 | Pascal

prekopíruj ako predtým?

viki · Napísal autor témy **viki**: 09.12.2016 16:44 | Pascal

už som si našla chybu

// Spojený príspevok 09.12.2016 16:44

A ked chcem aby sa opkoval program žeby sa vypísali napríklad 5 druhov počítačov ako to tam môžem zadať ?

focko · Napísal **focko**: 09.12.2016 17:00 | Pascal

vytvoríš premennú typu integer, napr. i a potom cez for-cyklus:

Kód:

for i := 1 to 10 do
begin
  ...
end;

namiesto troch bodiek to čo chceš opakovať, t.j. načítanie a výpis alebo aj rovno zápis do súboru už

killer · Napísal **killer**: 09.12.2016 17:14 | Pascal

Len si daj pozor, aby príkazy na otvorenie a zatvorenie súboru boli mimo tohto for-cyklu, teda:

Kód:

Assign(f,'pocitace.txt'); // Nastavis nazov vystupneho suboru
Rewrite(f); // Otvoris subor na zapis
   for i:=1 to 10 do
   begin
      //...
      //Write(f, pc);
   end;
Close(f); // Subor uzavries

viki · Napísal autor témy **viki**: 09.12.2016 17:26 | Pascal

Kde konkrétne to mám zapísať podla iných vzorov keď to tam zapíšem nefunguje to a chcem sa opýtať nechcem aby mi po sebe vypisovalo farby ale chcem aby jednu farbu vypísalo

// Spojený príspevok 09.12.2016 17:41

Keď si otvorím textový súbor ktorý mi vytvori nenachádza sa v ňom nič ...

focko · Napísal **focko**: 09.12.2016 19:11 | Pascal

dáš tu kód?

viki · Napísal autor témy **viki**: 09.12.2016 19:50 | Pascal

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: file of Tpocitac;
begin
Assign (f'pocitac.txt');
Rewrite(f);
writeln('Zadaj nasledujuce polozky:');
write('Znacka:');
readln(pc.znacka);
write('Farba:');
readln(pc.farba);
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;
write ('uhlopriecka',pc.uhlopriecka);
readln();
write ('Pamat: ',pc.pamat:3);
readln();
write ('Hmotnost: ', pc.Hmotnost:6:2);
readln();
close(F);
end.

focko · Napísal **focko**: 09.12.2016 20:08 | Pascal

nevypisujes to do suboru

// úprava #1
a ešte nepoužívaš textový ale binárny súbor

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);
  write('Farba:');
  readln(pc.farba);
  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;
  write(f, 'uhlopriecka',pc.uhlopriecka);
  write(f, 'Pamat: ',pc.pamat:3);
  write(f, 'Hmotnost: ', pc.Hmotnost:6:2);
  close(f);
end.

// úprava #2
neskúšal som či funguje

viki · Napísal autor témy **viki**: 10.12.2016 13:35 | Pascal

No skúšala som to ale nefunguje to :/

focko · Napísal **focko**: 10.12.2016 13:39 | Pascal

Kód:

Program project1;
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.

viki · Napísal autor témy **viki**: 10.12.2016 13:46 | Pascal

Vypíše mi len značku tento kráta po skúške programu a dva až viac kráť farbu ...

// Spojený príspevok 10.12.2016 13:48

Ale už mi to zapísalo aj do textového súboru ale len značku a farbu ..

focko · Napísal **focko**: 10.12.2016 13:50 | Pascal

okrem značky a farby si nič iné nenačítala, čiže vkladá predvolené hodnoty

viki · Napísal autor témy **viki**: 10.12.2016 13:51 | Pascal

A ako to môžem urobiť aby načítavalo ostatne ?

// Spojený príspevok 10.12.2016 13:52

A chcem sa aj opýtať či sa da urobiť porovnanie napríklad ako tu mam ten príklad dvoch počítačov

// Spojený príspevok 10.12.2016 13:53

ale porovnanie v tom zmysle aby vyhodnotilo ktorý je lepší

focko · Napísal **focko**: 10.12.2016 13:56 | Pascal

popridavas write(...) s vyzvou tak ako máš write('Znacka: '); a hneď za write readln(pc.znacka); do ktorej premennej chces

porovnanie ide o to podľa čoho chceš porovnať

viki · Napísal autor témy **viki**: 10.12.2016 14:01 | Pascal

Veľmi pekne ďakujem

viki · Napísal autor témy **viki**: 11.12.2016 15:39 | Pascal

Kód:

Program mesiac;
Type
Tmesica=record
Cislomesiaca:string;
x:integer;
end;
var 
cislomesiac:Tmesiac;
begin
writeln('zadaj cislo mesiaca');
write('cislo mesiaca');
if 1..12 then write
1:write('Mesiac januar je zimny mesiac');
2:write('Mesiac februar je zimny mesiac');
3:write('Mesiac marec je jarny mesiac');
4:write('Mesiac april je jarny mesiac');
5:write('Mesiac maj je jarny mesiac');
6:write('Mesiac jun je letny mesiac');
7:write('Mesiac jul je letny mesiac');
8:write('Mesiac august je letny mesiac');
9:write('Mesiac september je jesenny mesiac');
10:write('Mesiac oktober je jesenny mesiac');
11:write('Mesiac november je jesenny mesiac');
12:write('Mesiac december je zimny mesiac');
else write ('Zadali ste zle cislo mesiaca');
end;
readln;
end.

// Spojený príspevok 11.12.2016 15:40

viete mi pomôcť ešte nechce mi absolutne brať žiadnu podmienku :/

focko · Napísal **focko**: 11.12.2016 15:46 | Pascal

tak takto určite nie, to je skôr na mŕtvicu a/alebo infarkt

// úprava #1
pretože tam nie je podmienka

viki · Napísal autor témy **viki**: 11.12.2016 15:50 | Pascal

ta to robila spolužiačka že jej tu podmienku nebere a ja jej s tým neviem pomôcť že prečo -_-

focko · Napísal **focko**: 11.12.2016 15:51 | Pascal

Kód:

Program mesiac;
var
  month : Integer;
begin
  write('zadaj cislo mesiaca: ');
  readln(month);

  case month of
    1  : write('Mesiac januar je zimny mesiac');
    2  : write('Mesiac februar je zimny mesiac');
    3  : write('Mesiac marec je jarny mesiac');
    4  : write('Mesiac april je jarny mesiac');
    5  : write('Mesiac maj je jarny mesiac');
    6  : write('Mesiac jun je letny mesiac');
    7  : write('Mesiac jul je letny mesiac');
    8  : write('Mesiac august je letny mesiac');
    9  : write('Mesiac september je jesenny mesiac');
    10 : write('Mesiac oktober je jesenny mesiac');
    11 : write('Mesiac november je jesenny mesiac');
    12 : write('Mesiac december je zimny mesiac');
  else   write('Zadali ste zle cislo mesiaca');
  end;
  readln;
end.

Pascal

Pascal

Podobné témy

Free Pascal a Turbo Pascal

pascal

Pascal

Pascal

pascal

Pascal

pascal

Pascal

pascal...

pascal

pascal

pascal

pascal procedury

pascal pomoc

Pascal-cisla

Pascal problem