Оқулық Қазақстан Республикасы Білім жəне ғылым министрлігі бекіткен Алматы, 2011 1
жүктеу/скачать 4,42 Mb.
|
- Бұл бет үшін навигация:
- 3 тапсырма
| Программа мəтіні
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;
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
b := s div 5000; if b> 0 then begin
b := s div 2000; if b> 0 then begin
b:= s div 1000; if b> 0 then begin
b := s div 500; if b> 0 then begin
b := s div 200; if b> 0 then begin
b := s div 100; if b> 0 then begin
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.
жүктеу/скачать 4,42 Mb. Достарыңызбен бөлісу:
|