Stránka: 2 z 2
| [ Príspevkov: 41 ] | 1, 2 |
| Autor | Správa |
|---|
Registrovaný: 09.12.16
Prihlásený: 12.12.16
Príspevky: 21
Témy: 1 | 1 | Napísal autor témy viki: 11.12.2016 15:59 | Pascal | |
|
a keď chcem aby z toho bol záznam tak na žačiatok pridam type a ktomu čo potrebujem ?
|
|
Registrovaný: 27.06.09
Prihlásený: 04.03.23
Príspevky: 332
Témy: 3 | 3
Bydlisko: Košice - ok... |
_________________
GitHub: mfocko | mfocko.xyz
OSs: archLinux + fedora (+ Windows 10 Pro Insider Preview, only if needed)
Server: archLinux [nginx + Docker (GitLab) + SSH/SFTP + local mirror (FTP/rsync - archLinux, Fedora) + samba + transmission] |
|
Registrovaný: 09.12.16
Prihlásený: 12.12.16
Príspevky: 21
Témy: 1 | 1 | Napísal autor témy viki: 11.12.2016 16:09 | Pascal | |
|
to ani ja celý pascal na výške prejdu behom mesiaca a ja si pískať môžem lebo v živote som to nemala 
|
|
Registrovaný: 09.12.16
Prihlásený: 11.12.16
Príspevky: 5
Témy: 2 | 2 |
ale to by som potrebovala v zazname a ked sa nemylim to v zazname nieje // Spojený príspevok 11.12.2016 16:27aha uz nic uz to vidim
|
|
Registrovaný: 09.12.16
Prihlásený: 12.12.16
Príspevky: 21
Témy: 1 | 1 | Napísal autor témy viki: 11.12.2016 21:15 | Pascal | |
|
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:15nechce mi brat until vyhadzuje mi chybu že mu vadí ; // Spojený príspevok 11.12.2016 21:44Za chyby sa vopred ospravedľnujem už sama neviem čo píšem ..  Vopred veľmi pekne ďakujem 
|
|
Registrovaný: 27.06.09
Prihlásený: 04.03.23
Príspevky: 332
Témy: 3 | 3
Bydlisko: Košice - ok... |
skús používať jednotné číslo pri definícii typu... chýba ti tam do, preto sa mu nepáči until s bodkočiarkou
_________________
GitHub: mfocko | mfocko.xyz
OSs: archLinux + fedora (+ Windows 10 Pro Insider Preview, only if needed)
Server: archLinux [nginx + Docker (GitLab) + SSH/SFTP + local mirror (FTP/rsync - archLinux, Fedora) + samba + transmission] |
|
Registrovaný: 09.12.16
Prihlásený: 12.12.16
Príspevky: 21
Témy: 1 | 1 | Napísal autor témy viki: 11.12.2016 22:04 | Pascal | |
|
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áš
|
|
Registrovaný: 27.06.09
Prihlásený: 04.03.23
Príspevky: 332
Témy: 3 | 3
Bydlisko: Košice - ok... |
sorry, repeat som zabudol, že to je pascal
_________________
GitHub: mfocko | mfocko.xyz
OSs: archLinux + fedora (+ Windows 10 Pro Insider Preview, only if needed)
Server: archLinux [nginx + Docker (GitLab) + SSH/SFTP + local mirror (FTP/rsync - archLinux, Fedora) + samba + transmission] |
|
Registrovaný: 09.12.16
Prihlásený: 12.12.16
Príspevky: 21
Témy: 1 | 1 | Napísal autor témy viki: 11.12.2016 22:06 | Pascal | |
|
a kde mám dať ten repeat ?
|
|
Registrovaný: 27.06.09
Prihlásený: 04.03.23
Príspevky: 332
Témy: 3 | 3
Bydlisko: Košice - ok... |
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.
_________________
GitHub: mfocko | mfocko.xyz
OSs: archLinux + fedora (+ Windows 10 Pro Insider Preview, only if needed)
Server: archLinux [nginx + Docker (GitLab) + SSH/SFTP + local mirror (FTP/rsync - archLinux, Fedora) + samba + transmission] |
|
Registrovaný: 09.12.16
Prihlásený: 12.12.16
Príspevky: 21
Témy: 1 | 1 | Napísal autor témy viki: 11.12.2016 22:08 | 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: 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 :/
|
|
Stránka: 2 z 2
| [ Príspevkov: 41 ] | 1, 2 |
|
