Здравствуйте Люди у меня трудности с примерамы ( нужно написать программу на турбо паскале)

[zombax]

Здравствуйте Люди у меня трудности с примерамы( Лабораторная Работа №7 Программирование разветвляющих алгоритмов)( нужно написать программу на турбо паскале и составить блок схему)

[Naive]

2) ищем расстояние от начала координат до искомой точки (теорема пифагора, была такая в школе, sqrt(x*x+y*y)) и если оно больше меньшего радиуса и меньше большего, то принадлежит.
3) return := x mod 3 = 0;
Если это СЕДЬМАЯ лаба, то что было в первых шести? ввод вывод текста?

[Mixim]

Детский сад, а не задачи! Ладно, попробую:

program solution1;
uses crt;
var x,y,f:real;
begin
clrscr;
write("Введите x");
readln(x);
write("Введите y");
readln(y);
if(x>4) then begin
if(5*x<6*y) then
f:=5*x;
else
f:=6*y;
end
else
if(2<x<=4) then begin
f:=6*x*y+4;
end
else
if(x<=2)then begin
f:=x+sin(y*3.14/180);
end;
writeln("f(x)=", f);
end.

program solution3;
uses crt;
var a:integer;
begin
clrscr;
repeat
write("Введите трехразрядное число a");
until (a>0)and(a<=7);
if(a mod 3=0) then
writeln("Кратно")
else
writeln("Не кратно");
end.

Вторую задачу решать не буду, т.к. там надо сперва на листке все это смоделировать.

[IT-man]

2)

if (abs(x)>R1) and (abs(x)<R2) and (abs(y)>r1) and (abs(y)<r2) then writeln('ga!!!')
else writeln('HeT');