PROGRAM MISTHOLOGIO;
CONST
MISTHOS=1200;
THESI=300;
VAR
ONOMA:STRING [30];
PAIDIA,KOD_THESIS:INTEGER
EPID_THESIS,EPID_PAID,KRATHSEIS,MIKTA,KATHARA:REAL
BEGIN
WRITE('DOSE,ONOMA,ARITHMO,PAIDION,KOD_THESIS(1=DIEYTHINTIS,0=OXI)');
READLN(ONOMA,PAIDIA,KOD_THESIS:=0
IF KOD_THESIS=0 THEN EPID_THESIS:=0
ELSE EPID_THESIS:=THESIS
IF PAIDIA<=3 THEN EPIDI_PAID:=0,03*PAIDIA*MISTHOS
ELSE
EPID_PAID=0,03*3*MISTHOS+0,06*(PAIDIA-3)MISTHOS;
MIKTA:=MISTHOS+EPID_THESIS+EPID_PAID;
KRATHSEIS:=0,12*MIKTA;
KATHARA:=MIKTA-KATHISEIS;
WRITELN('KRATHSEIS='KRATHSEIS:10;2);
WRITELN('O',ONOMA 'PAIRNEI KATHARA=',KATHARA:10:2,'EYRW')
END
CONST
MISTHOS=1200;
THESI=300;
VAR
ONOMA:STRING [30];
PAIDIA,KOD_THESIS:INTEGER
EPID_THESIS,EPID_PAID,KRATHSEIS,MIKTA,KATHARA:REAL
BEGIN
WRITE('DOSE,ONOMA,ARITHMO,PAIDION,KOD_THESIS(1=DIEYTHINTIS,0=OXI)');
READLN(ONOMA,PAIDIA,KOD_THESIS:=0
IF KOD_THESIS=0 THEN EPID_THESIS:=0
ELSE EPID_THESIS:=THESIS
IF PAIDIA<=3 THEN EPIDI_PAID:=0,03*PAIDIA*MISTHOS
ELSE
EPID_PAID=0,03*3*MISTHOS+0,06*(PAIDIA-3)MISTHOS;
MIKTA:=MISTHOS+EPID_THESIS+EPID_PAID;
KRATHSEIS:=0,12*MIKTA;
KATHARA:=MIKTA-KATHISEIS;
WRITELN('KRATHSEIS='KRATHSEIS:10;2);
WRITELN('O',ONOMA 'PAIRNEI KATHARA=',KATHARA:10:2,'EYRW')
END
Δεν υπάρχουν σχόλια:
Δημοσίευση σχολίου