Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / AN_CASE
.PAS PROGRAM treug;
var
a,b,c: real;
treugolniki:char;
i:integer;
begin
{ ‚ў®¤ Ёб室ле ¤ ле }
write('ўўҐ¤ЁвҐ ¤«Ёл бв®а® ваҐгЈ®«мЁЄ ');
{readln(a,b,c);}
readln(i);
case i of
1:writeln('ваҐгЈ®«мЁЄ б¤ л¬Ё ¤«Ё ¬Ё бв®а® Ґ бгйҐбвўгҐв');
2:writeln('ваҐгЈ®«мЁЄ б ¤ л¬Ё ¤«Ё ¬Ё бв®а® - а ў®бв®а®Ё©');
3:writeln ('ваҐгЈ®«мЁЄ б¤ л¬Ё ¤«Ё ¬Ё бв®а® Їаאַ㣮«мл©');
4:writeln ('ваҐгЈ®«мЁЄ б¤ л¬Ё ¤«Ё ¬Ё бв®а® а ў®ЎҐ¤аҐл©');
5:writeln ('ваҐгЈ®«мЁЄ Ё®©');
else writeln ('ҐЇа ўЁ«мл© ўл室 Ё§ ®ЇҐа в®а ');
end;
{if ((a+b)<c) or ((a+c)<b) or ((b+c)<a)
then writeln('ваҐгЈ®«мЁЄ б¤ л¬Ё ¤«Ё ¬Ё бв®а® Ґ бгйҐбвўгҐв')
else if (a=b) and (a=c)
then writeln('ваҐгЈ®«мЁЄ б ¤ л¬Ё ¤«Ё ¬Ё бв®а® - а ў®бв®а®Ё©')
else if (a=sqrt(sqr(b)+sqr(c))) or (b=sqrt(sqr(a)+sqr(c))) or (c=sqrt(sqr(a)+sqr(b)))
then writeln ('ваҐгЈ®«мЁЄ б¤ л¬Ё ¤«Ё ¬Ё бв®а® Їаאַ㣮«мл©')
else if (a=b) or (b=c) or (c=a)
then writeln ('ваҐгЈ®«мЁЄ б¤ л¬Ё ¤«Ё ¬Ё бв®а® а ў®ЎҐ¤аҐл©')
else writeln ('ваҐгЈ®«мЁЄ Ё®©')}
readln;
end.
var
a,b,c: real;
treugolniki:char;
i:integer;
begin
{ ‚ў®¤ Ёб室ле ¤ ле }
write('ўўҐ¤ЁвҐ ¤«Ёл бв®а® ваҐгЈ®«мЁЄ ');
{readln(a,b,c);}
readln(i);
case i of
1:writeln('ваҐгЈ®«мЁЄ б¤ л¬Ё ¤«Ё ¬Ё бв®а® Ґ бгйҐбвўгҐв');
2:writeln('ваҐгЈ®«мЁЄ б ¤ л¬Ё ¤«Ё ¬Ё бв®а® - а ў®бв®а®Ё©');
3:writeln ('ваҐгЈ®«мЁЄ б¤ л¬Ё ¤«Ё ¬Ё бв®а® Їаאַ㣮«мл©');
4:writeln ('ваҐгЈ®«мЁЄ б¤ л¬Ё ¤«Ё ¬Ё бв®а® а ў®ЎҐ¤аҐл©');
5:writeln ('ваҐгЈ®«мЁЄ Ё®©');
else writeln ('ҐЇа ўЁ«мл© ўл室 Ё§ ®ЇҐа в®а ');
end;
{if ((a+b)<c) or ((a+c)<b) or ((b+c)<a)
then writeln('ваҐгЈ®«мЁЄ б¤ л¬Ё ¤«Ё ¬Ё бв®а® Ґ бгйҐбвўгҐв')
else if (a=b) and (a=c)
then writeln('ваҐгЈ®«мЁЄ б ¤ л¬Ё ¤«Ё ¬Ё бв®а® - а ў®бв®а®Ё©')
else if (a=sqrt(sqr(b)+sqr(c))) or (b=sqrt(sqr(a)+sqr(c))) or (c=sqrt(sqr(a)+sqr(b)))
then writeln ('ваҐгЈ®«мЁЄ б¤ л¬Ё ¤«Ё ¬Ё бв®а® Їаאַ㣮«мл©')
else if (a=b) or (b=c) or (c=a)
then writeln ('ваҐгЈ®«мЁЄ б¤ л¬Ё ¤«Ё ¬Ё бв®а® а ў®ЎҐ¤аҐл©')
else writeln ('ваҐгЈ®«мЁЄ Ё®©')}
readln;
end.
Соседние файлы в папке Alex