ZYG1MANTAS

Yra

Jeigu kam nesunku paziurekit labai reikia nuoroda pirma praktine uzduotis pirstines http://nec.lt/failai/2425_IT-2-2011.pdf

Duomenø faile yra duomenys apie miesto parduotuvëse (ne maþiau kaip 4 parduotuvës) prekiaujama produkcijà (kiekvienas parduotuvëje parduodama ne maþiau kaip 4 skirtingø prekiø). Iraðe yra tokie laukai: prekës pavadinimas, parduotuvë, kiek prekiø gauta, kiek prekiø parduota, prekës kaina. Sudarykite programà, kuri iðvestø pradinius duomenis apie parduotuvëse pardavinëjamas prekes rezultatu faile ir po to á tà pat failà iðvesti daugiausiai parduotos prekës pavadinimà ir atspausdinti tik tas prekes kurios visos buvo parduotos. Duomenu failas Makaronai Tulpe 20 18 1.80 Cukrus Migle

1.Informacinės sistemos (informacinių sistemų projektavimas ir projektų valdymas; interneto informacinių sistemų ir duomenų bazių programavimas) 2.verslo informacinės sistemos 3.verslo informatika 4.verslo informatika (finansų informatika) Idomu butu suzinoti jusu nuomone kuo jos skiriasi. Pliusai minusai.

1.Informacinės sistemos (informacinių sistemų projektavimas ir projektų valdymas; interneto informacinių sistemų ir duomenų bazių programavimas) 2.verslo informacinės sistemos 3.verslo informatika 4.verslo informatika (finansų informatika) Idomu butu suzinoti jusu nuomone kuo jos skiriasi. Pliusai minusai.

program Noname3; const duom = 'duom.txt'; rez = 'rez.txt'; max = 30; type pinigai = array [1..max] of integer; turistai = record vardas: string [15]; bkiek: integer; //banknotu kiekis bverte:integer; // banknotu vertes end; mas = array [1..max] of turistai; var D, R:text; m:mas; n:integer; procedure skaito (var F:text; var A:mas; var n:integer); var i:integer; begin for i:= 1 to n do Read(F, A.vardas, A.bkiek, A.bverte); end; procedure raso (var F:text; var A:mas; var n:integer); var i:integer; begi

faila prikabint pamirsau..

Nesigauna nuskaityt ju turimu pinigu, kad sudet.. 200x_turistai.doc