Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АрхитектураБиологияГеографияДругоеИностранные языки
ИнформатикаИсторияКультураЛитератураМатематика
МедицинаМеханикаОбразованиеОхрана трудаПедагогика
ПолитикаПравоПрограммированиеПсихологияРелигия
СоциологияСпортСтроительствоФизикаФилософия
ФинансыХимияЭкологияЭкономикаЭлектроника

then Writeln ('y=', Exp(3*ln(x))+exp((1/2)*ln(x*x-x)):1:3)



 

var

a,b:Byte;

begin

Writeln ('vvedite a i b');

write ('a='); Readln (a);

write ('b='); Readln (b);

if (a mod 2)=0

then Writeln (a*b)

else Writeln (a+b);

Readln (a);

end.

 

var

x:real;

begin

Writeln ('vvedite x');

write ('x='); Readln (x);

if x>0

then Writeln ('y=', Exp(3*ln(x))+exp((1/2)*ln(x*x-x)):1:3)

else Writeln ('y=', Ln(Abs(x-1))+sin(x)/cos(x):1:3);

Readln (x);

end.

 

var

a,b,c:Real;

begin

Writeln ('vvedite a,b i c');

write ('a='); Readln (a);

write ('b='); Readln (b);

write ('c='); Readln (c);

if (a>b) and (a>c)

then writeln (a:1:2)

else if (b>a) and (b>c) then Writeln (b:1:2)

else Writeln (c:1:2);

Readln (a);

end.

 

var

x,y:real;

begin

Writeln ('vvedite x i y');

write ('x='); Readln (x);

write ('y='); Readln (y);

if (x=0) and (y<>0)

then Writeln ('tochka legit na Oy');

if (Y=0) and (x<>0)

then Writeln ('tochka legit na Ox');

if (x>0) and (y>0)

then writeln ('1 chetvert');

if (x<0) and (y<0)

then writeln ('3 chetvert');

if (x<0) and (y>0)

then writeln ('2 chetvert');

if (x>0) and (y<0)

then writeln ('4 chetvert');

if (x=0) and (y=0)

then Writeln ('tochka nachala koordinat');

Readln (x);

end.

 

var

a,b,c:integer;

begin

Writeln ('vvedite a,b i c');

write ('a='); Readln (a);

write ('b='); Readln (b);

write ('c='); Readln (c);

if (a>b) and (a<c) or (a<b) and (a>c)

then writeln (a)

else if (b>a) and (b<c) or (b<a) and (b>c)

then Writeln (b)

else Writeln (c);

Readln (a);

end.

 

var

a,b,c,d:real;

begin

Writeln ('vvedite a,b,c i d');

write ('a='); Readln (a);

write ('b='); Readln (b);

write ('c='); Readln (c);

write ('d='); Readln (d);

if (a<b) and (a<c) and (a<d)

then writeln (a:1:2);

if (b<a) and (b<c) and (b<d)

then Writeln (b:1:2);

if (c<a) and (c<b) and (c<d)

then Writeln (c:1:2);

if (d<a) and (d<c) and (d<b)

then Writeln (d:1:2);

Readln (a);

end.

 

var

a,b,c:real;

k:Byte;

begin

Writeln ('vvedite a,b,c');

write ('a='); Readln (a);

write ('b='); Readln (b);

write ('c='); Readln (c);

k:=0;

If a=0 then k:=k+1;

If b=0 then k:=k+1;

If c=0 then k:=k+1;

Writeln (k);

Readln (a);

end.

 

var

a,b,c:real;

begin

Writeln ('vvedite a,b i c');

write ('a='); Readln (a);

write ('b='); Readln (b);

write ('c='); Readln (c);

if (a<b) and (a<c)

then writeln (b*c:1:2);

if (b<c) and (b<a)

then writeln (a*c:1:2);

if (c<b) and (c<a)

then writeln (b*a:1:2);

Readln (a);

end.

 

var

a,b:Byte;

begin

Writeln ('vvedite M i N');

write ('M='); Readln (a);

write ('N='); Readln (b);

if (a mod b)=0

then Writeln (a/b:1:0)

else Writeln ('M na N nacelo ne delitsya');

Readln (a);

end.

 

var

a,b,c,d,k:integer;

begin

Writeln ('vvedite a,b,c,d');

write ('a='); Readln (a);

write ('b='); Readln (b);

write ('c='); Readln (c);

write ('d='); Readln (d);

k:=0;

If a<0 then k:=k+1;

If b<0 then k:=k+1;

If c<0 then k:=k+1;

If d<0 then k:=k+1;

Writeln (k);

Readln (a);

end.

 

var

a,b:integer;

begin

Writeln ('vvedite a,b');

write ('a='); Readln (a);

write ('b='); Readln (b);

If Abs(a)>Abs(b) then Writeln (a/5:1:2)

else Writeln ('modyl a < modyla b');

Readln (a);

end.

 

var

a,b,c:real;

begin

Writeln ('vvedite x,y,z');

write ('x='); Readln (a);

write ('y='); Readln (b);

write ('z='); Readln (c);

If (a+b+c)>(a*b*c) then Writeln ('x+y+z=', (a+b+c):1:2)

else Writeln ('x*y*z=', (a*b*c):1:2);

Readln (a);

end.

 

var

a,b:real;

begin

Writeln ('vvedite x,y');

write ('x='); Readln (a);

write ('y='); Readln (b);

If (a*a+b*b*b)>(b*b+a*a*a)

then Writeln ('x*x+y*y*y=', (a*a+b*b*b):1:2)

else Writeln ('y*y+x*x*x=', (b*b+a*a*a):1:2);

Readln (a);

end.

 

var

a,b,c:real;

begin

Writeln ('vvedite a,b,c');



write ('a='); Readln (a);

write ('b='); Readln (b);

write ('c='); Readln (c);

If a>0 then Writeln (a*a:1:2)

else Writeln (a:1:2);

If b>0 then Writeln (b*b:1:2)

else Writeln (b:1:2);

If c>0 then Writeln (c*c:1:2)

else Writeln (c:1:2);

Readln (a);

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 


Дата добавления: 2015-11-04; просмотров: 44 | Нарушение авторских прав




<== предыдущая лекция | следующая лекция ==>
По большинству перечисленных ниже книг ещё будет учиться не одно поколение | Teenagers shouldn’t drive

mybiblioteka.su - 2015-2024 год. (0.019 сек.)