Pascal feladat segítség?
válasza:Az alap megvan, vagyis bekér majd miután bekérte az éveket a korokhoz nullát ír. A lényeg hiányzik.
Program MasolPr ;
Const
FolyoEv = 2000 ;
Max = 10 ;
Type
Evek = Array[1..Max] Of Word ;
Var
SzulEvek, Korok : Evek ;
I : Word ;
Begin
WriteLn('Írjon be ',Max,' db. szül. évet!') ;
For I := 1 To Max Do
ReadLn(SzulEvek[I]) ;
For I := 1 To Max Do
Korok[I] := FolyoEv - SzulEvek[I] ;
WriteLn('A korok: ') ;
For I := 1 To Max Do
WriteLn(Korok[I]) ;
ReadLn;
End.
válasza:"Evek = Array[1..Max] Of Word"
Semmi furát nem érzel ebben?
válasza: válasza:Szia.
Én kipróbáltam nekem müködik, ahogy kell (turbo).
Egy kis optimalizálással és begin end páros használatával, egy for ciklus kihagyható belőle, vagy a bekéréskor kiszámitod rögtön a kort is (tömb változó esetén), vagy a kiiráskor számitod ki a kort (ekkor viszont nem kell a tömb változó).
A fentiek függvényében, ha a korokkal nem végzünk további műveleteket akkor elég neki egy egyszerű word változó (szerintem) mivel a születési és és a folyó év ismeretében bármikor kiszámitható.
Sok sikert.
Üdv.
Kapcsolódó kérdések:
Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!