Responsive image Boda Szilárd weblapja

Laborfeladatok.

Végezzük el a következő feladatokat Foxproban:

Első feladat:

  1. Hozzunk létre egy ALKATRESZEK nevű adatbázist. FONTOS: Foxproban, akárcsak MySQL ben, ahhoz, hogy táblákkal tudjunk dolgozni, azokat előbb adatbázisba kell tárolni
  2. Hozzuk létre az ALKATRESZ táblát a következő szerkezettel:
    1. ID - INT
    2. Nev - CHAR (15)
    3. Ar - DOUBLE (6)
    4. Mennyiseg - DOUBLE (7)
    5. Szerelesi_koltseg - DOUBLE (6)
  3. Végezzük el a következő feladatokat:
    1. Töltsük fel a táblát 10 rekorddal
    2. Írjuk ki a legdrágább 5 alkatrészt
    3. Számítsuk ki, mennyi pénzt keresne a cég, ha az összes meglévő alkatrészt beszerelné
    4. Rendezzük a táblát csökkenő sorrendbe a raktáron levő mennyiség szerint
Második feladat:
Hozzunk létre egy LAKASOK adatbázist egy LAKAS táblával, aminek a következő szerkezete van:
  1. ID - INT
  2. Cim - CHAR (15)
  3. Szobaszam - DOUBLE (2)
  4. Miota_elado - DATE
  5. Ar - DOUBLE (6)
Majd:
  1. Adjunk hozzá 10 rekordot
  2. Írjuk ki a 2000 utáni páros szobaszámmal rendelkező lakásokat (% vagy mod(x, 2) t is használhatunk)
  3. Írjuk ki azokat a lakásokat, amelyek ára megegyezik az összes lakás átlagárával
  4. Írjuk ki két tetszőleges érték a és b (a < b) közötti lakások árát, ahol az a és b értékét billentyűzetről olvassuk be ( 
    INPUT ‘kerek egy szamot: ' TO a



val lehet egy számot az a változóba beolvasni

Megoldott Foxpro feladat:
A TERMEK tábla egy raktárban levő termékekről tartalmaz különböző információkat:

  1. ID - INT
  2. Nev - CHAR (15)
  3. Ar - DOUBLE (6)
  4. Mennyiseg - DOUBLE (7)
  5. Szalito_ceg - CHAR (6)
Keressük meg:

a) a legdrágább termék nevét és árát ;

b) Mennyi az összes termék után fizetendő ÁFA, ha ez az ár 24% a

c) Töröljönk ki minden terméket, amelyet a "Pelda Bela KFT" szállított

d) Írjuk  ki a táblát csökkenő sorrendben a meglévő mennyiség után és írassuk ki az első 2 terméket


USE TERMEK

CLEAR
CALCULATE MAX(Ar) TO x
DISPLAY Nev, Ar FOR Ar=x
WAIT 'Nyomj egy billentyut a folytatashoz!'

CLEAR
CALCULATE sum(Ar) TO y
?'Ossz AFA=',y*0.24
WAIT 'Nyomj egy billentyut a folytatashoz! !'

CLEAR
DELETE FOR UPPER(Szalito_ceg)="Pelda Bela KFT"
LIST

SORT TO TERMEKS ON Mennyiseg /d
USE TERMEKS
LIST next 2
USE