Вся история развития человеческого общества связана с накоплением и обменом информацией (наскальная живопись, письменность, библиотеки, почта, телефон, радио, счеты и механические арифмометры и др.).
Коренной перелом в области технологии обработки информации начался после Второй мировой войны.
В вычислительных машинах первого поколения основными элементами были электронные лампы. Эти машины занимали громадные залы, весили сотни тонн и расходовали сотни киловатт электроэнергии. Их быстродействие и надежность были низкими, а стоимость достигала 500-700 тысяч долларов.
#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 числа - стороны треугольника (причем третью сторону с проверкой и повторным вводом, если она не удовлетворяет условию найти высоту, проведенную к большей стороне. решить в паскале! ! !
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.