Prog.Hu

Felszín és térfogat számítás
50

2013-09-08T23:58+01:00
ertzui
ertzuiProg.Hu
regisztrált tag
sziasztok!
Info órára kellene egy programot készítenem de nem igazán megy a dolog.
A feladat a következő:
Egy turbo pascalos programot kell írni, amely kiszámítja egy előre kiválasztott test:hasáb, gömb, téglatest térfogatát és felszínét.
Az oldalakat is nekünk kell megadni.
Előre is Thx a segítségért!
Mutasd a teljes hozzászólást!
Felszín és térfogat számítás
2013-09-08T23:58+01:00
ertzui
ertzuiProg.Hu
regisztrált tag
Program Terfogat;
        uses crt;
        var m: integer;
            a, b, c, r, tm: real;
            v, f: real;

Begin
     writeln('Felszín- és térfogatszámító program');
     repeat
           writeln('1 - négyzetes hasáb');
           writeln('2 - téglatest');
           writeln('3 - gömb');
           writeln('0 - kilépés');
           write('Válassz! ');
           readln(m);
           if m=1 then Begin
              write('a oldal: ');
              readln(a);
              write('magasság: ');
              readln(tm);
              f := 2*a*a + 4*a*tm;
              v := a*a*tm;
              writeln('Felszín: ', f:0:2, ', térfogat: ', v:0:2);
           End;
           if m=2 then Begin
              write('a oldal: ');
              readln(a);
              write('b oldal: ');
              readln(b);
              write('c oldal: ');
              readln(c);
              f := 2 * (a*b+a*c+b*c);
              v := a * b * c;
              writeln('Felszín: ', f:0:2, ', térfogat: ', v:0:2);
           End;
           if m=3 then Begin
              write('sugár: ');
              readln(r);
              f := 4 * r*r * 3.14;
              v := (4*r*r*r*3.14) / 3;
              writeln('Felszín: ', f:0:2, ', térfogat: ', v:0:2);
           End;
     until m=0
End.

Nagyjából ez lenne, ha valami nem érthető, írj nyugodtan!
Ja, és hasábnál nem tudtam, hogy milyen hasábra gondolsz, ezért négyzetes hasábra írtam meg. Ha rosszul gondoltam, és nem megy úgy megírni, írj!
Mutasd a teljes hozzászólást!
Oszd meg másokkal is!

Hi!

Ugye nem velünk szeretnéd megíratni a házit?
Melyik része nem megy?
Mutasd a teljes hozzászólást!
arra gondoltam h ha nekiülnék nekem ez egy félnapos munka lenne, aki ért hozzá annak pedig 10-15 perc, aztán majd tanulmányoznáma programot és azzal is tanulnék valamennyit
Mutasd a teljes hozzászólást!
Annak idején mindenkinek beletelt pár órába a feladat. Viszont volt sikerélmény utána. És programozni is megtanultunk eközben.
Ha csak kódokat elemezgettünk volna akkor valószínűleg ez sokkal lasabban ment volna, hisz nehezebben rögzülnek a dolgok, ha az amber nem küzd meg vele. Ilyen az emberi agy.
Mutasd a teljes hozzászólást!


Bocs, de azért ez már szánalmas, egy tanács: menj át más szakra....
Mutasd a teljes hozzászólást!
uses felszin, terfogat, beolvasas;
begin
  case beolvas of
  gomb:writeln('A gomb terfogata:',gombterfogat:10:2,' m^3 felulete:',gombfelszin:10:2,' m^2');
  hasab:writeln('A hasab terfogata:',hasabterfogat:10:2,' m^3 felulete:',hasabfelszin:10:2,' m^2');
  tegla:writeln('A teglatest terfogata:',teglterfogat:10:2,' m^3 felulete:',teglafelszin:10:2,' m^2');
  end;
end.
Mutasd a teljes hozzászólást!
(OFF)

Annak idején én Commodere újságokból tanultam meg az Assembly-t C64-re, hazafele menet suliból, a buszon. Ma itt tart az informatika? Ilyen emberek mennek programozónak?

Ez elkeserítő...

(/OFF)
Mutasd a teljes hozzászólást!
Program Terfogat;
        uses crt;
        var m: integer;
            a, b, c, r, tm: real;
            v, f: real;

Begin
     writeln('Felszín- és térfogatszámító program');
     repeat
           writeln('1 - négyzetes hasáb');
           writeln('2 - téglatest');
           writeln('3 - gömb');
           writeln('0 - kilépés');
           write('Válassz! ');
           readln(m);
           if m=1 then Begin
              write('a oldal: ');
              readln(a);
              write('magasság: ');
              readln(tm);
              f := 2*a*a + 4*a*tm;
              v := a*a*tm;
              writeln('Felszín: ', f:0:2, ', térfogat: ', v:0:2);
           End;
           if m=2 then Begin
              write('a oldal: ');
              readln(a);
              write('b oldal: ');
              readln(b);
              write('c oldal: ');
              readln(c);
              f := 2 * (a*b+a*c+b*c);
              v := a * b * c;
              writeln('Felszín: ', f:0:2, ', térfogat: ', v:0:2);
           End;
           if m=3 then Begin
              write('sugár: ');
              readln(r);
              f := 4 * r*r * 3.14;
              v := (4*r*r*r*3.14) / 3;
              writeln('Felszín: ', f:0:2, ', térfogat: ', v:0:2);
           End;
     until m=0
End.

Nagyjából ez lenne, ha valami nem érthető, írj nyugodtan!
Ja, és hasábnál nem tudtam, hogy milyen hasábra gondolsz, ezért négyzetes hasábra írtam meg. Ha rosszul gondoltam, és nem megy úgy megírni, írj!
Mutasd a teljes hozzászólást!
pl. ez
Program FT;
Uses Crt;
Var valasz,a,b,c,r : byte;
BEGIN
Clrscr;
Writeln('1. Gömb  2. Négyzetalapú hasáb  3 Téglatest');
Write('Melyiket?');Readln(valasz);
Case valasz of
     1:Begin
            Write('Sugár:');Readln(r);
            Writeln('Felület:',4*pi*r*r:5:2);
            Writeln('Térfogat:', 4/3*pi*r*r*r:5:2);
       End;
     2:Begin
            Write('A oldal:');Readln(a);
            Write('B oldal:');Readln(b);
            Writeln('Felület:',2*a*a+4*a*b);
            Writeln('Térfogat:', a*a*b);
       End;
     3:Begin
            Write('A oldal:');Readln(a);
            Write('B oldal:');Readln(b);
            Write('C oldal:');Readln(c);
            Writeln('Felület:', 2*(a*b+a*c+b*c));
            Writeln('Térfogat:', a*b*c);
       End;


End;



Readkey;
END.
Mutasd a teljes hozzászólást!
te is büszke lehetsz magadra.
Mutasd a teljes hozzászólást!
Ilyen emberek mennek programozónak?

Bocs a kötekedésért, de csak annyit írt, hogy órára kell neki...
Mutasd a teljes hozzászólást!
te is büszke lehetsz magadra.

Hát, ahol tudok, segítek
Mutasd a teljes hozzászólást!
Gyorsabb voltál
Mutasd a teljes hozzászólást!
Nem mindenki programozó, aki ide irkál.
Én sem

Segítséget kért (kapott).

Úgy gondolom nem f*i kell, hanem segíteni.

Én is szoktam hülyeségeket kérdezni (igaz nem TP-ben)
Mutasd a teljes hozzászólást!
Hát ha szerinted az a segítség, hogy kőlusta emberek helyett megírod a házi feladatot, akkor legyél mégbüszkébb.

ui. remélem netangel követi Ivn kezdeményezését és mínusz pontokkal fogja jutalmazni a vakbuzgó pontversenyzőket.
Mutasd a teljes hozzászólást!
Hát ha szerinted az a segítség...

Megírtam a választ a kérdésére. Tehát segítettem neki. Szerintem ez segítség. És hidd el, nem fognak rémálmok gyötörni miatta!
remélem netangel követi Ivn kezdeményezését és mínusz pontokkal fogja jutalmazni a vakbuzgó pontversenyzőket.

Nem a pontok miatt csináltam
Mutasd a teljes hozzászólást!
Hu!
Én nem gondoltam hogy egy ilyen kis apróságból ekkora galibát fogok itt csinálni, csak egyik haver mondta h itt talán kapok segítséget, írjak nyugodtan. Bocs!
Mutasd a teljes hozzászólást!
Én nem gondoltam hogy egy ilyen kis apróságból ekkora galibát fogok itt csinálni, csak egyik haver mondta h itt talán kapok segítséget, írjak nyugodtan. Bocs!

Semmi probléma. Szívesen segítek...
Mutasd a teljes hozzászólást!
Írok egy stratégiai játékot, szóval lehetne, hogy valaki megírja aztán majd tanulmányozom a kódot? Meg kéne egy komplett ügyviteli rendszer is, amit tanulmányoznék, mint kódot ugyebár.
Please help. Ha tudok segítek is, de még csak ottan tartok, hogy integer
Mutasd a teljes hozzászólást!
Szerintem egy kicsit szenvedni kell, hogy megtanulj egyáltalán valamit. Anno én is írtam gyakorlásként ilyesmi programot még C64 -re, maga a kód nem nagy kunszt, mindössze a következőkre figyelj: bekéred, hogy milyen testet akarsz feldolgozni (kírod, hogy 1: kocka, 2 gömb stb, bekéred a kiválasztott számot, ha ez nem értelmes, hiba), a kiválasztott test térfogatára és felszínére ismered a képletet(ha nem, utánnanézel), a képlet alapján látható, hogy milyen adatra van szükség, azt bekéred, számolsz, kiírod. Ennyi az egész. Ahol hibázhatsz, az a típusválasztás, azaz egész típust ne használj a gömb -nél, mert a Pi -vel sokat nem lehet kezdeni ekkor. A másik probléma talán a kiértékelési sorrend lehet, így a képletben jól zárójelezz!
Ne komplett kódot akarj, ez a fórum nem arra való. Az alapvető lépéseket meg kell tanulni ahoz, hogy kialakuljon valami tudás, és egy idő után már nem a kód megírása lesz a gond, mert az semmi, hanem az 5let megtalálása, ami a megoldáshoz vezet. Kódolni meg egy kis gyakorlással meg lehet tanulni, az ilyen szintű feladatoknál az 5let sem probléma. Ez a feladat amúgy is olyan, mint valami folyamatábra rajzolgatás, csak mindössze szelekció és szekvencia van benne, még csak iteráció sincs, ezek használatát meg célszerű megtanulni.A helyedben nem a már megírt programokat kezdeném meg átnézni, hanem valamilyen 5let, és tanács segítségével magam írnám a kódot. A későbbiekben biztos lesz nehezebb feladat is, és ha ez nem megy, és a feladat hosszúsága miatt senki nem fogja megírni helyetted, akkor bajban leszel, vagy ha csak a necces részt megírja neked valaki, nem fogod tudni az újjgyakorlat részt megcsinálni, akkor se lesz feladatod.
Bocs, hogy kissé elhúztam a dolgot, de nekem ez a véleményem, de ahogy gondolod...
Mutasd a teljes hozzászólást!
djp!

Ha már ilyen segítőkész vagy, akkor please írjál meg egy címkenyomtató progit nekem. Ide kellene a munkahelyemre, és hogy ne mond azt, hogy lusta vagyok, elküldöm a specifikációt.

Nekem valszínüleg 1-2 hónap, de neked biztos kevesebb..ha nem az se baj (legalább is nekem nem)
Ha elkészültél, küld el a progit nekem..én meg majd megértem.

Persze a fizu az engem illet...

És ha nem segítesz, akkor feljelentelek, mert negatívan diszkriminálsz

Mutasd a teljes hozzászólást!
Írok egy stratégiai játékot

Milyen érdekes, bennem is felmerült, hogy kéne egy stratégiai játékot írni Bár ez hosszabb távú projectnek látszik...
Meg kéne egy komplett ügyviteli rendszer is, amit tanulmányoznék, mint kódot ugyebár.

Bocsi, ügyviteli rendszert még nem írtam, és valószínű a közeljövőben nem is fogok
Ha tudok segítek is, de még csak ottan tartok, hogy integer

Ahhoz képest elég sok témát oldottál meg
Mutasd a teljes hozzászólást!
Tudod mit, itt a kód

Program cimkenyomtatoprogi;
....
end.

a kipontozott részt tetszőlegesen kitöltheted, a vázat már megadtam.
Mutasd a teljes hozzászólást!
djp, TBC_DOS:

Nem értitek az alapelvet amit mi őskövületek próbálunk követni:
Az nem segítség kérés ha valaki feldobja a feladatot és várja a full megoldást. Az nem segítség, hogy megadod a 15 soros házi megoldását (hisz elég annyi a tanárnak, hogy azt mondja: ez szép, de tedd bolondbiztossá: ne lehessen sugárnak szöveget beírni csak számot és a nebuló máris lebukott, hisz azt sem tudja, hogy hol kéri be a sugarat).

Ha ertzui úgy teszi fel a kérdést, hogy "itt a feladat, eddig jutottam, de ezt nem tudom megoldani" akkor arra segítség lehet egy egy-két soros kódrészlet, mert akkor a homlokához csap és azt mondja: tényleg! milyen egyszerű! erre én miért nem gondoltam!?

De így mit érsz el azzal, hogy megírtad helyette ezt a bonyolult a progit?
Mutasd a teljes hozzászólást!
Teljesen igazad van!

De talán nem kellene f*i szegényt felhasználót!

Ha nem bántották volna, akkor nem érdekel a dolog, így viszont arra gondoltam, hogy legyen ne csak negatív tapasztalata a fórumról.

Velem is előfordul(t), hogy tök primitív dolgokat kérdezek (kérdeztem), mert nem tudok (tudtam) elindulni sem.
Véleményem szerint a srác nem programozónak készül, csak van nekik egy (pipáljuk ki) info óra ia.
Bár lehet, hogy tévedek.
Szóval mégegyszer: az elvvel egyetértek, a módszerrel nem.

Amúgy szép napot!

Mutasd a teljes hozzászólást!
Véleményem szerint a srác nem programozónak készül, csak van nekik egy (pipáljuk ki) info óra ia.


Nahát, én se készültem soha irodalom tanárnak, mégis magam írtam a fogalmazásaimat.
Mutasd a teljes hozzászólást!
azért nem ártana leellenőrizni a bekért adatokat... mivel a jelenlegi formában simán megadhatok ilyen sugarakat is:

- egererge
- -1+3-4,5+6

és mindegyiknél elszáll, a helyett, hogy normálisan, hibaüziben tájékoztatná a usert.

ha most azzal jön tbcdos, hogy de hát ez csak házi, akkor gondolkodjon el azon, hogy ez így max 2-es, mivel éppencsakhogy használható program...
Mutasd a teljes hozzászólást!
De nekünk pont az a bajunk, hogy Ő nem kérdezett, hanem elvárta, hogy vki megoldja neki a feladatot. És ez az ami zavarja a tisztelt "oldfórumozókat".

De ráadásul felmérte, hogy 2-3 órai melóról van szó, de arra is lusta, mondván, hogy van aki ennél is gyorsabban meg tudja csinálni, hát dolgozzon vele az. És ezt természetesen természetesnek veszi. Ez olyan, mintha a te teljesen természetesnek vennéd, hogy a doki ingyen megvizsgál mondjuk ha van egy influenzád, mondván, hogy ez neki rutin meló.
Mutasd a teljes hozzászólást!
Nekem nem azzal van bajom, ha valaki primitív dolgokat kérdez. Többször adtam már teljes kódot olyanra amikor pl. egy textfile soronkénti beolvasásról, könyvtár listázásról, stb kérdeztek (bár ezekre is lehetne annyit írni, hogy RTFM).
Azzal van a bajom amikor 0 saját energiával (no jó: beregelt és bepötyögte a feladatot, kapjon 1 ezreléket) akar teljes kódot kérni valaki - beadandóra.
(amikor a komplett ügyviteli rendszer kódját kérte valaki tanulási célzattal az nem háborított fel, azon inkább röhögtem)
Mutasd a teljes hozzászólást!
Oszd meg másokkal is!