Khrimyan1207
?>

Ввести 3 числа - стороны треугольника (причем третью сторону с проверкой и повторным вводом, если она не удовлетворяет условию найти высоту, проведенную к большей стороне. решить в паскале! ! !

Информатика

Ответы

vs617
Program abc;
var  a, b, c, d, h, s, p: real;
begin 
 writeln('Введите 3 стороны треугольника'); 
 readln(a); 
 readln(b); 
 readln(c); 
 if c > a + b then writeln('Ошибка! Одна сторона не может быть больше суммы двух других, введите третью сторону ещё раз или перезапустите программу и введите верные данные');
if c > a + b then readln(c);
if (a > b) and (a > c) then d := a  else if (b > c) then d := b else d := c;
p := (a + b + c) / 2;
s := sqrt(p * (p - a) * (p - b) * (p - c));
h := 2 * s / d;
writeln('Высота равна - '+h);end.
andrey
Var a, b, c, max, p, h : real;
begin
write('введите сторону а'); readln (a);
write('введите сторону b'); readln (b);
write('введите сторону c'); readln (c);

while ((c >a+b) or (a>b+c) or (b>a+c))
begin
write ('введите повторно сторону с');
readln (c);
end;

if (a>=b) and (a>=c) then max:=a
else if (b>=a) and (b>=c) then max:=b
else if if (c>=b) and (c>=a) then max:=c;

p:=(a+b+c)/2
h:= 2*sqrt (p*(p-a)*(p-b)*(p-c))/max;

writeln ('h= ',h);
end.
Anna Artem

Вся история развития человеческого общества связана с накоплением и обменом информацией (наскальная живопись, письменность, библиотеки, почта, телефон, радио, счеты и механические арифмометры и др.).

Коренной перелом в области технологии обработки информации начался после Второй мировой войны.

В вычислительных машинах первого поколения основными элементами были электронные лампы. Эти машины занимали громадные залы, весили сотни тонн и расходовали сотни киловатт электроэнергии. Их быстродействие и надежность были низкими, а стоимость достигала 500-700 тысяч долларов.

petrovichvit2933

#include "stdafx.h"

#include "iostream"

using namespace std;

int _tmain(int argc, _TCHAR* argv[])

{

setlocale(LC_ALL, "Russian");

const int SIZE = 10;

double arr[SIZE];

cout << "Введите " << SIZE << " чисел:" << endl;

for (int i=0; i<SIZE; i++)

cin >> arr[i];

int index = -1;

for (int i=SIZE-1; i>=0; i--)

if (arr[i] < 0)

{

index = i;

break;

}

if (index != -1)

{

int sum = 0;

for (int i=index+1; i<SIZE; i++)

sum = sum + arr[i];

cout << "Сумма " << sum << endl;

}

else

cout << "В массиве нет отрицательных элементов" << endl;

system("pause");

return 0;

}

3:

#include <iostream>

#include <cstdlib>

using namespace std;

#define n 10

int main(){

int mas[n], max = -9999;

cout<<"Before :";

for(int i = 0; i < n; i++){

mas[i] = rand()% 50 + 1;

cout<<mas[i]<<" ";

if(mas[i] > max)

max = mas[i];

}

double tmp = max - (max * 0.2);

cout<<endl<<"Max = "<<max<<" tmp = "<<tmp<<endl<<"After: ";

for(int i = 0; i < n; i++)

if(mas[i] >= tmp)

cout<<mas[i]<<" ";

for(int i = 0; i < n; i++)

if(!(mas[i] >= tmp))

cout<<mas[i]<<" ";

return 0;

}

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Ввести 3 числа - стороны треугольника (причем третью сторону с проверкой и повторным вводом, если она не удовлетворяет условию найти высоту, проведенную к большей стороне. решить в паскале! ! !
Ваше имя (никнейм)*
Email*
Комментарий*