Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 16.04.2009, 16:21   #1 (permalink)
CnuHorpbl3
Новичок
 
Регистрация: 16.04.2009
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помогите с задачами на паскале. срочно

Здравствуйте. Помогите пожалуйста с задачами на паскале. очень срочно нужно сдать, а не знаю как сделать.

Задача 1. (с приминением функций и процедур)
В последовательности чисел вычислить сумму, разность, произведение и отношение между максимальным и минимальным элементами.

и задача 2
Вычислить площадь треугольника со сторонами a,b,c по формуле Герона, проверив условие корректности исходных данных (длины всех сторон положительны, сумма длин любых двух сторон больше длины третьей), проверить алгоритм при a = 2.64, b= 7.34, c = 6.23.


ОГРОМНОЕ СПАСИБО
CnuHorpbl3 вне форума   Ответить с цитированием

Старый 16.04.2009, 16:21
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Участники нашего форума создавали похожие тем ранее

Помогите срочно пожалуйста.
Паскаль. Помогите срочно

Старый 16.04.2009, 17:23   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,874
Сказал(а) спасибо: 318
Поблагодарили 542 раз(а) в 183 сообщениях
Репутация: 101510
По умолчанию

Цитата:
Сообщение от CnuHorpbl3 Посмотреть сообщение
Здравствуйте. Помогите пожалуйста с задачами на паскале. очень срочно нужно сдать, а не знаю как сделать.

Задача 1. (с приминением функций и процедур)
В последовательности чисел вычислить сумму, разность, произведение и отношение между максимальным и минимальным элементами.

и задача 2
Вычислить площадь треугольника со сторонами a,b,c по формуле Герона, проверив условие корректности исходных данных (длины всех сторон положительны, сумма длин любых двух сторон больше длины третьей), проверить алгоритм при a = 2.64, b= 7.34, c = 6.23.


ОГРОМНОЕ СПАСИБО
Уж и не знаю, куда тут засунуть процедуры и функции, а по-простому так:

CONST
N=10;
VAR
a:ARRAY [1..N] of REAL;
i:INTEGER;
Min, Max:REAL;
BEGIN
Randomize;
FOR i:=1 TO N DO
a[i]:=(Random-0.5)*10;
Min:=6;
Max:=-6;
FOR i:=1 TO N DO
BEGIN
IF a[i]<Min THEN Min:=a[i];
IF a[i]>Max THEN Max:=a[i];
END;
WriteLN('Sum = ', Min+Max:8:5);
WriteLN('Difference = ', Max-Min:8:5);
WriteLN('Product = ', Min*Max:8:5);
WriteLN('Ratio (Min/Max) = ', Min/Max:8:5);
READLN;
End.

VAR
a,b,c,p,S:REAL;
BEGIN
Write('a = '); Readln(a);
Write('b = '); Readln(b);
Write('c = '); Readln(c);
p:=(a+b+c)/2;
S:=p*(p-a)*(p-b)*(p-c);
IF S<0 THEN
WriteLn('Initial values are incorrect!') ELSE
Writeln('S = ', SQRT(S):10:5);
READLN;
END.
Vladimir_S вне форума   Ответить с цитированием
Старый 17.04.2009, 20:21   #3 (permalink)
ummasha
Member
 
Аватар для ummasha
 
Регистрация: 24.12.2008
Сообщений: 419
Записей в дневнике: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1311
По умолчанию

Насчет второй задачи: туда ведь можно добавить проверку положительности сторон треугольника:
VAR
a,b,c,p,S:REAL;
BEGIN
Write('a = '); Readln(a);
Write('b = '); Readln(b);
Write('c = '); Readln(c);
If (a>0)and(b>0)and(c>0) then
begin
p:=(a+b+c)/2;
S:=p*(p-a)*(p-b)*(p-c);
IF S<0 THEN WriteLn('Initial values are incorrect!')
ELSE Writeln('S = ', S:10:5);
READLN;
end
else WriteLn('Initial values are incorrect!')
END.
ummasha вне форума   Ответить с цитированием
Старый 17.04.2009, 21:27   #4 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,874
Сказал(а) спасибо: 318
Поблагодарили 542 раз(а) в 183 сообщениях
Репутация: 101510
По умолчанию

Цитата:
Сообщение от ummasha Посмотреть сообщение
Насчет второй задачи: туда ведь можно добавить проверку положительности сторон треугольника:
VAR
a,b,c,p,S:REAL;
BEGIN
Write('a = '); Readln(a);
Write('b = '); Readln(b);
Write('c = '); Readln(c);
If (a>0)and(b>0)and(c>0) then
begin
p:=(a+b+c)/2;
S:=p*(p-a)*(p-b)*(p-c);
IF S<0 THEN WriteLn('Initial values are incorrect!')
ELSE Writeln('S = ', S:10:5);
READLN;
end
else WriteLn('Initial values are incorrect!')
END.
Да... и впрямь - проверку положительности я как-то пропустил... видимо интуитивно полагая, что ввести отрицательное значение стороны треугольника можно только с очень тяжелого бодуна. Но раз требуют... Спасибо, Маша, что поправили.

P.S. Ой, сейчас заметил. Маша, Вы неверно набили строку
ELSE Writeln('S = ', S:10:5);
Надо как у меня:
ELSE Writeln('S = ', SQRT(S):10:5);
В формуле Герона произведение четырех биномов сидит под корнем.

Последний раз редактировалось Vladimir_S; 17.04.2009 в 21:31
Vladimir_S вне форума   Ответить с цитированием
Старый 17.04.2009, 21:58   #5 (permalink)
ummasha
Member
 
Аватар для ummasha
 
Регистрация: 24.12.2008
Сообщений: 419
Записей в дневнике: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1311
По умолчанию

Цитата:
Сообщение от Vladimir_S Посмотреть сообщение
P.S. Ой, сейчас заметил. Маша, Вы неверно набили строку
ELSE Writeln('S = ', S:10:5);
Надо как у меня:
ELSE Writeln('S = ', SQRT(S):10:5);
В формуле Герона произведение четырех биномов сидит под корнем.
Тоже заметила только сейчас. Спасибо за замечание. Сейчас исправлю
ummasha вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 05:41.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.