Voronin-Albertovich

23.01.2020

Procedure TForm1.Button1Click(Sender: TObject); varx1, x2, y1, y2, y:real;beginx1=StrToFloat(Edit1.Text);x2:=StrToFloat(Edit2.Text);y1=x1x2;y2:=x1+x2;y:=y2/y1;y:=Int(y);//Ця команда правильнаLabel1.Текст:=FloatToStr(y);end;надо исправить код в програме Lazerus

Информатика

Ответить

Ответы

aivia29

23.01.2020

первый цикл for заполняет массив array, случайными числами из указанного диапазона, в цикле while происходит поиск пары чисел по условию начиная с 3го элемента. Если находят выводят, что такая пара есть, в противном случае что такой пары нет.

ЛИБО

Вводтся число n, дальше будет использоваться для поиска, дальше как и в программе а, заполняем массив случайными числами в цикле for, в repeat, мы движемся по массив, пока не встретим наше значение n, если встретили, выводим: такое число есть в массиве, в противном случае, такого числа нет.В repeat until реализован линейный алгоритм поиска.

Объяснение:

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Procedure TForm1.Button1Click(Sender: TObject); varx1, x2, y1, y2, y:real;beginx1=StrToFloat(Edit1.Text);x2:=StrToFloat(Edit2.Text);y1=x1*x*2;y2:=x1+x2;y:=y2/y1;y:=Int(y);//Ця команда правильнаLabel1.Текст:=FloatToStr(y);end;надо исправить код в програме Lazerus

▲

Ответы

Ответить на вопрос

Ваше имя (никнейм)*

Email*

Комментарий*

Популярные вопросы в разделе

Дана последовательность операторов: a = 1b = 2while a + b < 8:а += 1b+= 2s = a + bСколько раз будет выполнено тело цикла?

Как расшифровать s в желтом квадрате в информатике

Объясните подробно как такие примеры решать8 класс информатика

Сформировать массив целых чисел [-20...20]. Найти среднее арифметическое элементов массива и количество отрицательных элементов. Написать программу в C++.

НАПИШИТЕ В ПАЙТОНЕ . Вычислите длину окружности c = 2 R = float(input("Введите радиус mathcal C ^ * )) c=23.14^ R print (длина окружности=', )

Переведите число 59 записанное в десятичной системе счисления в двоичную восьмеричную и шестнадцатеричную системы счисления запишите решение и ответ

4. вершина графа, из которой исходит ровно одноребро, называется висячей. сколько висячихвершин имеет граф, изображённый справа? а) 1б) 9г) 4в) 3

Создать приложение, которое нарисует на экране три прямоугольника зеленого, красного и синего цвета. Canvas. Pen. color:clRed; Form1.Canvas.Rectangle(10, 10, 100, 100)

Напишите программу вычисления суммы факториалов всех нечетных чисел от 1 до 9. использовать процедуры и функции.

Когда начались создавать человекоподобных роботов

Ответы

Ответить на вопрос

Ваше имя (никнейм)*

Email*

Комментарий*

Популярные вопросы в разделе

Дана последовательность операторов: a = 1b = 2while a + b &lt; 8:а += 1b+= 2s = a + bСколько раз будет выполнено тело цикла?

Как расшифровать s в желтом квадрате в информатике

Объясните подробно как такие примеры решать8 класс информатика ​

Сформировать массив целых чисел [-20...20]. Найти среднее арифметическое элементов массива и количество отрицательных элементов. Написать программу в C++.

НАПИШИТЕ В ПАЙТОНЕ . Вычислите длину окружности c = 2 R = float(input("Введите радиус mathcal C ^ * )) c=2*3.14^ * R print (длина окружности=', )​

Переведите число 59 записанное в десятичной системе счисления в двоичную восьмеричную и шестнадцатеричную системы счисления запишите решение и ответ​

4. вершина графа, из которой исходит ровно одноребро, называется висячей. сколько висячихвершин имеет граф, изображённый справа? а) 1б) 9г) 4в) 3​

Создать приложение, которое нарисует на экране три прямоугольника зеленого, красного и синего цвета. Canvas. Pen. color:clRed; Form1.Canvas.Rectangle(10, 10, 100, 100)

Напишите программу вычисления суммы факториалов всех нечетных чисел от 1 до 9. использовать процедуры и функции.

Когда начались создавать человекоподобных роботов​

Дана последовательность операторов: a = 1b = 2while a + b < 8:а += 1b+= 2s = a + bСколько раз будет выполнено тело цикла?

Объясните подробно как такие примеры решать8 класс информатика

НАПИШИТЕ В ПАЙТОНЕ . Вычислите длину окружности c = 2 R = float(input("Введите радиус mathcal C ^ * )) c=23.14^ R print (длина окружности=', )

Переведите число 59 записанное в десятичной системе счисления в двоичную восьмеричную и шестнадцатеричную системы счисления запишите решение и ответ

4. вершина графа, из которой исходит ровно одноребро, называется висячей. сколько висячихвершин имеет граф, изображённый справа? а) 1б) 9г) 4в) 3

Когда начались создавать человекоподобных роботов