1)Напишите программу,которая принимает от пользователя два целых числа,затем их складывает и выводит результат. 2)Напишите программу (на Pascal или C++),которая выводит на экран 5 чисел,которые ввел пользователь и возводит их в квадрат.
// PascalABC.NET 3.0, сборка 1144 от 16.01.2016 type Point=record x,y:real end;
function GetPoint(c:char):Point; begin Writeln('Введите координаты точки ',c,':'); Read(Result.x,Result.y) end;
function Line(A,B:Point):real; begin Result:=sqrt(sqr(B.x-A.x)+sqr(B.y-A.y)) end;
function SqTriangle(pA,pB,pC:Point):real; begin var a:=Line(pB,pC); var b:=Line(pA,pC); var c:=Line(pA,pB); if (a+b>c) and (a+c>b) and (b+c>a) then begin var p:=(a+b+c)/2; Result:=sqrt(p*(p-a)*(p-b)*(p-c)) end else Result:=0 end;
begin var A:=GetPoint('A'); var B:=GetPoint('B'); var C:=GetPoint('C'); Writeln('Площадь треугольника равна ',SqTriangle(A,B,C)) end.
Тестовое решение: Введите координаты точки A: -5 3.18 Введите координаты точки B: 1.45 6.2 Введите координаты точки C: 6 -5.93 Площадь треугольника равна 45.98975
7:00 — Я просыпаюсь. Как всегда — не выспавшийся. 7:01 — Поднимаюсь. Иду в ванную умываться. 7:05 — Умываюсь. Иногда чищу зубы. 7:10 — Иду на кухню наливать чай. С утра я не завтракаю, пью чай без сахара и без всяких конфет, печений и т.д. 7:15 — Пью чай, смотрю новости по телевизору. 7:30 — Одеваюсь и собираюсь на занятия. 7:40 — Выхожу из дома и иду на остановку. Без наушников в ушах я редко выхожу из дома. Без них — день неудался 99%. 7:45 — Стою на остановке. Жду автобус № 6 или троллейбус № 5, что бы доехать до 3-ей Дачной. 7:50 — Еду. 8:00 — Стою на остановке на 3-ей Дачной. Теперь мне нужно сесть на маршрутку №81 или №86, или на автобус №18, 18д. 8:10 — Еду в техникум, слушаю музыку, сижу в ICQ (Мой номер, если что: 387-040-890) 8:30 — Приезжаю к техникуму. Обычно по пути с остановки захожу на 2-ую Садовую, на базар, чтобы купить Orbit Proffessional. 8:45 — Стою на крыльце техникума, либо, возле кабинета. 9.00 — Начало занятий. Первая пара. Обычно мне тяжело на первой паре, первую половину урока, о чем-нибудь думать в тему. 10:30 — Перемена. 10:40 — Начало второй пары. 12:10 — Перемена. 12:30 — Начало третьей пары. 14:00 — Окончание занятий. Иногда у нас есть четвертая пара. 14:15 — Еду домой. 15:00 — Приезжаю домой. Стараюсь сразу после приезда садиться за уроки. 18:00 — Залазию в Интернет 23:00 — Ложусь спать. Знаю, что завтра я опять проснусь не выспавшийся. И замкнутый круг продолжится…P.S. Вообще, это мой типичный день, когда у нас нет четвертой или нулевой пары. Иногда я вечером хожу гулять, но редко. Ну, вообщем, все.
Задание 1:
### Pr(RI+RI)Задание 2:
### RAI(5).Sel(x → x**2).Pr