Obsah fóra
PravidláRegistrovaťPrihlásenie




Odpovedať na tému [ Príspevkov: 8 ] 
AutorSpráva
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 14.05.11
Prihlásený: 17.05.11
Príspevky: 3
Témy: 1
Príspevok NapísalOffline : 14.05.2011 17:02

Zdravím, neviem si rady s jedným programom čo sme dostali v škole. Ak by niekto pomohol budem len rada. ďakujem. NEVIEM SI RADY S PODMIENKOU .... a s tým že ak bude známka nižšia alebo vyššia ako má ... ďalej ťa to nepustí...
ZADANIE:

Triedny učiteľ robí tabuľku na klasifikačnú poradu. Pre každého žiaka zadáva 5 známok. Z nich má vypočítať priemernú známku a povedať, či je žiak PV, PVD, P, alebo N.
PV priemer <=1,5 a nemá známku 5
PVD 1,5>priemer <=2 a nemá známku 5
P priemer >=2 a nemá známku 5
N má známku 5
V triede má 5 žiakov.
Výpisom z programu bude meno žiaka, jeho 5 známok, priemerná známka žiaka a hodnotenie žiaka (PV,PVD...)

PRÁCA---->

program znamka;
uses crt;
var i,a,sucet,blbost: integer;
priem: real;
x:array [1..5] of integer;
begin
clrscr;
for a:= 1 to 5 do
begin
writeln('ziak ',a, '; zadajte 5 zn mok ziaka');
writeln(a,' --> ');
sucet:=0;
for i:=1 to 5 do
begin
write(i,'=');
read (x[i]);
sucet:=sucet+x[i];
priem:= sucet/5; begin
??????????????????????????????????????
?????????????????????????????
end;
writeln ('sucet je: ',sucet);
writeln ('priemern  zn mka je : ',priem:2:2);
writeln;
readln;
end;
end.


Offline

Užívateľ
Užívateľ
Pascal

Registrovaný: 01.02.08
Prihlásený: 10.04.15
Príspevky: 31
Témy: 11
Príspevok NapísalOffline : 14.05.2011 17:07

Podmienka sa v pascale pise
if vyraz then co sa ma stat (vyraz je true);
alebo
if vyraz then co sa ma stat (vyraz je true)
else co sa ma stat (vyraz je false);

popripade mozes pouzit aj logicke spojky and or not
if ((vyraz1) and (vyraz2)) then...

co sa toho PV ... tyka mozes pouzit string do ktoreho tie prospechy zapises a potom ich das len vypisat


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 14.05.11
Prihlásený: 17.05.11
Príspevky: 3
Témy: 1
Príspevok Napísal autor témyOffline : 14.05.2011 17:30

Ďakujem za odpoveď, viem ako sa píšu podmienky , ale mne to jednoducho v programe nejde ...


Offline

Užívateľ
Užívateľ
Pascal

Registrovaný: 27.12.08
Prihlásený: 13.12.22
Príspevky: 1874
Témy: 96
Bydlisko: Bratislava,...
Príspevok NapísalOffline : 14.05.2011 18:10

1. kód na fórum píš do code (máš na to tlačítko jak píšeš príspevok)
2. chýba ti tam jeden end; za sucet:=sucet+x[i];
3. zadeklaruj si jednu premennu typu boolean (trebars mapatku:boolean) do ktorej uložíš či daný žiak má päťku alebo nie... potom za sucet:=0; vložíš
Kód:
 mapatku:=false;

za read(x[i]) pridáš podmienku
Kód:
 if (x[i] = 5) then mapatku:=true;

a tie podmienky spravíš dáko takto:
Kód:
      write('Hodnotenie: ');

      if ( priem <= 1.5 ) AND ( not(mapatku) ) then
            writeln('PV')
      else if ( priem > 1.5 ) AND ( priem <= 2 ) AND ( not(mapatku) ) then
         writeln('PVD')
      else if ( priem > 2 ) AND ( not(mapatku) ) then
         writeln('P')
      else writeln('N');







_________________
~Listen to your brain, not your heart~
NB1: Lenovo Y500: CPU: Intel Core i7-3630QM; GPU: nVidia GT650M 2GB SLi; RAM: 16GB DDR3; HDD: 1TB + 256GB SSD (m4); LCD: 15,6" 1920x1080; OS: Win8.1 64-bit + Arch Linux 64-bit (UEFI Powered DualBoot)
NB2: Asus K53SJ-SX093: CPU: Intel Core i3-2310M; GPU: Intel HD3000 / nVidia GT520M 1GB Optimus; RAM: 8GB DDR3; SSD: 128GB 840Evo; LCD: 15,6" 1366x768; OS: Win 8.1 Pro 64-bit (UEFI)
Offline

Užívateľ
Užívateľ
Pascal

Registrovaný: 23.12.10
Prihlásený: 10.09.22
Príspevky: 1056
Témy: 157
Bydlisko: KK/PP/BA
Príspevok NapísalOffline : 14.05.2011 18:21

tak: zdrojovy kod by mal byt v code.

co ti na tych podmienkach nejde? namiesto tych otaznikov tu hod kompletny zdrojovy kod.
k tvojmu zdrojaku: mas to dost cudne spravene. podla zadania som pochopil, ze mas zadat 5 znamok a on z toho urobi priemer. Mas tam zbytocne vela premennych a neviem na co si isla cez polia, ked to v zadani nieje. Ja by som to urobil takto:

Kód:
uses crt;
var i,b: integer;
    a:real;
begin
clrscr;
a:=0;
for i:=1 to 5 do begin
writeln ('zadaj znamku');
readln (b);'
a:=a+b;
                 end;
a:=a/5
writeln ('ziak ma priemer ',a);
readln;
end. 


teraz idem riesit to vetvenie:

Kód:
uses crt;
var i,b: integer;
    a:real;
begin
clrscr;
a:=0;
for i:=1 to 5 do begin
writeln ('zadaj znamku');
readln (b);'
a:=a+b;
                 end;
a:=a/5;
writeln ('ziak ma priemer ',a);
if a<1,5 and a!=5 writeln ('PV');
 else if a=<2 and a=>1,5 and a!=5 writeln ('PVD');
 else if a>2 and a=<3,5  writeln ('PD');
else writeln ('neprospel');
readln;
end. 


za tie kody nerucim, pretoze som ich pisal teraz, tak neviem ci tam niesu chyby. A tie stupne (PVD...) si potom prepis, tiez neviem ako to presne je :)


Offline

Užívateľ
Užívateľ
Pascal

Registrovaný: 27.12.08
Prihlásený: 13.12.22
Príspevky: 1874
Témy: 96
Bydlisko: Bratislava,...
Príspevok NapísalOffline : 14.05.2011 18:48

ferdo:
- máš pravdu to pole je fakt zbytočné
- v tom zadaní má program opakujúci sa 5-krát (pre 5 žiakov), aj mne trvalo asi minútu kým som to pochopil..

k tvojmu kódu:
- prečo prospel dobre od 2 do 3.5 keď v zadaní je že iba viac ako 2 (logicky žiak ktorý má samé štvorky má priemer 4 ale prospieva.. neprospieval by iba keby dostal aj 5ku)
- != funguje v pascale? ja som vždy myslel že != je v c-čku a v pascale je <> (aj keď v pascale aj tak používam klauzu not (a=b)..)
- tým a!=5 hodnotíš či priemer sa nerovná 5, nie to, či daný žiak má 5, čo je dosť rozdiel, pretože pre napr. 1 1 1 1 5 sa a rozhodne nerovná 5 ale daný žiak podľa pravidiel neprospieva







_________________
~Listen to your brain, not your heart~
NB1: Lenovo Y500: CPU: Intel Core i7-3630QM; GPU: nVidia GT650M 2GB SLi; RAM: 16GB DDR3; HDD: 1TB + 256GB SSD (m4); LCD: 15,6" 1920x1080; OS: Win8.1 64-bit + Arch Linux 64-bit (UEFI Powered DualBoot)
NB2: Asus K53SJ-SX093: CPU: Intel Core i3-2310M; GPU: Intel HD3000 / nVidia GT520M 1GB Optimus; RAM: 8GB DDR3; SSD: 128GB 840Evo; LCD: 15,6" 1366x768; OS: Win 8.1 Pro 64-bit (UEFI)
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 14.05.11
Prihlásený: 17.05.11
Príspevky: 3
Témy: 1
Príspevok Napísal autor témyOffline : 14.05.2011 19:45

Ďakujem !! :) .....
urobila som to tak ako mi radil nBXXL ... až na esteticé chyby to bolo tak ako má byť ... a preto tam mám pole, lebo v zadaní je že v triede je 5 žiakov ... a mám to také domotané lebo ja som celá domotaná z pascalu :D fakt pomohli ste mi ... ďakujem sa ochotu všetkým !!!!!


Offline

Užívateľ
Užívateľ
Pascal

Registrovaný: 23.12.10
Prihlásený: 10.09.22
Príspevky: 1056
Témy: 157
Bydlisko: KK/PP/BA
Príspevok NapísalOffline : 14.05.2011 20:04

nBXXL
sorry, nevsimol som si, ze si napisal prispevok este predomnou
k tomu prospechu: ako som pisal, neviem ako to presne chodi :) a robil som to na rychlo.
!= mas pravdu to je iba pre cecko.
pre to overovanie som fakt napisal peknu blbost :oops:


Odpovedať na tému [ Príspevkov: 8 ] 


Podobné témy

 Témy  Odpovede  Zobrazenia  Posledný príspevok 
V tomto fóre nie sú ďalšie neprečítané témy. Free Pascal a Turbo Pascal

v Assembler, C, C++, Pascal, Java

0

381

19.12.2014 13:18

Styracoz Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. pascal

v Assembler, C, C++, Pascal, Java

2

1101

09.03.2007 14:08

misolax Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. pascal

v Assembler, C, C++, Pascal, Java

2

566

24.06.2010 20:17

KatjushaMan Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. pascal...

v Assembler, C, C++, Pascal, Java

5

901

18.10.2008 19:02

redog Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Pascal

v Assembler, C, C++, Pascal, Java

4

2033

01.03.2018 8:02

MTK Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Pascal

v Assembler, C, C++, Pascal, Java

7

627

09.10.2011 21:30

F3RY Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. pascal

v Assembler, C, C++, Pascal, Java

11

1282

07.04.2007 16:50

programator Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. pascal

v Assembler, C, C++, Pascal, Java

6

727

08.01.2009 17:45

majka090 Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Pascal

[ Choď na stránku:Choď na stránku: 1, 2 ]

v Assembler, C, C++, Pascal, Java

40

1448

11.12.2016 22:08

viki Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. pascal

v Assembler, C, C++, Pascal, Java

19

3054

30.04.2007 19:54

nikita Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. pascal

v Assembler, C, C++, Pascal, Java

0

698

03.05.2009 12:35

ebb Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. FREE PASCAL

v Assembler, C, C++, Pascal, Java

1

878

25.09.2010 12:19

Goergius Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. pascal uloha

v Assembler, C, C++, Pascal, Java

1

609

11.11.2009 16:23

feromakovi Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Pascal - triedenie

v Assembler, C, C++, Pascal, Java

6

1600

05.03.2009 2:36

TrSek Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. PASCAL graph

v Assembler, C, C++, Pascal, Java

1

350

18.06.2013 13:36

BX Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Pascal prekladač

v Assembler, C, C++, Pascal, Java

6

596

14.05.2010 11:13

joyko Zobrazenie posledných príspevkov


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

Skočiť na:  

Powered by phpBB Jarvis © 2005 - 2024 PCforum, webhosting by WebSupport, secured by GeoTrust, edited by JanoF
Ako väčšina webových stránok aj my používame cookies. Zotrvaním na webovej stránke súhlasíte, že ich môžeme používať.
Všeobecné podmienky, spracovanie osobných údajov a pravidlá fóra