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


№1. Екі сан берілген, екеуінің ішіндегі үлкенін табу бағдарламасын құру.
№2. Енгізілген үш санның үлкенің есептеу бағдарламасын құру.
№3. Енгізілген сан теріс не оң екенін анықтайтын бағдарлама құру.
Екі сан берілген, екеуінің ішіндегі үлкенін табу бағдарламасын құру.
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.

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

бот арқылы тегін алу, ауыстыру

Қандай қате таптыңыз?

Рақмет!






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

№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 ... жалғасы
Ұқсас жұмыстар
Алгоритмдер және деректер структурасы
Компьютердің бағдарламалық құралдары. Бағдарламалауды автоматтандыру әдістері. Алгоритмдік тілдер. Алгоритмдік тілдің қолдануы және оған қойылатын талаптар.
Алгоритм және алгоритмдеу ұғымдары
Алгоритмдерді Паскаль программалау тілінде әзірлеу
Алгоритм қасиеттері
Тілдің алфавиті
Информатиканы дербес оқыту әдістемесі
Алгоритм түсінігі
Delphi бағдарламасын қолданып мәтіндік редакторын құру және онымен жұмыс істеу мүмкіндіктерін көрсететін бағдарлама құру
Алгоритм тілін оқыту әдістемесі
Пәндер