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

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

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

№1. Екі сан берілген, екеуінің ішіндегі үлкенін табу бағдарламасын құру.

program ulken2;

uses crt;

var a, b, y:real;

begin

clrscr;

writeln('sandardy engiz') ; {мониторға шығарылатын ақпарат}

readln(a, b) ; {екі санды енгізу}

if a>b 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 a>b 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 (a>b) and (a>c) then ulken:=a else {бірінші сан үлкен деп аламыз, қалған екі санды осы санмен салыстырамыз, егер ол шарт орындалса, онда бірінші сан үлкен болғаны}

if b>c then ulken:=b else ulken:=c; {әйтпесе ол шарт орындалмаса екіншісін үлкен деп аламыз, екінші және үшінші санды салыстырамыз, себебі бірінші санмен оларды салыстырып қойдық, шарт орындалса екінші сан үлкені болғаны, әйтпесе үшінші сан үлкені}

writeln('ulkeni:', ulken:4:1) ;

readln

end.

№3. Өрт сөндіру құрылғысы температура 50 ⁰ С болғанда «Өрт басталды» дабылын қағатын бағдарлама құру. Тармақталудың толымсыз түрі қолданылады. Мұнда 50 ⁰ С-тан төмен сан енгізілсе программа ешқандай жауап қайтармайды, себебі құрылғы тек 50 ⁰ С не одан жоғары болған жағдайда ғана дабыл қағады, сол жағдайат ескерілді.

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 j>0 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 engiz') ;

readln(q) ; {санды енгізу}

z:=q mod 2 {енгізілген санды 2-ге бөлу}

if z=1 then writeln(q, '-tak san') else writeln(q, '-jup san') ; {шартты тексеру, егер қалдық 1-ге тең болса енгізілген сан - тақ болғаны, әйтпесе енгізілген сан - жұп}

readln

end.

№6. Берілген А(х, у) нүктесі радиусы k шеңбердің ішінде жатады ма немесе жатпай ма анықтайтын бағдарлама құру. Шеңбердің формуласы: x ² +y ² =r ² , осыдан $r = \sqrt{x^{2} + y^{2}}$ . Шарт былайша тексеріледі: енгізілген координаттар бойынша формула есептеледі, енгізілген шеңбердің радиусының мәні және формуладан шыққан радиус салыстырылады; егер k>r орындалса, онда нүкте жатады, әйтпесе нүкте жатпайды.

program nukte;

uses crt;

var x, y, k, r:real;

begin

clrscr;

writeln('nuktenin koordinattaryn engiz:') ;

readln(x, y) ;

writeln('shenber radiusyn engiz:') ;

readln(k) ;

r:=sqrt(sqr(x) +sqr(y) ) ; {формула бойынша радиус есептеледі}

if k>r then writeln('nukte jatady') else writeln('nukte jatpaidy') ;

readln

end.

№7. Берілген шаршы шеңбердің ішіне сыйятындығын тексеру бағдарламасын құру. Мұнда шаршы: барлық қабырғалары тең төртбұрыш, шаршы шеңбердің ішіне сыю үшін шаршының диагоналі және шеңбердің диаметрі тең болу керек. Диагоналін есептеу үшін ұшбұрыштың гипотенузасы мен катеттеріне арналған Пифагор теоремасы пайдаланылады: с ² =a ² +b ² . Диаметр екі радиусқа тең не үлкен болуы керек.

... жалғасы

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