02.04.2010, 14:28
|
|
Постоянный
Регистрация: 06.01.2010
Сообщений: 785
С нами:
8602291
Репутация:
256
|
|
EndLeSSDre@M у меня как бы тоже самое. Или я ошибаюсь?
|
|
|
02.04.2010, 14:30
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
С нами:
8850305
Репутация:
259
|
|
Сообщение от CyberHunter
EndLeSSDre@M у меня как бы тоже самое. Или я ошибаюсь?
ну я через циклы решил попробовать сделать) чтоб в случае ошибки, был возможен новый ввод, а не закрытие программы
|
|
|
|
02.04.2010, 14:29
|
|
Новичок
Регистрация: 21.10.2009
Сообщений: 27
С нами:
8713408
Репутация:
16
|
|
wagen, уже имеешь 3 варианта и все похожи))
|
|
|
|
02.04.2010, 14:32
|
|
Постоянный
Регистрация: 06.01.2010
Сообщений: 785
С нами:
8602291
Репутация:
256
|
|
ну я через циклы решил попробовать сделать) чтоб в случае ошибки, был возможен новый ввод, а не закрытие программы
Хотел спросить, а в паскале можно вот так делать
Код:
sk:=pi*rk^2;
so:=pi*ro^2;
Ну типа вот так: ^ в степень поднимать?
|
|
|
|
02.04.2010, 14:33
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
С нами:
8850305
Репутация:
259
|
|
Сообщение от CyberHunter
Хотел спросить, а в паскале можно вот так делать
Код:
sk:=pi*rk^2;
so:=pi*ro^2;
Ну типа вот так: ^ в степень поднимать? ммм... не помню))) ну щас через sqr() сделаю))
переделал))) ++тебе за нахождение косяка))
Swat2k и вообще на сколько я помню, мне Soherox говорил, что константа Pi по умолчанию там есть, и ее не обязательно делать... ну может я че то путаю, поэтому не буду переделывать
Последний раз редактировалось EndLeSSDre@M; 02.04.2010 в 14:36..
|
|
|
|
02.04.2010, 14:35
|
|
Новичок
Регистрация: 12.09.2007
Сообщений: 14
С нами:
9822178
Репутация:
2
|
|
Раз тут все вариантами мерюются , то вот мой вариант ))
Код:
var
s1,s2:real;
begin
writeln('#########################');
write('R (kolca) = ');
readln(s2);
write('R (otverstia) = ');
readln(s1);
if (s1>=s2) then writeln('Error : R(otverstia) >= R(kolca)')
else writeln('S (kolca) = ',pi*(s2*s2-s1*s1):3:3);
end.
Последний раз редактировалось Swat2k; 02.04.2010 в 14:37..
|
|
|
|
02.04.2010, 14:36
|
|
Познающий
Регистрация: 17.02.2010
Сообщений: 45
С нами:
8542140
Репутация:
47
|
|
Вот отлаженная и исправленная версия EndLeSSDre@M
PHP код:
type
real = extended;
var
so,sk,s,rk,ro: real;
ok: boolean;
begin
ok:=false;
while not ok do
begin
writeln('vvedide radius colca');
readln(rk);
writeln('vvedide radius otverstia');
readln(ro);
if rk<=ro then writeln('ne vernij vvod')
else
begin
sk:=pi*sqr(rk);
so:=pi*sqr(ro);
s:=sk-so;
writeln('Ploshad=',s:0:3);
ok:=true;
end;
end;
readln;
end.
В Паскале ^ нельзя использовать, так же в константу пихать pi не нужно, она и так есть  |
|
|
|
02.04.2010, 14:38
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
С нами:
8850305
Репутация:
259
|
|
Soherox Редиска ты))) я обиделся))) про ^ уже понял и переделал))) про константу запамятовал))) и все равно ты редиска))) 
и вообще надо уже научиться мне в лесенку делать код))) а то у тебя больно элегантно выглядит)
и вообще, если люди не могут решить задачи такой сложности, то че тут говорить о будущих программистах((( даже обидно как то 
Последний раз редактировалось EndLeSSDre@M; 02.04.2010 в 14:48..
|
|
|
|
02.04.2010, 14:43
|
|
Новичок
Регистрация: 12.09.2007
Сообщений: 14
С нами:
9822178
Репутация:
2
|
|
На счёт pi , да запамятовал , бывает  |
|
|
|
03.04.2010, 01:08
|
|
Участник форума
Регистрация: 20.02.2009
Сообщений: 183
С нами:
9063843
Репутация:
50
|
|
первая, проверяет вводимые числа на четность, если число не четное, ломает цикл.
Код:
program ddd;
uses crt;
var i,n,sum,t:integer;
begin clrscr;
write('Vvedite kol-vo: ');
read(n);
for i:=1 to n do
begin
write('Vvedite 4islo nomer ',i,': ');
readln(t);
if odd(t)=false then
sum:=sum+t
else
begin
writeln('4islo ',t,' ne 4etnoe');
break;
end;
end;
writeln('Suma 4isel = ',sum);
readkey
end.
Последний раз редактировалось warkk; 03.04.2010 в 01:15..
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид
