Код в файлах. Отдельно реализован класс 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; } } }
julkamysh9
14.06.2022
Твой код не проверял. Недавно кому-то делал на Delphi. Переделал на Pascal.
Приложил картинкой, если запутаешься. Если что-то не так работает, я поправлю.
//Pascal var a, b, c, d, x1, x2: real; begin write('Введите a = '); readln(a); write('Введите b = '); readln(b); write('Введите c = '); readln(c); if ((a = 0) and (b = 0) and (c = 0)) then writeln('X любое') else if a <> 0 then begin d := sqr(b) - 4 * a * c; if (d > 0) then begin x1 := (-b+sqrt(d))/(2*a); x2 := (-b-sqrt(d))/(2*a); writeln('x1 = ', x1); writeln('x2 = ', x2); end else if d = 0 then begin x1:=-b/(2*a); x2:=x1; writeln('x1 = ', x1); //writeln('x2 = ', x2); end else if d < 0 then writeln('Корней нет.'); end else if (a = 0) and (b = 0) then writeln('Решений нет.') else if (a = 0) then begin x1 := (-c)/b; writeln('x = ', x1); end; end.
Степени двойки.