Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » ребят помогите пожалуйста (очень нужна ваша помощь , надеюсь только на вас)
ребят помогите пожалуйста
1)Рассчитать значение y при заданном значении x:
Y=Sinx2 при x>0 В противном случае Y=1+2Sin2x
2)Даны 4 вещественных числа. Определить, сколько из них отрицательных. Оператор цикла не использовать.
3)Даны x1, y1 координаты левой верхней и х2, y2 координаты правой нижней вершин прямоугольника. Точка А(х,у) принадлежит прямоугольнику, стороны которого параллельны координатным осям.
4)Сумма каких-либо двух цифр заданного трехзначного натурального числа N равна третьей цифре.
1 | Автор: kas | 2012-03-11, 08:36   |  Репутация: [ + 0 ]
1 | Автор: kas | 2012-03-11, 08:36   |  Репутация: [ + 0 ]
1.
var
x:integer;
y:real;
begin
read(x);
if x>0 then y:=sin(x)*2 else y:=1+2*sin(2*x);
writeln(y:2:2);
end.
2.
var
s,a,b,c,d:integer;
begin
s:=0;
readln(a,b,c,d);
if a<0 then s:=s+1;
if b<0 then s:=s+1;
if c<0 then s:=s+1;
if d<0 then s:=s+1;
writeln(s);
end.
3. Не понял задания
4. И что? Задание какое? Напиши пример ввода-вывода


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-03-11, 11:45   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » ребят помогите пожалуйста (очень нужна ваша помощь , надеюсь только на вас)
Страница 1 из 11
Поиск: