IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> две простые задачи, помогите решить
happybeer
сообщение 14.10.2005 4:29
Сообщение #1





Группа: Пользователи
Сообщений: 3
Пол: Мужской

Репутация: -  0  +


Задача №1. Даны три действительных числа x, y, z. Найти среднее их арифметическое.

Задача №2. Определить площадь кольца, если заданы радиусы внешней и внутренней окружностей.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Dark_Snake
сообщение 14.10.2005 5:19
Сообщение #2


Новичок
*

Группа: Пользователи
Сообщений: 32
Пол: Мужской
Реальное имя: Сергей

Репутация: -  0  +


Решение задачи №2
R1 - внешнего кольца, R2 - внутреннего. Перепутаешь, будет лишь знаком отличаться.

...
S1:=pi*r1*r1;
S2:=pi*r2*r2;
S:=S1-s2;
...



--------------------
"Все что вы создаете, вы же и разрушаете.", В поисках разума.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Dark_Snake
сообщение 14.10.2005 5:23
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 32
Пол: Мужской
Реальное имя: Сергей

Репутация: -  0  +


Задача 1:


uses crt;
Var
x,y,z,s:=real;
begin
writeln('Введите последовательно три числа для подсчета');
readln(x);
readln(y);
readln(z);
s:=(x+y+z) / 3;
writeln('среднее арифметическое:',s);
readkey;
end.



--------------------
"Все что вы создаете, вы же и разрушаете.", В поисках разума.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
klem4
сообщение 14.10.2005 6:07
Сообщение #4


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Dark_Snake

1).Ты не боишься что во второй задаче можешь получить отрицательную площадь кольца ?
2). Ты быстрее соображаешь когда видишь результат в экспоненциальной форме ? rolleyes.gif

happy bear, ты всетаки правила решил не читать ... помнишь я вчера про фанеру тебе говорил ...

1. Заголовок темы должен быть информативным В противном случае тема удаляется

Цитата
две простые задачи


это информотивно ?

Сообщение отредактировано: klem4 - 14.10.2005 6:10


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Dark_Snake
сообщение 14.10.2005 6:10
Сообщение #5


Новичок
*

Группа: Пользователи
Сообщений: 32
Пол: Мужской
Реальное имя: Сергей

Репутация: -  0  +


Про площадь я писал. Кому не нравится может дописать туда ABS, а чем тебе экспонециальная форма не нравится????


--------------------
"Все что вы создаете, вы же и разрушаете.", В поисках разума.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
klem4
сообщение 14.10.2005 6:18
Сообщение #6


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Цитата(Dark_Snake @ 14.10.2005 7:10)
Кому не нравится может дописать туда ABS,

А тот кому нравится получит неуд при сдаче, потому что когда препод увидит S=-4.21, скажет "автор,убей себя"
Цитата
а чем тебе экспонециальная форма не нравится????

Ты можешь не задумываясь сказать чему равно 20.00124Е+09 или всеже проще смотерть на нормальный числа? Хотя конечно если тебе так больше нравится то на здоровье


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Dark_Snake
сообщение 14.10.2005 6:23
Сообщение #7


Новичок
*

Группа: Пользователи
Сообщений: 32
Пол: Мужской
Реальное имя: Сергей

Репутация: -  0  +


а про неуд при сдаче, я писал, что R1 - больший радиус, R2 - меньший

20.00124Е+09 = 20001240000 (точку обычно в другом месте ставят, после первой цифры)
Абсолютно не задумываясь

Сообщение отредактировано: Dark_Snake - 14.10.2005 6:29


--------------------
"Все что вы создаете, вы же и разрушаете.", В поисках разума.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 14.10.2005 8:57
Сообщение #8


Гость






Цитата(Dark_Snake @ 14.10.2005 5:10)
Про площадь я писал. Кому не нравится может дописать туда ABS

В таком случае, "кому не нравится писать РАБОТОСПОСОБНЫЕ программы, лучше пусть ВООБЩЕ их не пишет !!!"
 К началу страницы 
+ Ответить 
happybeer
сообщение 14.10.2005 10:37
Сообщение #9





Группа: Пользователи
Сообщений: 3
Пол: Мужской

Репутация: -  0  +


Спасибо всем, епрвую задачку я всетаки решил самастоятельно, но там выводится большое некрасивое число, ну как препад уччил пусть то и получает ) Со второй задачей еще не возился но всеравно спасибо, а про фанеру я не читал так как тему видимо зарезали перед моим приходом.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
klem4
сообщение 14.10.2005 12:34
Сообщение #10


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


страшные некрасивые числа это для крутых программистов, обычные программисты использую форматный вывод, исправь строчку

Код

writeln('среднее арифметическое:',s);


на
Код

writeln('среднее арифметическое:',s:5:2);
{5  позиций под число, 2 цыфры после запятой}


Сообщение отредактировано: klem4 - 14.10.2005 14:41


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 27.07.2025 8:29
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"