Информатика, 10 класс (учитель , smirnova-lg@yandex.ru )
Выполнить задания по теме «Программирование ветвлений на Паскале».
1. Определите значение переменной с после выполнения фрагмента программы:
a:=100;
b:=30;
a:=a–b*3;
if a>b then
c:=a – b
else c:=b – a;
2. Запишите данный фрагмент другим способом:
if a>b then c:=1;
if a>b then d:=2;
if a<=b then c:=3;
if a<=b then d:=4;
3. Определите значение переменной a после выполнения фрагмента программы:
1) a:=3; 2) a:=5;
if a<4 if a<4
then a:=a+2 then a:=a+2
else a:=2*a; else a:=2*a;
a:=a-5; a:=a-5;
4. Сформулируйте условие задачи, для решения которой составлена программа. Каким будет K, если А=-5, В=2, С=8?
Program z1;
Var A, B,C:real; K:integer;
Begin
Read (A, B,C);
If A>0 Then K:=K+1;
If B>0 Then K:=K+1;
If C>0 Then K:=K+1;
Write(K)
End.
5. Сформулируйте условие задачи, для решения которой составлена программа. Каким будет S, если А=2, В=-5, С=8?
Program z2;
Var A, B,C, S:real;
Begin
Read (A, B,C);
If A>0 Then S:=S+A;
If B>0 Then S:=S+B;
If C>0 Then S:=S+C;
Write(S)
End.
6. Составьте программу, которая определяет: попадает точка (х;у) в заданную область или нет.
Составьте математическую модель (системы неравенств, описывающие область) и запишите логическое выражение. Доработайте предложенную программу.
Program z3;
var x, y:real;
begin
writeln('Введите координаты точки x,y');
read(x,y);
if
then writeln('Точка (',x,';',y,')попадает в заданную область');
else writeln('Точка (',x,';',y,')не попадает в заданную область');
end.
7. В программу нахождения периметра и площади треугольника с заданными сторонами добавьте недостающие строки. Программа должна определять вид треугольника.
Program z4_2;
var a, b,c:integer; p, s:real;
begin
writeln('Введите значения a,b,c');
read(a, b,c);
p:=a+b+c;
s:=sqrt(p/2*(p/2-a)*(p/2-b)*(p/2-c));
writeln(p);
writeln(s);
end.
