Тармақталған алгоритмге бағдарлама құру

Пән: Информатика, Программалау, Мәліметтер қоры
Жұмыс түрі: Материал
Тегін: Антиплагиат
Көлемі: 4 бет
Таңдаулыға:

Тармақталған алгоритмге бағдарлама құру.

№1. Екі сан берілген, екеуінің ішіндегі үлкенін табу бағдарламасын құру.
program ulken2;
uses crt;
var a,b,y:real;
begin
clrscr;
writeln('sandardy engiz'); {мониторға шығарылатын ақпарат}
readln(a,b); {екі санды енгізу}
if ab then y:=a else y:=b; {шартты тексеру екеуін бір-бірімен салыстыру, үлкенін айнымалыға меншіктеу}
writeln('ulkeni:',y:4:1); {мәліметті мониторға шығару}
readln
end.
немесе
program ulken2;
uses crt;
var a,b:real;
begin
clrscr;
writeln('sandardy engiz'); {мониторға шығарылатын ақпарат}
readln(a,b); {екі санды енгізу}
if ab then writeln('ulkeni:',a:4:1) else writeln('ulkeni:',b:4:1); {шартты тексеру екеуін бір-бірімен салыстыру, мұнда санның үлкені туралы мәліметті бірден шығаруға болатын жолы көрсетілген}
readln
end.

№2. Енгізілген үш санның үлкенің есептеу бағдарламасын құру.
program ulken3;
uses crt;
var a,b,c,ulken:real;
begin
clrscr;
writeln('sandardy engiz'); {мониторға шығарылатын ақпарат}
readln(a,b,c); {үш санды енгізу}
if (ab) and (ac) then ulken:=a else {бірінші сан үлкен деп аламыз, қалған екі санды осы санмен салыстырамыз, егер ол шарт орындалса, онда бірінші сан үлкен болғаны}
if bc then ulken:=b else ulken:=c; {әйтпесе ол шарт орындалмаса екіншісін үлкен деп аламыз, екінші және үшінші санды салыстырамыз, себебі бірінші санмен оларды салыстырып қойдық, шарт орындалса екінші сан үлкені болғаны, әйтпесе үшінші сан үлкені}
writeln('ulkeni:',ulken:4:1);
readln
end.

№3. Өрт сөндіру құрылғысы температура 500С болғанда Өрт басталды дабылын қағатын бағдарлама құру. Тармақталудың толымсыз түрі қолданылады. Мұнда 500С-тан төмен сан енгізілсе программа ешқандай жауап қайтармайды, себебі құрылғы тек 500С не одан жоғары болған жағдайда ғана дабыл қағады, сол жағдайат ескерілді.
program dabyl;
uses crt;
var o:real;
begin
clrscr;
writeln('temperaturany engizu:');
readln(o);
if o=50 then writeln('Ort bastaldy');
readln
end.

№4. Енгізілген сан теріс не оң екенін анықтайтын бағдарлама құру. Математикада егер сан 0-ден үлкен болса, ол сан - оң, әйтпесе сан - теріс болғаны. Осы шарт тексеріледі.
program onteris;
uses crt;
var j:real;
begin
clrscr;
writeln('sandy engiz');
readln(j);
if j0 then writeln('on san') else writeln('teris san');
readln
end.

№5. Енгізілген сан жұп не тақ екенін анықтайтын бағдарлама құру. Математикада егер сан 2-ге қалдықсыз бөлінсе, ол сан - жұп, әйтпесе сан - тақ болғаны. Осы шарт тексеріледі, mod операторы қолданылады.
program juptak;
uses crt;
var z,q:integer;
begin
clrscr;
writeln('sandy ... жалғасы

Сіз бұл жұмысты біздің қосымшамыз арқылы толығымен тегін көре аласыз.