Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » помогите пожалуйста решить задачки на языке паскаль
помогите пожалуйста решить задачки на языке паскаль
Даны действительные числа a, b, c, d. Если a≤ b ≤ c ≤ d, то
каждое число заменить наибольшим из них; если a>b>c>d, то оставить
без изменения; в противном случае все числа заменяются их
квадратами.


Московский
1 | Автор: Dimazik | 2012-12-10, 17:51   |  Репутация: [ + 0 ]
var
max, a, b, c ,d:integer;
begin
read(a,b,c,d);
if (a<=b) and (b<=c) and (c<=d) then begin
a:=d;
b:=d;
c:=d;
writeln(a,' ',b,' ',c,' ',d);end
else
if (a > b) and (b > c) and (c > d) then
writeln(a,' ',b,' ',c,' ',d) else
begin
a:= a*a;
b:=b*b;
c:=c*c;
d:=d*d;
writeln(a,' ',b,' ',c,' ',d);end;
end.

"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ).Спасибо


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-12-10, 19:04   |  Репутация: [ + 211 ]


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-12-10, 19:04   |  Репутация: [ + 211 ]
Здравствуйте, подскажите, пожалуйста, почему в результате работы программы d и S равны 0?
Program intyuc;
var
r:integer;
d,Pi,S:real;
begin
r:=800;
d:=2*Pi*r;
S:=Pi*Sqr®;
Writeln ('radius kruga=', r);

Writeln ('dlina okrugnosti=', d:8:5);

Writeln ('ploschad kruga=', S:8:5);

Readln
end.

Добавлено (11.12.12, 09:11)
---------------------------------------------
Упс, Пи не надо было в раздел переменных записывать. Но, почему площадь тогда получается отрицательное число?

3 | Автор: hummel | 2012-12-11, 09:11   |  Репутация: [ + 0 ]
Видимо в диапазон не влазит real`a

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
4 | Автор: Berestovskiy | 2012-12-11, 11:24   |  Репутация: [ + 211 ]
Если радиус уменьшить, до 80, всё норм работает. Но в задаче радиус 800 задан, чо делать то?
5 | Автор: hummel | 2012-12-11, 12:16   |  Репутация: [ + 0 ]
Я же говорю, что в диапазон не влазит
Может ты перепутал sqr с sqrt?))


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
6 | Автор: Berestovskiy | 2012-12-11, 18:26   |  Репутация: [ + 211 ]
Sqr - возведение в квадрат, например Sqr (2) это 4,

Sqrt - корень квадратный , например Sqrt (4) это 2. Правильно, или нет?

По другому записываю в программе: S= Pi*r*r; ну и всё нармуль, а с этим Sqr хрень получается.
7 | Автор: hummel | 2012-12-12, 05:48   |  Репутация: [ + 0 ]
7 | Автор: hummel | 2012-12-12, 05:48   |  Репутация: [ + 0 ]
закинул этот код себе в паскаль:
var
r:integer;
d,S:real;
begin
r:=800;
d:=2*Pi*r;
S:=Pi*Sqr®;
Writeln ('radius kruga=', r);
Writeln ('dlina okrugnosti=', d:8:5);
Writeln ('ploschad kruga=', S:8:5);
Readln
end.

Получил такой ответ:
radius kruga=800
dlina okrugnosti=5026.54825
ploschad kruga=2010619.29830

где там у тебя отрицательное число получается - не пойму..))


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
8 | Автор: Berestovskiy | 2012-12-12, 10:19   |  Репутация: [ + 211 ]
Это скорее на бред смахивает, но там действительно минус и другое число, могу скрин скинуть на почту. Меня уже трясёт от этой площади круга)) Ну его нафиг, другой прогой займусь. Спс за помощь.
Я ещё вернусь))
9 | Автор: hummel | 2012-12-12, 11:26   |  Репутация: [ + 0 ]
Не стоит, мне не столь интересно..))
ок)


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