| Статистика |
Онлайн всего: 1 Гостей: 1 Пользователей: 0 |
|
Страницы: « 1 2 ... 23 24 25 26 27 ... 32 33 »
Показано 361-375 из 487 сообщений
127.
Маша
(11.03.2005 15:41)
0  
Я попробовала решить, но что-то очень сомневаюсь относительно правильности.
1. (задачка о выпуклом четырехугольнике, который надо разбить на 2 треуг.)
Program K1;
var x1y1, x2y2,x3y3:integer;
A,B,C,D,S1,S2,S:real;
Function K(XaYb,XbYa:integer;var S:real):real;
begin
S1:=0,5*(x1y2+x2y3+x3y1-x1y3-x2y1-x3y2);
K:=S1;
K:=S2;
end;
Readln(x1y1,x2y2,x3y3);
S:=S1+S2;
Writeln(S);
end.
Исправьте пожалуйста мои ошибки.
Ответ: VAR
Ax,Ay,Bx,By,Cx,Cy,Dx,Dy:integer; {координаты вершин четырехугольника}
S:real; {его площадь }
{функция возвращает площадь любого треугльника
Ax,Ay - координаты первой вершины треугольника,
Bx,By - координаты второй вершины треугольника,
Cx,Cy - координаты третьей вершины треугольника}
FUNCTION GetS(const Ax,Ay,Bx,By,Cx,Cy:integer):real;
BEGIN
GetS:= ФОРМУЛА вычисления площади треугольника по координатам его вершин;
END;
BEGIN
writeln(''Введите координаты вершин четырехугольника:'');
writeln(''Вершина A с координатами:'');
write(''Ax = ''); readln(Ax);
writeln(''Вершина B с координатами:'');
write(''Bx = ''); readln(Bx);
writeln(''Вершина A с координатами:'');
write(''Cx = ''); readln(Cx);
writeln(''Вершина D с координатами:'');
write(''Dx = ''); readln(Dx);
S:=GetS(Ax,Ay,Bx,By,Cx,Cy) + GetS(Dx,Dy,Bx,By,Cx,Cy);
writeln(''Sabcd = '',S:4:2);
END.
|
126.
Vika
(10.03.2005 22:53)
0
Здравствуйте! Помогите решить задачу: Дана действительная квадратная матрица порядка n. Получить Х1Хn + Х2Хn-1 + ....+ ХnХ1, где Хn - наименьшее значение элементов n-й строки данной матрицы. Спасибо за помощь!Я исправила ошибку,в учебнике наверное была опечатка.
Ответ: Лично мне условие опять не понятно:(
Матрица квадратная, значит обращение к ее элементу будет в виде x[i,j],
а что найти так и не понятно...
|
125.
Вера
(10.03.2005 19:30)
0
Еще раз спасибо, но не могу открыть страницу - сервер не обнаруживается
|
124.
Вера
(10.03.2005 19:28)
0
Спасибо за участие!
|
123.
Васёк
(10.03.2005 01:57)
0
срочно нужно найти : "обработка одномерного масива"+"методы сортировки". ПОЖАЛУЙСТА!!!!!
Ответ: www.Yandex.ru - это знают все!
|
122.
Вера
(09.03.2005 20:48)
0
Здравствуйте! Поможите решить задачи, ради бога:
1. Составить программу рисования расширяющихся прямоугольников на экране.
2. Составить программу работы светофора. (Прямоугольник , в нем три окружности, которые меняют цвет, показывая работу светофора.)
Ответ: http:www.pascalstudy.narod.ruish.html#rect
|
121.
Маша
(09.03.2005 16:59)
0
Помогите решить 2 задачки,а то я вообще не врубаюсь.
1.Имеет место следующий геометрический факт.Если координаты вершин треугольника(х1;у2),(х2;у2),(х3;у3),то S равна+0,5(х1у2+х2у2+х3у3)-ч1у3-х2у1-х3у2). Используя это, составить программу S выпуклого чеырехугольника ABCD.
2.Футболист ударом ноги посылает мяч вертикально вверх с h=1м и с скоростью начальной 20 м/с.На какой высоте мяч будет через 1 сек(3,4). Вычисление оформить в виде процедуры или функции.
Заранее пребольшое спасибо.
Ответ: =1=
Разбей четырехугольник ABCD на два треугольника и найди сумму площади этих треугольников.
=2=
Аналогично примеру 05.02.2005 16:33 (ищи ниже).
|
120.
Vika
(08.03.2005 23:02)
0
Здравствуйте! Пожалуйста, помогите решить задачу: Дана действительная квадратная матрица порядка n. Получить Х1Хn + Х2Хn-1 + ... + ХnХ1, где Хk-наименьшее значение элементов k-строки данной матрицы.
Ответ: где Хk-наименьшее значение...
Вот именно ГДЕ его нужно использовать?
|
119.
Админ
(07.03.2005 21:36)
0
ВНИМАНИЕ!!!
Кавычки во всех примерах одинарные.
|
118.
Маша
(02.03.2005 18:44)
0
Интересно администратор этого сайта на него вообще заходит или
Ответ: ...ИЛИ заходит когда может:)
Сессия закончилась! Каникулы начались, но компютер закончился и инет закончился%(
......... время шло............
Каникулы закончились...%)
|
117.
Денис
(02.03.2005 01:05)
0
ЛЮДИ, ПОМОГИТЕ ПОЖАЛУЙСТА РЕШИТЬ ЗАДАЧУ:
Составить алгоритм и программу определения длинны никельного провода диаметром d который используется для изготовления реостата, имеющего сопротивление R. Удельное сопротивление никелина p = 0,42 Ом•мм2/м
ОЧЕНЬ СРОЧНО НАДО...
НАДЕЮСЬ КТО НИБУДЬ ОТКЛИКНИТСЯ.
Ответ: var
d,r,L:real; {диаметр, сопротивление, длина}
const
p=0,42; {удельное сопротивление никелина}
BEGIN
write(''Введите диаметр провода: '');
readln(d);
write(''Введите сопротивление реостата: '');
readln(r);
L:= ФОРМУЛА;
writeln(''Длина провода = '', L:3:1);
END.
|
116.
Чел с матфака.
(24.02.2005 08:53)
0
Помогите решить задачу на подпрограммы. Составить процедуру сжатия исходной последовательности, состоящую из нескольких вхождений одного и того же символа, заминяется на текст х[k], где х - символа k - число вхождений символа х в подстроку исходной последовательности.
|
115.
Vika
(19.02.2005 19:11)
0
Здравствуйте! Пожалуйста, помогите решить задачу :Дано натуральное K.НапечататьK-ю цифру последовательности 1 2 3 4 5 6 7 8 9 10 11 12 13..., в которой выписаны подряд все натуральные числа.
Ответ: var
k:byte;
const
n:array[1..13]of byte=(1,2,3,4,5,6,7,8,9,10,11,12,13);
BEGIN
write(''Введите K='');
readln(k);
writeln(k,''-ая цифра = '',n[k]);
END.
|
114.
Любаша
(16.02.2005 20:59)
0
Здраствуйте! Пожалуйста, помогите решить задачу: дана вещественная квадратная матрица 5-ого порядка. Преобразовать её, заменив элементы вторстепенной диагонали суммами модулей элементов соответствующих столбцов. В программе использовать функцию, вычисляющую суммы модулей элементов заданного столбца, и процедуру, моделирующую исходную матрицу по заданному правилу.
|
113.
Маша
(05.02.2005 16:33)
0
Мне нужно помочь решить задачку.
2 спорстмена одновременно начинают двигаться из одной точки. 1-ый спортсмен начинает движение со скоростью v=10км/ч,a=1 км/ч(ускорение), 2-ой со скоростью 9км/ч и ускорением 1,6 км/ч. Выяснить,какой спортсмен преодолеет больший путь через 1 час;и через 4 часа. Желательно не называть одной и той же буквой фактические и формальные параметры, чтобы не запутаться.Вычисление пути по формуле S=Vt + at(квадрат)/2 оформить в виде процедуры или функции.
Ответ: {
v-скорость,
t-время,
a-ускорение
Функция GetS возвращает пройденный путь.
}
FUNCTION GetS(const v,t,a:real):real;
BEGIN
GetS:=v*t+a*sqt(t)/2;
END;
BEGIN
writeln('' Первый спортсмен за 1 час пройдет: '', GetS(10,1,1):3:1, '' км.'');
writeln('' Второй спортсмен за 1 час пройдет: '', GetS(9,1,1+6/10):3:1, '' км.'');
writeln('' Первый спортсмен за 4 часа пройдет: '', GetS(10,4,1):3:1, '' км.'');
writeln('' Второй спортсмен за 4 часа пройдет: '', GetS(9,4,1+6/10):3:1, '' км.'');
END.
{
GetS(9,1,1+6/10) => 1+6/10 тоже что и 1,6
чтобы не мучаться и не вводить переменные т.к вот так записать нельзя: GetS(9,1,1,6)
}
|
|
|
|
