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



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

Программа мəтіні
Program kvur;
var a,b,c,d,x1,x2:real;

begin


writeln(‘ Квадрат теңдеуді шешу’ );

write(‘ a,b,c коэффициенттерін енгізіңіз:');

readln(a,b,c);

d:=b*b-4*a*c;

if d<0 then

writeln(‘ Шешім жоқ ‘)

else

begin


writeln(‘ Шешім бар ‘);

x1:=(-b+sqrt(d))/(2*a);

x2:=(-b-sqrt(d))/(2*a); writeln(‘x1=’,x1:5:5,’ x2=’,x2:5:5); end;
writeln(‘ ENTER батырмасын басыңыз ‘);

readln;


end.
3 тапсырма: Берілген ақшаның құндылығы 10 000, 5000, 2000, 1000, 500, 200, 100, 50, 20, 10 теңге банкноттарының ең аз санымен өрнектеу керек.

Программа мəтіні
Program dengi (input, output);
var s, (*summa deneg*)

sk (*obchee kol-vo banknot *) : longint;

b (*kol-vo banknot odnogo vida*) : integer; begin



318

writeln ( ‘vvedite summu deneg v banknotax: ‘); read (s);
sk:= 0; b:= s div 10000;

if b > 0 then

begin
sk:= sk + b; writeln (10000, ‘: ‘, b); s:= s mod 10000 end;

b := s div 5000;

if b> 0 then

begin
sk := sk + b; writeln (5000, ‘ :’, b); s := s mod 5000 end;

b := s div 2000;

if b> 0 then

begin
sk:= sk + b; writeln (2000, ‘ : ‘, b); s := s mod 2000 end;

b:= s div 1000;

if b> 0 then

begin
sk := sk + b; writeln (1000, ‘ : ‘, b); s := s mod 1000 end;

b := s div 500;

if b> 0 then

begin
sk := sk + b; writeln (500, ‘ : ‘, b); s := s mod 500 end;

b := s div 200;

if b> 0 then

begin
sk:= sk + b; writeln (200, ‘ : ‘, b); s := s mod 200 end;

b := s div 100;

if b> 0 then

begin
sk:= sk + b; writeln (100, ‘:’, b); s:= s mod 100 end;

b := s div 50;

if b> 0 then

begin



319

sk:= sk + b; writeln (50, ‘:’, b); s:= s mod 50 end;
b := s div 20;

if b> 0 then

begin

sk:= sk + b; writeln (20, ‘:’, b); s:= s mod 20 end;


b := s div 10;

if b> 0 then

begin

sk:= sk + b; writeln (10, ‘:’, b); s:= s mod 10 end;


b := s div 5;

if b> 0 then

begin

sk:= sk + b; writeln (5, ‘:’, b); s:= s mod 5 end;


b := s div 1;

if b> 0 then

begin

sk:= sk + b; writeln (1, ‘:’, b); s:= s mod 1 end;


writeln (‘vsego ‘, sk, ‘ banknot ‘)

end.
Программа көлемін кішірейту үшін есепті процедураны қолданып шығарамыз.





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




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

    Басты бет