У вашого двоюрідного брата скоро день народження – йому виповниться 7 років. Його батьки звернулися до вас за до у створенні кошторису для проведення дитячого свята. Брат хотів би запросити 11 друзів. Пригощати гостей заплановано вдома двома видами тістечок, соком і морозивом, які можна придбати в одному із супермаркетів. Кімнату можна прикрасити повітряними кульками власними силами або замовити оформлення в агенції «Веселий клоун», про яку батьки багато чули та хотіли б отримати її контактні дані, щоб запросити клоун для проведення свята.
З урахуванням зазначеного вище розрахуйте кошторис свята, який би був найбільш економним для сімейного бюджету. Для цього створіть електронну таблицю або розробіть проект в одному із середовищ програмування та виконайте обчислення за до формул. Порівняйте частки кожного виду витрат (продукти, розваги, оформлення) у загальній сумі витрат на свято, побудувавши відповідний тип числової діаграми для обґрунтування та прийняти рішення батьками брати.
Заповніть таблицю виконання завдання – файл Таблиця-свято, який збережений у папці Коспетентісні завдання.
(до іть будь ласка очень надо)
function FS(a,b:real):=0.5*a*b;
begin
var a,b:real;
Write('Катеты первого треугольника: '); Read(a,b);
var S1:=FS(a,b);
Write('Катеты второго треугольника: '); Read(a,b);
var S2:=FS(a,b);
if S1>S2 then Writeln('Площадь первого треугольника больше')
else
if S1<S2 then Writeln('Площадь второго треугольника больше')
else Writeln('Площади треугольников равны')
end.
Тестовое решение
Катеты первого треугольника: 4.18 6
Катеты второго треугольника: 5.4 3.9
Площадь первого треугольника больше
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
var a:=ArrRandom(10,10,20); a.Println;
Writeln('Сумма кубов ',a.Select(x->x*x*x).Sum);
a.Transform(x->x-5); a.Println
end.
Тестовое решение
14 17 12 17 20 11 13 18 19 20
Сумма кубов 46517
9 12 7 12 15 6 8 13 14 15
2. "Школьный вариант"
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
var
a:array[1..10] of integer;
i,s:integer;
begin
Randomize;
s:=0;
for i:=1 to 10 do begin
a[i]:=Random(11)+10;
Write(a[i],' ');
s:=s+a[i]*sqr(a[i])
end;
Writeln;
Writeln('Сумма кубов ',s);
for i:=1 to 10 do begin
a[i]:=a[i]-5;
Write(a[i],' ')
end;
Writeln
end.