Ну как это делается... становимся "на уши", отыскивая в интернете пиратскую версию компилятора с языка Турбо Паскаль. Потом отыскиваем оболочку DosBox, в которую втыкаем этот самый турбопаскаль. Поскольку иначе запустить эту древность (на минуточку, это написано было в 1983 году) под Windows 7 просто не получится.
А потом пишем в нем программу. Сдавая, интересуемся у учителя, почему его уровень знаний паскаля остался в 1983 году, когда на дворе скоро 2020-й.
program OakHead;
uses Crt;
var
x, y, a, b : real;
begin
write('Vvedi a, b, x: ');
read(a, b, x);
y := sqrt(abs(x*(a*a+b*b)))/(exp(x)*sin(sqrt(abs(a+b;
Задания 4 и 5:
Задание 4:
static void Main(string[] args)
{
int N = 10, count, sum = 0;
int[] mas = new int[N];
Random rnd = new Random();
for (int i = 0; i < N; i++)
{
mas[i] = rnd.Next(0, 10);
}
Console.WriteLine("Массив: ");
for (int i = 0; i < N; i++)
{
Console.Write(String.Format("{0,4}", mas[i]));
}
Console.WriteLine();
Console.WriteLine();
Console.Write("Введите количество элементов для суммирования (n): ");
count = Convert.ToInt32(Console.ReadLine());
if (count > N)
{
count = N;
Console.WriteLine();
Console.Write("Количество элементов не должно превышать размерность массива.");
}
for (int i = 0; i < count; i++)
{
sum += mas[i];
}
Console.WriteLine();
Console.Write("Сумма первых " + count + " элементов массива = " + sum);
Console.ReadKey();
}
Задание 5:
static void Main(string[] args)
{
int N = 10, x, y, sum = 0;
int[] mas = new int[N];
Random rnd = new Random();
for (int i = 0; i < N; i++)
{
mas[i] = rnd.Next(0, 10);
}
Console.WriteLine("Массив: ");
for (int i = 0; i < N; i++)
{
Console.Write(String.Format("{0,4}", mas[i]));
}
Console.WriteLine();
Console.WriteLine();
Console.Write("Введите x: ");
x = Convert.ToInt32(Console.ReadLine());
Console.Write("Введите y: ");
y = Convert.ToInt32(Console.ReadLine());
if (x > N)
{
x = N / 2;
}
if (y > N)
{
y = N;
}
if (y < x)
{
x = N / 2;
y = N;
Console.WriteLine();
Console.Write("x не должен быть больше y.");
}
for (int i = x - 1; i < y; i++)
{
sum += mas[i];
}
Console.WriteLine();
Console.Write("Сумма элементов массива, с " + x + " элемента по " + y + " равна " + sum);
Console.ReadKey();
}
Объяснение:
Задания 4 и 5 на языке C#.
Ну как это делается... становимся "на уши", отыскивая в интернете пиратскую версию компилятора с языка Турбо Паскаль. Потом отыскиваем оболочку DosBox, в которую втыкаем этот самый турбопаскаль. Поскольку иначе запустить эту древность (на минуточку, это написано было в 1983 году) под Windows 7 просто не получится.
А потом пишем в нем программу. Сдавая, интересуемся у учителя, почему его уровень знаний паскаля остался в 1983 году, когда на дворе скоро 2020-й.
program OakHead;
uses Crt;
var
x, y, a, b : real;
begin
write('Vvedi a, b, x: ');
read(a, b, x);
y := sqrt(abs(x*(a*a+b*b)))/(exp(x)*sin(sqrt(abs(a+b;
writeln(y);
readkey;
end.