|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
16.04.2009, 16:21 | #1 (permalink) |
Новичок
Регистрация: 16.04.2009
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите с задачами на паскале. срочно
Задача 1. (с приминением функций и процедур) В последовательности чисел вычислить сумму, разность, произведение и отношение между максимальным и минимальным элементами. и задача 2 Вычислить площадь треугольника со сторонами a,b,c по формуле Герона, проверив условие корректности исходных данных (длины всех сторон положительны, сумма длин любых двух сторон больше длины третьей), проверить алгоритм при a = 2.64, b= 7.34, c = 6.23. ОГРОМНОЕ СПАСИБО |
16.04.2009, 16:21 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Участники нашего форума создавали похожие тем ранее Помогите срочно пожалуйста. Паскаль. Помогите срочно |
16.04.2009, 17:23 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
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. |
|
17.04.2009, 20:21 | #3 (permalink) |
Member
Регистрация: 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. |
17.04.2009, 21:27 | #4 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
P.S. Ой, сейчас заметил. Маша, Вы неверно набили строку ELSE Writeln('S = ', S:10:5); Надо как у меня: ELSE Writeln('S = ', SQRT(S):10:5); В формуле Герона произведение четырех биномов сидит под корнем. Последний раз редактировалось Vladimir_S; 17.04.2009 в 21:31 |
|
17.04.2009, 21:58 | #5 (permalink) |
Member
Регистрация: 24.12.2008
Сообщений: 419
Записей в дневнике: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1311
|
Тоже заметила только сейчас. Спасибо за замечание. Сейчас исправлю
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|