помогите пожалуйста решить задачки на языке паскаль

Новые сообщения · Правила

Страница 1 из 1 1
Модератор форума: 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 ]

закинул этот код себе в паскаль:
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 из 1
1

прикладная математика