2 задачи по паскалю

[ИЛЬЯ17]

Задача №1 «Даны два целых числа. Найти их среднее геометрическое.

Задача №2 «Составить программу для вычисление значение функции
-1,если х<-1
y=x, если x>-1
1, если x=-1
с блок схемоми

[Zer0]

1)

var sGeom:real; a,b:integer;
begin
 write ('Input A,B: ');
 readln(a,b);
 sGeom:=sqrt(a*b);
 writeln ('Result = ',sGeom:0:2);
 readln;
end.

2)

var x,y:real;
begin
 write ('X = ');
 readln(y);
 if x<-1 then y:=-1
 else if x=-1 then y:=1
 else y:=x;
 writeln ('Y = ',y:0:2);
 readln;
end.

Блок-схемы для этих задач элементарные, если совсем лень, воспользуйтесь программами для составления блок-схем по коду, например diamFC

[ИЛЬЯ17]

спасибо!!! а в каких программах

[ИЛЬЯ17]

Сообщение от Zer0

1)

sGeom:=sqrt(a*b);

2)

if x<-1 then y:=-1
else if x=-1 then y:=1
else y:=x

Блок-схемы для этих задач элементарные, если совсем лень, воспользуйтесь программами для составления блок-схем по коду, например diamFC

ты мне полностью программы напиши

[whatever]

ИЛЬЯ17, забыл пальцами щелкнуть и поторопить

[ИЛЬЯ17]

Сообщение от whatever

ИЛЬЯ17, забыл пальцами щелкнуть и поторопить

дада!!)) а ты знаешь как делать их

[Arigato]

ИЛЬЯ17, а вы не сильно оборзели?

[ИЛЬЯ17]

Сообщение от Arigato

ИЛЬЯ17, а вы не сильно оборзели?

что??? да я шуткой )))!! да блин мне надо [CENSORED] для зачета две задачи этих ктобы помог полностью сделать!!???

[Zer0]

Уважаемый Илья, хочу сделать Вам пару замечаний и дать один совет:
1) Вас наверное не научили тому, что в обществе выражаться матом как минимум некультурно? В интернетах за такое и банхаммером по попе могут дать
2) С русским языком у Вас тоже небольшие проблемы

кто-бы
а ты знаешь, как делать их?
а в каких программах? (кстати я Вам написал программу - diamFC)
с блок-схемАми
вычисление значениЯ функции

Теперь совет:
Вам был дан весь основной код решения, все что от Вас требовалось - это объявить переменные и вставить данный код в программу... Если Вы не знаете или ленитесь это сделать, стоит всерьез задуматься о смысле дальнейшего обучения

[ИЛЬЯ17]

извините, но я не могу сделать, да а вот какие программы надо !? для вставки кода