Задача №1. Даны три действительных числа x, y, z. Найти среднее их арифметическое.
Задача №2. Определить площадь кольца, если заданы радиусы внешней и внутренней окружностей.
 две простые задачи, помогите решить |
Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
  |
| happybeer |
Сообщение
#1
|
|
Группа: Пользователи Сообщений: 3 Пол: Мужской Репутация:  0   |
|
   |
 
|
| Dark_Snake |
Сообщение
#2
|
 Новичок  Группа: Пользователи Сообщений: 32 Пол: Мужской Реальное имя: Сергей Репутация: 0 |
Решение задачи №2
R1 - внешнего кольца, R2 - внутреннего. Перепутаешь, будет лишь знаком отличаться.
...
S1:=pi*r1*r1;
S2:=pi*r2*r2;
S:=S1-s2;
...
-------------------- "Все что вы создаете, вы же и разрушаете.", В поисках разума.
|
|
|
|
| Dark_Snake |
Сообщение
#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.
-------------------- "Все что вы создаете, вы же и разрушаете.", В поисках разума.
|
|
|
|
| klem4 |
Сообщение
#4
|
 Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Dark_Snake
1).Ты не боишься что во второй задаче можешь получить отрицательную площадь кольца ? 2). Ты быстрее соображаешь когда видишь результат в экспоненциальной форме ?  happy bear, ты всетаки правила решил не читать ... помнишь я вчера про фанеру тебе говорил ... 1. Заголовок темы должен быть информативным В противном случае тема удаляется Цитата две простые задачи это информотивно ? Сообщение отредактировано: klem4 - -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
| Dark_Snake |
Сообщение
#5
|
|
Новичок Группа: Пользователи Сообщений: 32 Пол: Мужской Реальное имя: Сергей Репутация: 0 |
Про площадь я писал. Кому не нравится может дописать туда ABS, а чем тебе экспонециальная форма не нравится????
-------------------- "Все что вы создаете, вы же и разрушаете.", В поисках разума.
|
|
|
|
| klem4 |
Сообщение
#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";'
|
|
|
|
| Dark_Snake |
Сообщение
#7
|
|
Новичок Группа: Пользователи Сообщений: 32 Пол: Мужской Реальное имя: Сергей Репутация: 0 |
а про неуд при сдаче, я писал, что R1 - больший радиус, R2 - меньший
20.00124Е+09 = 20001240000 (точку обычно в другом месте ставят, после первой цифры) Абсолютно не задумываясь Сообщение отредактировано: Dark_Snake - -------------------- "Все что вы создаете, вы же и разрушаете.", В поисках разума.
|
|
|
|
| volvo |
Сообщение
#8
|
|
Гость |
Цитата(Dark_Snake @ 14.10.2005 5:10) Про площадь я писал. Кому не нравится может дописать туда ABS В таком случае, "кому не нравится писать РАБОТОСПОСОБНЫЕ программы, лучше пусть ВООБЩЕ их не пишет !!!" |
|
|
|
| happybeer |
Сообщение
#9
|
|
Группа: Пользователи Сообщений: 3 Пол: Мужской Репутация: 0 |
Спасибо всем, епрвую задачку я всетаки решил самастоятельно, но там выводится большое некрасивое число, ну как препад уччил пусть то и получает ) Со второй задачей еще не возился но всеравно спасибо, а про фанеру я не читал так как тему видимо зарезали перед моим приходом.
|
|
|
|
| klem4 |
Сообщение
#10
|
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
страшные некрасивые числа это для крутых программистов, обычные программисты использую форматный вывод, исправь строчку
Код writeln('среднее арифметическое:',s); на Код writeln('среднее арифметическое:',s:5:2); {5 позиций под число, 2 цыфры после запятой} Сообщение отредактировано: klem4 - -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 18.04.2025 20:58 |
Связь с администрацией: bu_gen в домене octagram.name