30.06.2009, 23:39
|
|
Участник форума
Регистрация: 28.02.2007
Сообщений: 151
Провел на форуме:
323494
Репутация:
74
|
|
Сообщение от phantom007
Помогите написать прогу для расчета на делфи площадь окружности.
Заранее спасибо. 
Жду Вашей помощи!
если я правильно тебя понял, то это будет выглядеть примерно так:
var
R:real;//переменная с радиусом
P:real;//число Пи
S:real;//площадь
begin
R:=значение радиуса;
P:=3.14;
S:=P*R^2;//вычисляем площадь
end;
а вообще площади окружности не бывает, бывает длинна окружности и площадь круга...
|
|
|
06.07.2009, 23:44
|
|
Он хакер.
Регистрация: 01.11.2008
Сообщений: 1,756
Провел на форуме:
6462214
Репутация:
3171
|
|
Сообщение от NightJack
если я правильно тебя понял, то это будет выглядеть примерно так:
var
R:real;//переменная с радиусом
P:real;//число Пи
S:real;//площадь
begin
R:=значение радиуса;
P:=3.14;
S:=P*R^2;//вычисляем площадь
end;
а вообще площади окружности не бывает, бывает длинна окружности и площадь круга...
А это не паскаль? А он проил на дельфе)
|
|
|
|
27.06.2009, 17:57
|
|
Новичок
Регистрация: 27.12.2007
Сообщений: 19
Провел на форуме:
722949
Репутация:
21
|
|
1. Описать шаблон функции, формирующий массив, каждый элемент которого равен минимальному из соответствующих значений двух других массивов- параметров.
2. Описать класс "окружность", содержащий данные о координатах центра окружности, ее радиусе и цвете. Предусмотреть компонентные функции получения каждого данного по отдельности, рисования, стирания, переноса окружности, изменения её радиуса и цвета.
3. Описать класс "время". Компонентные данные часы, минуты, секунды.Перегрузить операции: >>,<<(вывод в формате чч/мм/сс), !=(проверка на неравенство), - (промежуток между двумя событиями в часах, минутах, секундах)
4. Первый базовый класс - библиотека. Второй базовый класс система УДК или ключевых слов. Производные классы - художественная литература.
5. Необходимо разработать шаблон соответствующего класса, где поля могут иметь различные типы данных(некоторые поля могут быть статическими). Предусмотреть наличие в классе указанных методов и перегруженных оепраций.
Название класса
точка
Поля
координаты, цвет
Методы
Нарисовать, стереть, переместить
перегружаемые операции
бинарный - (расстояние между точками)-=(уменшить каждую координату)
6. Необходимо создать три массива a,b,c размерами n1,n2,n3 соответетсвенно(неравные друг другу). В массив а занести значения функций f(x) согласно варианту(при возникновении исключений заносить нули). Массив b заполнить случайными числами (среди них должны быть и отрицательные и нули). Массив с формируется согласно варианту. Предусмотреть и обработать возникающие при этом исключительные ситуации (деление на ноль, корень из отрицательного числа, арифметическое переполнение, выход за пределы диапазона индексов массива и т.п.)
lg((x-1)/(x+1)), x принадлежит [-3;7], дельта х=0.5
7. Дан текст. Группы символов, разделенные пробелами и не содержащие пробелы внутри себя, будем считать словами. Напечатать эти слова в алфавитном порядке.
8. Дана очередь данных о клиентах пункта проката автомобилей: ФИО, адрес(улица, дом, квартира) и марка машины. Во второй массив записать отсортированные по алфавиту данные тольо тех людей, кто ездит на "Audi".
|
|
|
|
24.06.2009, 21:50
|
|
Banned
Регистрация: 10.05.2009
Сообщений: 3
Провел на форуме:
51366
Репутация:
10
|
|
Помогите пожалуйста с лабараторной работой, язык - PASCAL
Вот первый пример:
Вот второй пример (там в знаменателе модуль)
Заранеие спасибо, завтра уже нужно сдавать, выручайте |
|
|
|
24.06.2009, 22:12
|
|
Постоянный
Регистрация: 15.06.2008
Сообщений: 941
Провел на форуме:
5111568
Репутация:
2399
|
|
Код:
var y,x:real;
begin
x := 1.23;
y := sin(sqrt(x*x+0,1))+pow(e,x);
end;
Код:
var z,x,y:real;
x := 1,23; y := 4,56;
z:= (x*x*y + y*y*x + ln(x)) / (4 * abs(sin(x/3) + sqrt(y) ) );
pow для pascal :
Код:
function pow(A,B:real):real;
Var T:Real;
Begin
T := Abs(A);
If A < 0 Then Pow := (-1)*Exp(B*Ln(T))
Else Pow := Exp(B*Ln(T));
End;
|
|
|
|
24.06.2009, 22:44
|
|
Banned
Регистрация: 10.05.2009
Сообщений: 3
Провел на форуме:
51366
Репутация:
10
|
|
Сообщение от eLWAux
Код:
var y,x:real;
begin
x := 1.23;
y := sin(sqrt(x*x+0,1))+pow(e,x);
end;
Код:
var z,x,y:real;
x := 1,23; y := 4,56;
z:= (x*x*y + y*y*x + ln(x)) / (4 * abs(sin(x/3) + sqrt(y) ) );
pow для pascal :
Код:
function pow(A,B:real):real;
Var T:Real;
Begin
T := Abs(A);
If A < 0 Then Pow := (-1)*Exp(B*Ln(T))
Else Pow := Exp(B*Ln(T));
End;
А есть различия между паскалем и турбо паскалем??
У нас просто турбо паскаль, а я ступила и написала просто паскаль...
И почему у тебя числа x и у уже заданны?
И что такое "pow для pascal " ?
|
|
|
|
25.06.2009, 15:43
|
|
Участник форума
Регистрация: 28.02.2007
Сообщений: 151
Провел на форуме:
323494
Репутация:
74
|
|
- А есть различия между паскалем и турбо паскалем??
Нет
А функция pow описывается отдельно, eLWAux использовал её для решения первого уравнения
|
|
|
|
27.06.2009, 16:13
|
|
Новичок
Регистрация: 27.12.2007
Сообщений: 19
Провел на форуме:
722949
Репутация:
21
|
|
1. описать шаблон функции, формирующий массив, каждый элемент которого равен минимальному из соответствующих значений двух массивов - параметров.
награду кину в лс решевшиму..
|
|
|
|
27.06.2009, 17:18
|
|
Постоянный
Регистрация: 09.06.2005
Сообщений: 531
Провел на форуме:
3516666
Репутация:
439
|
|
Сообщение от Вуte
1. описать шаблон функции, формирующий массив, каждый элемент которого равен минимальному из соответствующих значений двух массивов - параметров.
награду кину в лс решевшиму..
типа этого
правильность не гарантирую
Код:
template<class T> *T min(T* a, T* b, int size) {
T result [size] ;
for(int i = 0 ; i < size ; i++)
if(a[i] >= b[i])
result[i] = b[i];
else
result[i] = a[i];
return result;
}
Последний раз редактировалось BrainDeaD; 27.06.2009 в 17:25..
|
|
|
|
27.06.2009, 23:21
|
|
Новичок
Регистрация: 27.12.2007
Сообщений: 19
Провел на форуме:
722949
Репутация:
21
|
|
срочно
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид
