Создать проект, который позволяет рассчитать зависимость частоты колебаний основного

тона струны от ее длины l, плотности ρ, площади поперечного сечения S и силы натяжения F,

используя выражение:
v=1/2l F/pS
3.1 Опишите модель решения поставленной задачи.

a) Входные данные программы

b) Выходные данные программы

c) Цель проектирования программы
d) Назначение программы

e) Область применения программы​

Объяснение:

Задание 1

program bukva;

const R=[' ','.',',',';',':','?','!','-']; // разделители

var

s,bukv:string;

i,kol,len:integer;

procedure UpCaseRus(var s:string);

{русские в верхний регистр}

var i:integer;

begin

for i:=1 to length(s) do

if s[i] in ['а'..'п'] then s[i]:=chr(ord(s[i])-32)

else if s[i] in ['р'..'я'] then s[i]:=chr(ord(s[i])-80)

else if s[i]='ё' then s[i]:='Ё';

end;

begin

readln(s);

readln(bukv);

UpCaseRus(s);

UpCaseRus(bukv);

For i:=length(s) downto 2 do

if ((s[i] in R) and (s[i-1] in R)) then delete(s,i,1);

len:=length(s);

kol:=0;

for i:=len downto 1 do

begin

if s[i] in R then

if s[i+1]=bukv then kol:=kol+1;

end;

if s[1]=bukv then kol:=kol+1;

writeln('Слов на букву '+bukv+' ',kol);

readln;

end.

Задание 2

const r=[' ','.',',',';',':','?','!','-'];

var

s:string;

i,kol,d:integer;

begin

readln(s);

len:=length(s);

kol:=0;  d:=0;

For i:=length(s) downto 2 do

       if ((s[i] in r) and (s[i-1] in r)) then delete(s,i,1);

for i:=1 to length(s) do

begin

if s[i] in r then kol:=kol+1

else if (s[i] in ['0'..'9']) then d:=d+1;

end;

writeln('Слов всего ',kol+1);

writeln('Цифр  в тексте ',d);

readln;

end.

Код в файлах. Отдельно реализован класс Geometry. Пример работы представлен на скриншоте.

Внимание! Хром жрет строки! Сейчас поправлю

Laboratorna2.cs
//////////////////////////////////////////////////
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
namespace Laboratorna2{
    class Laboratorna2
    {
        public static void A() {
             Console.WriteLine("Привет, это метод А()");
        }
        public static void B(int n, int m) {
             Console.WriteLine(n + m);
             Console.WriteLine(n - m);
             Console.WriteLine(n * m);
             Console.WriteLine(Convert.ToDouble(n) / m);
        }
        public static double C(double k, double l, double m) {
             return (k + l + m) / 3;
        }
  public static string N11(ref int Numb) {
             Numb = 11 * Numb; return "";
  }
  public static int Line(ref string line) {
             char[] arr = line.ToCharArray();
             Array.Reverse(arr);
             line = new string(arr);
             return line.Length;
  }
  static void Main(string[] args) {
             Console.WriteLine("Метод А:"); A();
             Console.WriteLine("Метод B:"); B(5, 7);
             Console.WriteLine("Метод C: {0}", C(4.33, 13.6, -14.88439435));
             Console.WriteLine("Geometry.S: {0}", Geometry.S(5));
             double P, S;
             Geometry.Par(5, out P, out S);
             Console.WriteLine("Geometry.Par: P={0}; S={1}", P, S);
             int N = 7;
             Console.WriteLine("Метод N11: Число = {0}; Результат = {2}", N, N11(ref N), N);
             string kekus = "Lol Kek Cheburek!";
             Console.WriteLine("Метод Line: Исходная строка = \"{0}\"; Длина = {1}; Результирующая строка = \"{2}\";", kekus, Line(ref kekus), kekus);
             Console.ReadKey();
      }
    }
}

Geometry.cs
\\\\\\\\\\\\\\\\\\\\\\\\\
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
namespace Laboratorna2 {
 class Geometry {
  public static double S(double R) {
   return Math.PI * Math.Pow(R, 2);
   }
  public static void Par(double R, out double S, out double P) {
   S = Math.PI * Math.Pow(R, 2);
   P = 2 * Math.PI * R;
  }
 }
}