2. Но, поскольку считается, что школьникам больше заняться нечем, их заставляют писать примерно в таком стиле (и время займет, и ощибок понаделают):
// PascalABC.NET 3.1, сборка 1198 от 11.03.2016 const nn=100; var i,j,n,t:integer; a:array[1..nn] of integer; begin Write('n='); Read(n); Randomize; for i:=1 to n do begin a[i]:=Random(3); Write(a[i],' ') end; Writeln; for i:=1 to n-1 do for j:=1 to n-1 do if a[j]>a[j+1] then begin t:=a[j]; a[j]:=a[j+1]; a[j+1]:=t end; for i:=1 to n do Write(a[i],' '); Writeln; end.
1 задача. Если есть ошибка или можно подругому сделать напишите. class Program { class Skier { public const float procent = 0.12f; public float distance = 7f; public float multiplication; public float alldistance; public float totalmileage = 7f;
public float Mileage(int day) { if (day == 1) { return alldistance = distance ; } else if (day >= 2 ) { for (int i = 2; i <= day; i++) { multiplication = distance * procent; alldistance = distance + multiplication; distance = alldistance; } } return alldistance; } public float TotalPath(int days) { if (days == 1) { return totalmileage = distance; } else if (days >= 2) { for (int i = 2; i <= days; i++) { multiplication = distance * procent; alldistance = distance + multiplication; distance = alldistance; totalmileage += alldistance; } } return totalmileage; } } static void Main(string[] args) { Skier skier = new Skier(); Console.WriteLine("Пробег лыжника за n дней тренировок, введите n: "); skier.Mileage(Convert.ToInt32(Console.ReadLine())); Console.WriteLine("Пробег: "+ skier.alldistance); Console.WriteLine("Суммарный путь за m дней, введите m: "); skier.TotalPath(Convert.ToInt32(Console.ReadLine())); Console.WriteLine("Суммарный путь: " + skier.totalmileage); Console.ReadLine(); } }
Задача 2. Решил ее так как я сам понял..
class Students { List<int> numbers = new List<int>(); public int countstudents; public int maxCount; public int minCount; public void clas(int n) { for (int i = 1; i <= n; i++) { Console.WriteLine("Введите кол-во учеников в классе: " ); countstudents = Convert.ToInt32(Console.ReadLine()); numbers.Add(countstudents); } maxCount = numbers.Max(); minCount = numbers.Min(); Console.WriteLine("Численность превышает на: " + (maxCount-minCount) + " ученика/ов"); } static void Main(string[] args) { Students students = new Students(); Console.WriteLine("Введите кол-во классов: "); students.clas(Convert.ToInt32(Console.ReadLine())); Console.ReadLine(); }
// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
var a:=ArrRandom(ReadInteger('n='),0,2); a.Println;
a.Sorted.Println
end.
Тестовое решение:
n= 15
1 2 0 2 2 0 2 0 2 0 0 1 0 0 2
0 0 0 0 0 0 0 1 1 2 2 2 2 2 2
2. Но, поскольку считается, что школьникам больше заняться нечем, их заставляют писать примерно в таком стиле (и время займет, и ощибок понаделают):
// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
const
nn=100;
var
i,j,n,t:integer;
a:array[1..nn] of integer;
begin
Write('n='); Read(n);
Randomize;
for i:=1 to n do begin
a[i]:=Random(3);
Write(a[i],' ')
end;
Writeln;
for i:=1 to n-1 do
for j:=1 to n-1 do
if a[j]>a[j+1] then begin
t:=a[j]; a[j]:=a[j+1]; a[j+1]:=t
end;
for i:=1 to n do Write(a[i],' ');
Writeln;
end.
Тестовое решение:
n=15
0 1 1 0 2 1 0 2 1 2 1 0 0 2 0
0 0 0 0 0 0 1 1 1 1 1 2 2 2 2