Оқулық Қазақстан Республикасы Білім жəне ғылым министрлігі бекіткен Алматы, 2011 1



бет207/210
Дата06.01.2022
өлшемі4,42 Mb.
#16437
түріОқулық
1   ...   202   203   204   205   206   207   208   209   210
Байланысты:
boribaev-algoritmdeu

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 2bxc  0 квадрат теңдеуді шешуге ар-налған программа жазыңыз.



Достарыңызбен бөлісу:
1   ...   202   203   204   205   206   207   208   209   210




©emirsaba.org 2024
әкімшілігінің қараңыз

    Басты бет