316
5 ҚОСЫМША
Паскаль тіліндегі программалар мысалы
1 тапсырма: қосу, азайту, көбейту жəне бөлу арифметикалық амалдарын орындайтын “КАЛЬКУЛЯТОР” программасын жа-зыңыз.
Енгізілетін мəндер форматы: 1-ші сан, орындалатын амал символы (+,-,*,/), 2-ші сан.
Бөлу амалын орындау кезінде 2-ші санның нөлге тең емес екендігін тексеру керек.
Программа мəтіні
Program calc;
uses crt;
var x,y,z:real; op,ch:char;
begin
repeat
clrscr;
writeln(‘КАЛЬКУЛЯТОР программасы’);
writeln(‘ + – * / амалдарын орындайды’);
write(‘ 1-ші санды енгізіңіз:’);
readln(x);
repeat
write(‘Орындалатын амал символын енгізіңіз:’); readln(op);
until (op=’+’) or (op=’-‘) or (op=’*’) or (op=’/’); write(‘ 2-ші санды енгізіңіз:’); readln(y);
case op of
‘+’:z:=x+y;
‘-’:z:=x-y;
‘*’:z:=x*y;
‘/’:if y<>0
then z:=x/y
else
begin
writeln(‘ 0-ге бөлуге болмайды!’); z:=0;
end;
end;
317
writeln(x,op,y,’=’,z:10:3);
write(‘ КАЛЬКУЛЯТОР программасымен жұмысты аяқтайсыз ба? (Yes/No)?’);
readln(ch);
until upcase(ch)=’y’;
end.
2 тапсырма: ax 2 bx c 0 квадрат теңдеуді шешуге ар-налған программа жазыңыз.
Достарыңызбен бөлісу: |
