Создать проект, который позволяет рассчитать зависимость частоты колебаний основного тона струны от ее длины l, плотности ρ, площади поперечного сечения S и силы натяжения F, используя выражение: 1
=
2
1. Опишите модель решения поставленной задачи, соблюдая следующие пункты:
a) Входные данные программы
b) Выходные данные программы
c) Цель проектирования программы
d) Назначение программы
e) Область применения программы
2. Создайте Главное окно программы Только сразу оба задания, и без плагиата с такого же во Буду благодарна
Программа 1.
program P1;
var a,b,sum, i : Integer;
begin
write('a = '); readln(a);
write('b = '); readln(b);
sum := 0;
for i := a to b do sum := sum + i;
writeln('sum = ', sum);
end.
Программа 2.
program P2;
var arr : array[1..8] of Integer;
i, count,weight : Integer;
begin
randomize;
for i := 1 to 8 do arr[i] := Random(10) + 10;
count := 0; weight := 0;
for i := 1 to 8 do if arr[i] > 15 then begin
count := count + 1; weight := weight + arr[i];
end;
writeln('Общее к-ство ', count);
writeln('Общий вес ', weight);
end.