Создать программу языком delphi (мне только нужен сам код) визначити за данними сторонами , чи являється трикутник рівностороннім.

270

278

Посмотреть ответы 2

Ответы на вопрос:

krohaaaaaaaa

Информатика

4,5(55 оценок)

Program kurs; {$apptype console uses sysutils; type //раздел описания типов данных tarray=array [1..20,1..40] of byte; //описание типа двумерного //массива 20x40 элементов tarray2=array [1..400] of byte; // описание типа массива из 400 //элементов var //раздел объявления переменных a: tarray; //массив с результатами эксперимента b: tarray2; //сформированный одномерный массив n, //количество столбцов массива a m, //количество строк массива a k: byte; //размер массива b d: byte; //количество искомых элементов s: real; //среднее арифметическое элементов массива в //=========================================== // функция ввода массива. возвращает размер массива n, m и //введенный массив z function inputarray(var z: tarray; var m, n: byte): boolean; var i,j: byte; // индексные переменные begin //вывод сообщения о вводе n writeln('введите размер массива n: '); //вводим n readln(n); … end; //процедура вывода одномерного массива y размерностью k procedure outputarray(y: tarray2; k: byte); var i: byte; //индекс массива begin … end; //процедура создания одномерного массива y //из двумерного х по заданной схеме procedure create(x: tarray; m: byte; n: byte; var y: tarray2; var k: byte); var i, //индекс массива j: byte; //индекс массива l,t: byte; //индексы массива s: set of byte; //множество элементов массива f: boolean; //флаг наличия схожего элемента //в нижней части массива begin … end; end; //конец процедуры //процедура поиска среднего арифметического function srznach(x: tarray2; n: byte): real; var i: byte; //индекс массива sr: real; //переменная для подсчета среднего арифметического begin … end; //процедура подсчета в массиве х элементов, //которые отличаются от значения sr больше чем на 50%. //возвращает количество искомых элементов k procedure calc(x: tarray2; n: byte; sr: real; var k: byte); var i: byte; //индексы массива begin i: =1; //задаем начальный индекс массива k: =0; … end; //начало основной программы begin … end. //конец программы

Aruna0001

Информатика

4,4(39 оценок)

Var a,b,max: integer; begin readln(a); max: =-maxint; while a> 0 do begin b: =a mod 10; a: =a div 10; if b> max then max: =b; end; writeln(max) end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.