Programeerimise algkursus 2005-2006
44 / 115
'IF' 'THEN'
[ 'ELSE'
].
tegevus -> [ ] | 'BEGIN' [ ][ ';' ]
'END'.
lausete jada -> [ ';' ].
NB! Võtmesõna 'ELSE' ees ei tohi olla semikoolonit ( ';' )!
P r o g r a m m N1.1.P
Program N1_1_P;
Var { deklareerime vajalikud muutujad }
N : Integer;
T, O, M : Real;
Begin
{ esitame valikuinfo kasutajale }
WriteLn('PROTSENTARVUTUSED');
WriteLn('[1] Osamäära M leidmine terviku T ja osa O järgi');
WriteLn('[2] Osa O määramine protsendi M ja terviku T järgi');
WriteLn('[3] Terviku T määramine protsendi M ja vastav osa O järgi');
{ sisestame kasutaja valiku }
Write('Palun sisesta vajalik ülesandetüüp : '); Read(N);
If N = 1 Then { kui valiti 1. variant, }
annaabi.ee 
