Program sample 21 Uses wincrt Var x real

Απάντηση Program sample 2_1; Uses wincrt; Var x: real; Begin Write(‘Dose ena arithmo…’); Readln(x); writeln; If x>=0 then write(‘H tetragoniki riza tou arithmou einai: ’, sqrt(x): 8: 2) else write(x: 7: 2, ’O arithmos einai arnitikos’); End.

PROGRAM IF_1; Uses wincrt; Var timi_emprmts, pliroteo, ekptosi: real; Begin write(‘ Dose tin timi tou emporeumatos…. : ’); Readln(timi_emprmts); Pliroteo: =timi_emprmts; If timi_emprts>= 1000 then ekptosi: =timi_emprmts * 0. 1; pliroteo: =timi_emprmts - ekptosi; writeln(‘ H plirotea timi se ECU einai…’, pliroteo: 8: 2); End.

Απάντηση PROGRAM if__2; Uses wincrt; Var eisodima, periousia: real; paidia: Integer; Begin Write(‘Dose to miniaio eisodima…’); Readln(eisodima); Write(‘Periousia tis syzygou…’); Readln(periousia); Write(‘Posa paidia exete; ‘); Readln(paidia); If ((eisodima>2000)or (periousia>=200000)) and (paidia=0) Then writeln(‘ Agorase spor autokinhto’) else writeln(‘Agorase aplo autkinhto’); End.

PROGRAM if_3; Uses wincrt; Var timi_eidous, pliroteo: real; Kat_pelati: char; Begin Write(‘Dose tin timi eidous: ’); Readln(timi_eidous); Writeln(‘Dose tin katigoria pelati: ’); Writeln(‘ 1. Epaggelmatias’); Writeln(‘ 2. Lianopolis Writeln(‘ 3. Allos Readln(kat_pelati); ’);

case kat_pelati of ‘ 1’ : pliroteo: =timi_eidous*(1 -0. 1); ‘ 2’ : pliroteo: =timi_eidous*(1 -0. 15); ‘ 3’ : pliroteo: =timi_eidous; Else pliroteo: =0; writeln(‘ Lathos eisagwgis’); End. Writeln(‘ H plirotea timi se ECU einai…’, pliroteo: 8: 2); End.

Απάντηση Program Xaraktiras; Uses wincrt; Var n: Char; Begin Write(‘Dose ena akeraio arithmo apo to 1… 7’); Readln(n); If n=‘ 1’ then writeln(‘Kyriakh’) Else if n=‘ 2’ then writeln(‘Deutera’) Else if n=‘ 3’ then writeln(‘Trith’) Else if n=‘ 4’ then writeln(‘Tetarth’) Else if n=‘ 5’ then writeln(‘Pempth’) Else if n=‘ 6’ then writeln(‘Paraskeui’) Else if n=‘ 7’ then writeln(‘Savvato’) Else writeln(‘ Akyros arithmos… ksanaprosp; athise’); End.

Απαντήσεις Program askisi_1; Uses wincrt; n: Char; Begin Write(‘Dose ena akeraio arithmo apo to 1… 12’); Readln(n); If n=‘ 1’ then writeln(‘Genaris’) Else if n=‘ 2’ then writeln(‘Fevrouarios’) Else if n=‘ 3’ then writeln(‘Martios’) Else if n=‘ 4’ then writeln(‘Aprillios’) Else if n=‘ 5’ then writeln(‘Maios’) Else if n=‘ 6’ then writeln(‘Iounios’) Else if n=‘ 7’ then writeln(‘Ioulios’) Else if n=‘ 8’ then writeln(‘Augoustos’) Else if n=‘ 9’ then writeln((‘septemvrios’) Else if n =’ 10’ then writeln(‘Oktomvrios’) Else if n=’ 11’ then writeln(‘Noemvrios’) Else if n=’ 12’ then writeln(‘Dekemvrios’) Else writeln(‘ Akyros arithmos… ksanaprosp; athise’); End.

Απαντήσεις Program askisi_2; Uses wincrt; Var x, y, megalyteros: real; Begin writeln(‘ Dose dyo arithmous’); readln(x, y); writeln(‘Arithmos 1=‘, x, ’Artithmos 2=‘, y); If x>y then megalyteros: =x Else megalyteros: =y; writeln(‘ O megalyteros arithmos einai…’, megalyteros: 10: 2); End.

Απαντήσεις Program Askisi_3; Uses wincrt; Var timi_eidous, pliroteo: real; Begin write(‘ Timi eidous se ECU. . ’); readln(timi_eidous); If timi_eidous< 1000 then pliroteo: =timi_eidous + 50 else pliroteo: =timi_eidous; writeln(‘ Pliroteo poso se ECU…’, pliroteo: 2: 2); End.

Απαντήσεις Program askisi_4; Uses wincrt; Var paraggelia, pliroteo: real; diarkeia: Integer; Begin write(‘Paraggelia se ECU. . ’); readln(paraggelia); write(‘ Synergasia gia posa xronia’); readln(diarkeia); If paraggelia< 800 then Begin If diarkeia < 5 then pliroteo: =paraggelia else pliroteo: =paraggelia*(1 -0. 04); end

Else Begin if diarkeia < 5 then pliroteo: =paraggelia*(1 -0. 1) else pliroteo: =paraggelia*(1 -0. 04); end; writeln(‘ To pliroteo poso se ECU einai. . ’, pliroteo: 2: 2); END.