 | | |
 | Stránka: 1 z 1
| [ Príspevkov: 20 ] | |
| Autor | Správa |
|---|
Registrovaný: 13.02.07
Prihlásený: 10.10.07
Príspevky: 24
Témy: 3 |  Napísal nikita: 13.02.2007 15:34 | |
|
ako sa píšu v pascale hranaté a zložené zátvorky????????????????
|
|
Registrovaný: 12.09.06
Prihlásený: 07.06.13
Príspevky: 277
Témy: 14
Bydlisko: Radoľa | Napísal Taomas: 14.02.2007 16:15 | |
|
V Borland pascale si musis prepnut klavesnicu na anglicku.
To sa da jednoducho pomocou klavesovej skratky:
CTRL+ALT+F1
|
|
Registrovaný: 13.02.07
Prihlásený: 10.10.07
Príspevky: 24
Témy: 3 | Napísal autor témy nikita: 14.02.2007 16:51 | |
|
prosim vas kto by vedel napisat program prevodu medzi10 a 16 sustavou. prosim surne
|
|
Registrovaný: 17.11.06
Prihlásený: 31.12.07
Príspevky: 677
Témy: 9 |
súrne znamená dokedy? zajtra idem domov, tu na laptope nemám pascal. Ak ti to stačí tak v piatok alebo sobotu tak nie je problém.
|
|
Registrovaný: 13.02.07
Prihlásený: 10.10.07
Príspevky: 24
Témy: 3 | Napísal autor témy nikita: 14.02.2007 19:32 | |
|
v pohode neni to take surne a diki
|
|
Registrovaný: 17.11.06
Prihlásený: 31.12.07
Príspevky: 677
Témy: 9 |
Kód: program dectohex;
uses crt;
var sestnast,desat:integer;
vysledok,pomocna:string;
begin
write('Zadaj cislo v 10 sustave: ');
readln(desat);
vysledok:='';
while desat>0 do begin
sestnast:=desat mod 16;
case sestnast of
10: vysledok:='A'+vysledok;
11: vysledok:='B'+vysledok;
12: vysledok:='C'+vysledok;
13: vysledok:='D'+vysledok;
14: vysledok:='E'+vysledok;
15: vysledok:='F'+vysledok;
0..9: begin
str(sestnast,pomocna);
vysledok:=pomocna+vysledok;
end;
end;
desat:=desat div 16;
end;
writeln(vysledok);
repat until keypressed;
end. samozrejme sa to dá doladiť, ale ako som písal nemám tu pascal tak som to písal z hlavy a nechcel som sa zamotať, preto je to také "neoptimalizované" riešenie. Potrebuješ to aj spätne (zo šestnástkovej na desiatkovú) alebo toto stačí?
|
|
Registrovaný: 13.02.07
Prihlásený: 10.10.07
Príspevky: 24
Témy: 3 | Napísal autor témy nikita: 19.02.2007 14:45 | |
|
no ja neviem ale asi hej tak ak by si plz mohol tak mi to posli
PS: a nedalo by sa to potom dat nejako do kopy aby toho bolo menej????
|
|
Registrovaný: 17.11.06
Prihlásený: 31.12.07
Príspevky: 677
Témy: 9 |
nikita píše: no ja neviem ale asi hej tak ak by si plz mohol tak mi to posli
PS: a nedalo by sa to potom dat nejako do kopy aby toho bolo menej???? Kód: program Prevody;
uses CRT;
var sestnast,desat,I,kod,hex:integer;
vysledok,pomocna:string;
vyber:char;
label menu;
begin
menu:
clrscr;
writeln('1: prevod z desiatkovej sustavy do sestnastkovej sustavy');
writeln('2: prevod zo sestnastkovej do desiatkovej sustavy');
writeln('3: koniec');
writeln;
readln(vyber);
case vyber of
'1': begin
write('Zadaj cislo v 10 sustave: ');
readln(desat);
vysledok:='';
while desat>0 do begin
sestnast:=desat mod 16;
case sestnast of
10: vysledok:='A'+vysledok;
11: vysledok:='B'+vysledok;
12: vysledok:='C'+vysledok;
13: vysledok:='D'+vysledok;
14: vysledok:='E'+vysledok;
15: vysledok:='F'+vysledok;
0..9: begin
str(sestnast,pomocna);
vysledok:=pomocna+vysledok;
end;
end;
desat:=desat div 16;
end;
writeln('Zadane cislo je v sestnastkovej sustave: ',vysledok);
writeln;
write ('Pokracovat? [Y/N]: ');
readln(vyber);
if uppercase(vyber)='Y' then goto menu;
end;
'2': begin
write('Zadaj cislo v 16 sustave: ');
readln(pomocna);
hex:=0;
sestnast:=1;
For I:=length(pomocna) downto 1 do begin
case pomocna[I] of
'A': desat:=10;
'B': desat:=11;
'C': desat:=12;
'D': desat:=13;
'E': desat:=14;
'F': desat:=15;
'0'..'9': val(pomocna[I],desat,kod);
end;
hex:=hex+sestnast*desat;
sestnast:=sestnast*16;
end;
writeln('Zadane cislo je v desiatkovej sustave: ',hex);
writeln;
write ('Pokracovat? [Y/N]: ');
readln(vyber);
if uppercase(vyber)='Y' then goto menu else exit;
end;
'3': exit;
end;
end.
//v céčku by to bola záležitosť 5-tich riadkov, tak neviem prečo sa zahadzuješ s trápnym pascalom.
|
|
Registrovaný: 13.02.07
Prihlásený: 10.10.07
Príspevky: 24
Témy: 3 | Napísal autor témy nikita: 20.02.2007 14:32 | |
|
no vies mame to ako projekt a ja to velmi neviem tak diki moc
|
|
Registrovaný: 13.02.07
Prihlásený: 10.10.07
Príspevky: 24
Témy: 3 | Napísal autor témy nikita: 12.03.2007 17:24 | |
|
a prosim ta coje to uppercase lebo mi tam stale vyhadzuje chybu
|
|
Registrovaný: 17.11.06
Prihlásený: 31.12.07
Príspevky: 677
Témy: 9 |
zmena písmena na veľké. Aby som nemusel overovať či stlačil "y" alebo "Y". No neviem, prečo ti to nebere, asi máš nejaký iný pascal.. nahraď ten riadok týmto:
Kód: if ((vyber)='Y' or (vyber)='y') then goto menu else exit;
|
|
Registrovaný: 13.02.07
Prihlásený: 10.10.07
Príspevky: 24
Témy: 3 | Napísal autor témy nikita: 12.03.2007 17:38 | |
|
teras mi pise operand types do not match operator poddruhym rovnasa
|
|
Registrovaný: 17.11.06
Prihlásený: 31.12.07
Príspevky: 677
Témy: 9 |
Kód: if ((vyber='Y') or (vyber='y')) then goto menu else exit; hop, som dal zle zátvorky 
|
|
Registrovaný: 13.02.07
Prihlásený: 10.10.07
Príspevky: 24
Témy: 3 | Napísal autor témy nikita: 12.03.2007 19:15 | |
|
ok uz to ide
|
|
Registrovaný: 13.02.07
Prihlásený: 10.10.07
Príspevky: 24
Témy: 3 | Napísal autor témy nikita: 26.03.2007 14:01 | |
|
prosim ta potrebujem este jednu vec
skoro na konci kdeje uppercase mi stale blika chyba a ja neviem preco
prosim ozvi sa
|
|
Registrovaný: 17.11.06
Prihlásený: 31.12.07
Príspevky: 677
Témy: 9 |
šak si to už písala, aj som ti napísal druhú variantu.. kuk dva posty vyššie
|
|
Registrovaný: 02.09.05
Prihlásený: 17.11.10
Príspevky: 154
Témy: 1 |
audiotrack píše: Kód: if ((vyber='Y') or (vyber='y')) then goto menu else exit; hop, som dal zle zátvorky Inak doporucoval by som labely v programoch nepouzivat, pretoze zneprehladnuju program a lahko moze dojst k chybe...Daju sa jednoducho nahradit niektorym z cyklov (for, while, until)...
|
|
Registrovaný: 17.11.06
Prihlásený: 31.12.07
Príspevky: 677
Témy: 9 |
no to hej, ale toto je príliž jednoduchý program na to aby som ho jedným labelom zneprehladnil - naopak v tomto prípade je to prehladnejšie ako ďalší cyklus
|
|
Registrovaný: 13.02.07
Prihlásený: 10.10.07
Príspevky: 24
Témy: 3 | Napísal autor témy nikita: 30.04.2007 18:32 | |
|
cawko este by som potrebovalaprevod medzi 8 a 10 sustavou
plz ozvite sa niekto čoskoro
|
|
Registrovaný: 13.02.07
Prihlásený: 10.10.07
Príspevky: 24
Témy: 3 | Napísal autor témy nikita: 30.04.2007 19:54 | |
|
posle mi niekto plz prevod medzi 8 a 10 sustavou a naopak
potrebujem to surne
|
|
| Stránka: 1 z 1
| [ Príspevkov: 20 ] | |
Podobné témy | | Témy | Odpovede | Zobrazenia | Posledný príspevok |
|---|
 | Free Pascal a Turbo Pascal v Assembler, C, C++, Pascal, Java | 0 | 385 | 19.12.2014 13:18 Styracoz  | | Pascal v Assembler, C, C++, Pascal, Java | 7 | 832 | 14.05.2011 20:04 F3RY | | pascal v Assembler, C, C++, Pascal, Java | 2 | 572 | 24.06.2010 20:17 KatjushaMan | | pascal... v Assembler, C, C++, Pascal, Java | 5 | 906 | 18.10.2008 19:02 redog |  | pascal v Assembler, C, C++, Pascal, Java | 11 | 1289 | 07.04.2007 16:50 programator | | pascal v Assembler, C, C++, Pascal, Java | 6 | 731 | 08.01.2009 17:45 majka090 | | pascal v Assembler, C, C++, Pascal, Java | 0 | 703 | 03.05.2009 12:35 ebb | | Pascal v Assembler, C, C++, Pascal, Java | 4 | 2066 | 01.03.2018 8:02 MTK | | Pascal v Assembler, C, C++, Pascal, Java | 7 | 632 | 09.10.2011 21:30 F3RY | | Pascal [ Choď na stránku: 1, 2 ] v Assembler, C, C++, Pascal, Java | 40 | 1472 | 11.12.2016 22:08 viki | | pascal v Assembler, C, C++, Pascal, Java | 2 | 1106 | 09.03.2007 14:08 misolax | | Nefunguje pascal v Assembler, C, C++, Pascal, Java | 17 | 1192 | 29.05.2008 21:37 johny3212 | | Pascal - program v Assembler, C, C++, Pascal, Java | 13 | 643 | 20.02.2012 23:19 smollko | | Pascal pomoc v Assembler, C, C++, Pascal, Java | 2 | 841 | 14.12.2008 11:11 noff | | free pascal v Ostatné | 2 | 299 | 20.11.2012 19:22 OrionAero | | Zaciatky pascal v Assembler, C, C++, Pascal, Java | 5 | 671 | 17.03.2008 10:30 neznamy |
| Nemôžete zakladať nové témy v tomto fóre
Nemôžete odpovedať na témy v tomto fóre
Nemôžete upravovať svoje príspevky v tomto fóre
Nemôžete mazať svoje príspevky v tomto fóre
|
|
