Program MashaLukianova;
uses crt;
const n=12;
var
mas:array[1..n] of integer;
b,i,left,right,temp:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
write('Введите загадочное число B ');
readln(b);
writeln('Элементы массива:');
{создание и вывод начального массива}
randomize;
for i:=1 to n do
begin
mas[i]:=random(100)-50;
write (mas[i]:4);
end;
writeln();
left:=0;
right:=n;
while left <> right do {просматриваем массив с концов к середине, пока "левый" и "правый" текущие элементы не встретятся}
begin
if mas[left+1]<=b then
{если текущий "левый" элемент меньше или равно В, то просто идём смотреть следующий }
begin
left:=left+1;
end
else
if mas[right]>=b then
{если текущий "правый" элемент больше или равно В, то просто идём смотреть следующий }
begin
right:=right-1;
end
else
{иначе меняем "левый" и "правый" местами}
begin
temp:= mas[left+1];
mas[left+1]:=mas[right];
mas[right]:=temp;
left:=left+1;
right:=right-1;
end;
end;
writeln();
{вывод массива-результата}
for i:=1 to n do
begin
write (mas[i]:4);
end;
writeln();
end.
using System;
namespace kp9p_pr_10_zad_7
{
class Program
{
delegate void Anon(int a, int b, int h); // анонимный метод
delegate double Lymbd(int a, int h); // метод с использованием лямбда выражения
static void Main(string[] args)
{
bool usl = false;
int a = 0, b = 0, h;
while (usl != true)
{
Console.Write("Введите первое значение: ");
a = Convert.ToInt32(Console.ReadLine()); // ввод первого значения
Console.Write("Введите второе значение: ");
b = Convert.ToInt32(Console.ReadLine()); // ввод второго значения
if (a < b) // если a меньше b
{
usl = true; // условие = правда
}
else
{
Console.WriteLine("\nНекорректный ввод\n");
}
}
Console.Write("Введите шаг: ");
h = Convert.ToInt32(Console.ReadLine()); // ввод шага
void anon(int a1, int b1, int h1)
{
Console.WriteLine("\nС использованием анонимного метода\n\nЗначение аргумента:\tответ:\n"); // /t - табуляция
for (int i = a; i <= b; i += h1)
{
Console.WriteLine("{0}\t\t\t{1:f2}", i, Math.Sqrt(h1) * Math.Pow(Math.Cos(i), 2)); // вычисление и вывод значений функции
}
}
anon(a, b, h);
static double lyamb(int a1, int h1) => Math.Sqrt(h1) * Math.Pow(Math.Cos(a1), 2); // вычисление значений функции
Console.WriteLine("\nС использованием лямбда-выражения\n\nЗначение аргумента:\tответ:\n");
for (int i = a; i <= b; i += h)
{
Console.WriteLine("{0}\t\t\t{1:f2}", i, lyamb(i, h)); // вывод значений функции
}
}
}
}
1) Линейный
2) Цикл с предусловием
3) Разветвляющийся
Объяснение: