| | |
| Stránka: 1 z 1
| [ Príspevkov: 3 ] | |
Autor | Správa |
---|
Registrovaný: 02.04.07 Prihlásený: 04.10.07 Príspevky: 9 Témy: 3 | Napísal palo89: 02.04.2007 12:09 | |
|
Tak na zaciatok-pascal mi nic nehovori a musime spravit nejaky program a co som cital tu temy,tak je tu vela ludi,co sa tomu rozumie,tak by ste mi mohli pomoct.
Program by mal zniet asi takto:Je to program,ktory najprv precita mesiac a den v mesiaci a pre dane hodnoty vypise pocet dni,ktore ubehli od zaciatku roka(do uvahy sa neberie priestupny rok)
Diiik
|
|
Registrovaný: 09.05.05 Prihlásený: 07.12.16 Príspevky: 1294 Témy: 69 Bydlisko: - - - |
Ahoj
Kód: program dni; uses crt; var mesiace: array [1..12] of integer; i,den,mesiac,pocet: integer;
begin clrscr;
mesiace[1]:=31; mesiace[2]:=28; mesiace[3]:=31; mesiace[4]:=30; mesiace[5]:=31; mesiace[6]:=30; mesiace[7]:=31; mesiace[8]:=31; mesiace[9]:=30; mesiace[10]:=31; mesiace[11]:=30; mesiace[12]:=31;
write('Ktory je mesiac ?: '); readln(mesiac); write('Kolkeho je dneska ?: '); readln(den);
if mesiac>1 then for i:=1 to (mesiac-1) do pocet:=pocet+mesiace[i];
pocet:=pocet+den; writeln('Od 1.1. ubehlo ',pocet,' dni'); readkey; end.
Vystup píše: Ktory je mesiac ?: 4 Kolkeho je dneska ?: 28 Od 1.1. ubehlo 118 dni
Tak ?
|
|
Registrovaný: 02.04.07 Prihlásený: 04.10.07 Príspevky: 9 Témy: 3 | Napísal autor témy palo89: 04.04.2007 10:08 | |
|
JAsneeeee MOc si mi pomohol:)
DAKUJEM
|
|
| Stránka: 1 z 1
| [ Príspevkov: 3 ] | |
Podobné témy | Témy | Odpovede | Zobrazenia | Posledný príspevok |
---|
| Pomoc s prikladom z M v Vzdelanie, štúdium, škola | 7 | 897 | 13.05.2008 16:58 pepek.namornik | | pomoc s jednym prikladom v pascale v Assembler, C, C++, Pascal, Java | 10 | 818 | 18.03.2007 13:22 audiotrack | | pomoc s jednym prikladom v Pascale(grafika) v Assembler, C, C++, Pascal, Java | 3 | 662 | 27.03.2007 22:37 audiotrack | | help s príkladom v Assembler, C, C++, Pascal, Java | 8 | 789 | 13.03.2007 17:45 radiatorr | | pomoc pomoc prosim nefunguje internet v Ovládače | 7 | 1109 | 09.09.2017 20:37 Smith Wesson | | Pomoc pri pomoc pri skladaní PC - od 1 500 do 1 800 Eur (rozlíšenie 1440p) v PC zostavy | 13 | 778 | 28.09.2023 20:23 johny314 | | Pomoc? v HTML, XHTML, XML, CSS | 1 | 541 | 09.08.2017 20:01 BX | | pomoc v Počítačové hry | 5 | 488 | 28.06.2011 16:32 Ďuri | | Pomoc v Operačné systémy Microsoft | 3 | 625 | 29.12.2007 18:42 Dzimbo | | pomoc v JavaScript, VBScript, Ajax | 2 | 874 | 15.05.2009 20:15 firewall | | pomoc v ATI/AMD grafické karty | 3 | 696 | 04.03.2008 15:00 Mir | | Pomoc v Zvuk | 2 | 833 | 24.11.2007 17:30 optyx | | POMOC [ Choď na stránku: 1, 2 ] v Ostatné | 30 | 2259 | 27.09.2009 20:01 workoholik16 | | pomoc v PHP, ASP | 2 | 783 | 02.02.2008 17:17 Punker661 | | pomoc v Ostatné | 13 | 949 | 08.08.2009 22:16 malcolm | | pomoc v PHP, ASP | 6 | 708 | 01.08.2008 16:27 Darkeye18 |
| 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
|
|