|
помогите пожалуйста решить задачки на языке паскаль
|
|
Даны действительные числа a, b, c, d. Если a≤ b ≤ c ≤ d, то
каждое число заменить наибольшим из них; если a>b>c>d, то оставить
без изменения; в противном случае все числа заменяются их
квадратами.
Московский
|
|
|
|
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
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Здравствуйте, подскажите, пожалуйста, почему в результате работы программы 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)
---------------------------------------------
Упс, Пи не надо было в раздел переменных записывать. Но, почему площадь тогда получается отрицательное число?
|
|
|
|
Видимо в диапазон не влазит real`a
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
Если радиус уменьшить, до 80, всё норм работает. Но в задаче радиус 800 задан, чо делать то?
|
|
|
|
Я же говорю, что в диапазон не влазит
Может ты перепутал sqr с sqrt?))
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Sqr - возведение в квадрат, например Sqr (2) это 4,
Sqrt - корень квадратный , например Sqrt (4) это 2. Правильно, или нет?
По другому записываю в программе: S= Pi*r*r; ну и всё нармуль, а с этим Sqr хрень получается.
|
|
|
|
закинул этот код себе в паскаль:
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
|
|
|
|
Это скорее на бред смахивает, но там действительно минус и другое число, могу скрин скинуть на почту. Меня уже трясёт от этой площади круга)) Ну его нафиг, другой прогой займусь. Спс за помощь.
Я ещё вернусь))
|
|
|
|
Не стоит, мне не столь интересно..))
ок)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
