Prog.Hu

Felszín és térfogat számítás probléma

Keresés
Hírlevél

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

2013-09-08T23:58+02:00
ertzui
ertzuiProg.Hu
regisztrált tag
nyitotta: ertzui, idő: 2006.01.24. 20:03, moderátor: netangel, megoldás elfogadva: 2006.01.25. 17:03
  Értesítés változás esetén Felvétel kedvencekhez Küldés emailben

Kategóriák:Programozási nyelvek » Pascal

Sorrend:
Időzóna:
Oldalanként:
Oszd meg!
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!
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! előzmény

Hi!

Ugye nem velünk szeretnéd megíratni a házit?
Melyik része nem megy? előzmény
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 előzmény
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. előzmény


Bocs, de azért ez már szánalmas, egy tanács: menj át más szakra.... előzmény
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.
előzmény
(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) előzmény
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! előzmény
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.
előzmény
te is büszke lehetsz magadra. előzmény
Ilyen emberek mennek programozónak?

Bocs a kötekedésért, de csak annyit írt, hogy órára kell neki... előzmény
meg te is előzmény
te is büszke lehetsz magadra.

Hát, ahol tudok, segítek előzmény
Gyorsabb voltál előzmény
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) előzmény
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. előzmény
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 előzmény
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! előzmény
É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... előzmény
Í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
előzmény
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... előzmény
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

előzmény
Í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 előzmény
Tudod mit, itt a kód

Program cimkenyomtatoprogi;
....
end.

a kipontozott részt tetszőlegesen kitöltheted, a vázat már megadtam. előzmény
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? előzmény
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!

előzmény
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. előzmény
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... előzmény
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ó.
előzmény
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) előzmény
Oszd meg másokkal is!