вторник, 19 мая 2015 г.


Задача на треугольники:

Оговариваю переменные - d,e,f

Program Triangle;
Var d,e,f: integer;
Begin
Writeln('Vvedite 3 chisla');
Readln(d,e,f);
If (d<e+f) and (e<d+f) and (f<d+e) then Writeln('F=1')
Else Writeln('F=0');
Readln;
End.





Задача на нахождение степени числа Х (произвольного):

Program Unknown;
Var x,y,l,m: integer;
Begin
Writeln('Vvedite x,y');
Readln(x,y);
m:=x;
for l:=2 to y do
x:=x*m;
Writeln('x^',y,'=',x);
Readln;
End.

Ответы на вопросы:

1) Возможно программирование полного и неполного ветвления: в первом случае с помощью "if...then" (если... то) и "else" (иначе), во втором без "else".

2) Составным оператором называется последовательность операторов, которая заключена между "Begin" и "End"- служебными словами. Составной оператор используется при нескольких последовательных операторах на одной из ветвей оператора.



№ 6 (Работа с дробями):

Program Fraction;
Var a,b,c,d,e,f:integer;
Begin
Writeln('Vvedite znachenya chislitelya i znamenatelya pervoy drobi');
Readln(a);
Readln(b);
Writeln('Vvedite znachenya chislitelya i znamenatelya vtoroy drobi');
Readln(c);
Readln(d);
e:=a*b+c*d;
f:=b*d;
Writeln(' itogovaya summa');
Writeln(e,'/',f);
Readln;
End.

№ 7 (Поиск значения Y):

Program Search;
Var x,y:integer;
Begin
Writeln('Vvedite znachenye x');
Readln(x);
y:=(1-x*x+5*x*x*x*x)*(1-x*x+5*x*x*x*x);
Writeln('y=',y);
Readln;
End.


Прошу прощение за задержку выполнения домашнего задания!





Комментариев нет:

Отправить комментарий