5.1 Uzduotis(43).
Moksliniai darbuotojai atliko darbus keturiose skirtingose temose.Visos temos gavo premijas.Faile duota tokia informacija : pirmoje eilutėje - premijų dydžiai,tolesnėse eilutėse - darbuotojų pavardės,vardai,darbuotojų indėliai,kurie yra išreikšti naudingumo koeficientu ,į eilinę temą.Informacija apie darbuotoją užima vieną eilutę.Remiantis darbuotojų indėliais , suskaičiuoti kiekvienam darbuotojui priklausančios premijos dydį pagal kiekvieną temą atskirai ir bendrą premijų sumą.Rezultatus atspausdinti pagal alfabetą.
5.2 Duomenų tipai ir kintamieji.
Koefi = array[1..4] of real;
Premi = array[1..4] of integer;
Irasas = record
pv : Teil1;
va : Teil2;
koef : Koefi;
prem : Premi;
end;
type nauda = array [1..4] of Irasas;
premija = array [1..4] of Irasas;
va F : text; { duomenų failas }
R : text; { rezultatų failas }
G : nauda; { duomenų apie darbuotojus masyvas}
Mas : premija; { pemijų masyvas }
stsk : integer; { eilučių skaičius }
i , j : integer; { kintamieji }
n : integer; {
Rezultatai saugomi faile 'Labor5.rez'.
5.3 Programos aprašymas.
Faile duota tokia informacija : pirmoje eilutėje - premijų dydžiai , tolesnėse eilutėse - darbuotojų pavardės,vardai,darbuotojų indėliai,kurie yra išreikšti naudingumo koeficientu ,į eilinę temą.Informacija apie darbuotoją užima vieną eilutę.Remiantis darbuotojų indėliais , reikia suskaičiuoti kiekvienam darbuotojui priklausančios premijos dydį pagal kiekvieną temą atskirai ir bendrą premijų sumą.Rezultatus atspausdinti pagal alfabetą.
Porgramos modulinė schema :
Laboratorinis5
IvestPreDid
IvestDuom
Alfabetas
SpausAlfa
Suma
Pagrindinės programos algoritmas :
Pradzia Laboratorinis5;
Type
Teil1 = string[15];
Teil2 = string[15];
Koefi = array[1..4] of real;
Premi = array[1..4] of integer;
Irasas = record
pv : Teil;
va : Teil2;
prem : Premi;
koef : Koefi;
Type nauda = array [1..4] of Irasas;
Premija = array [1..4] of Irasas;
Kintamieji G : nauda; Mas : premija; F,R : text; i,j,stsk : integer;
Procedure IvestPreDid(var F : text; var Mas : premija);
Procedure IvestDuom(var F : text;var G : nauda;var stsk : integer);
Procedure Alfabetas(var R,F : text;var G: nauda; var stsk : integer);
Procedure SpausAlfa(var R : text; var G : nauda; var stsk : integer);
Procedure Suma(var R : text; var G : nauda;var Mas : premija;var stsk : integer);
Failo F paruošimas;
Failo R paruošimas rezultatų spausdinimui;
IvestPreDid(F , Mas...
Šį darbą sudaro 1173 žodžiai, tikrai rasi tai, ko ieškai!
★ Klientai rekomenduoja
Šį rašto darbą rekomenduoja mūsų klientai. Ką tai reiškia?
Mūsų svetainėje pateikiama dešimtys tūkstančių skirtingų rašto darbų, kuriuos įkėlė daugybė moksleivių ir studentų su skirtingais gabumais. Būtent šis rašto darbas yra patikrintas specialistų ir rekomenduojamas kitų klientų, kurie po atsisiuntimo įvertino šį mokslo darbą teigiamai. Todėl galite būti tikri, kad šis pasirinkimas geriausias!
Norint atsisiųsti šį darbą spausk ☞ Peržiūrėti darbą mygtuką!
Mūsų mokslo darbų bazėje yra daugybė įvairių mokslo darbų, todėl tikrai atrasi sau tinkamą!
Kiti darbai
Atsisiuntei rašto darbą ir neradai jame reikalingos informacijos? Pakeisime jį kitu nemokamai.
Pirkdamas daugiau nei vieną darbą, nuo sekančių darbų gausi 25% nuolaidą.
Išsirink norimus rašto darbus ir gauk juos akimirksniu po sėkmingo apmokėjimo!