Составить программу, нахождение степени числа, используя подпрограмму (функцию нахождения степени).программа должна облодать интерфейсом (на паскале с описаниями)

105

467

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

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

mar244144

Информатика

4,6(44 оценок)

//pascal abc.net 3.1 сборка 1219 //вариант с нормальным интерфейсом uses system,system.windows.forms; var myform: form; mybutton: button; mytextbox1: textbox; mytextbox2: textbox; mytextboxrez: textbox; procedure mybuttonclick(sender: object; e: eventargs); var i,ar,a,b: integer; begin a: =strtoint(mytextbox1.text); b: =strtoint(mytextbox2.text); ar: =1; for i: =1 to b do ar: =ar*a; mytextboxrez.text: =ar.tostring; end; begin myform: =new form; //создание объекта - формы myform.left: =500; myform.top: =500; myform.autosize: =true; myform.width: =300; myform.height: =100; mytextbox1: =new textbox; //создание объекта - текстового поля для числа mytextbox1.left: =80; mytextbox1.top: =40; mytextbox1.enabled: =true; mytextbox1.width: =105; mytextbox1.height: =100; mytextbox1.maxlength: =16; mytextbox1.readonly: =false; mytextbox1.visible: =true; mytextbox2: =new textbox; //создание объекта - текстового поля для степени mytextbox2.left: =80; mytextbox2.top: =80; mytextbox2.enabled: =true; mytextbox2.width: =105; mytextbox2.height: =100; mytextbox2.maxlength: =16; mytextbox2.readonly: =false; mytextbox2.visible: =true; mytextboxrez: =new textbox; //создание объекта - текстового поля для результата mytextboxrez.left: =80; mytextboxrez.top: =120; mytextboxrez.enabled: =true; mytextboxrez.width: =105; mytextboxrez.height: =100; mytextboxrez.maxlength: =16; mytextboxrez.readonly: =true; mytextboxrez.visible: =true; mybutton: =new button; //создание объекта - кнопки mybutton.text: ='^'; mybutton.left: =80; mybutton.top: =160; mybutton.autosize: =true; myform.controls.add(mytextbox1); myform.controls.add(mytextbox2); myform.controls.add(mytextboxrez); myform.controls.add(mybutton); mybutton.click+=mybuttonclick; application.run(myform); end. //вариант с crt uses crt; var a,b: integer; function fpow(a,b: integer): integer; var rez,i: integer; begin rez: =1; //чтобы не было 0 for i: =1 to b do //умножаем rez на a b раз чтобы получить нужную степень rez: =rez*a; fpow: =rez; end; begin clrscr; write('введите число: '); readln(a); write('введите требуемую степень числа: '); readln(b); writeln('результат: ',fpow(a,b)); end. пример ввода: 2 10 пример вывода: 1024

Кристина01012004

Информатика

4,7(28 оценок)

Var a: array[1..25] of integer; i: integer; s: real; begin readln(n); for i: =1 to 25 do readln(a[i]); for i: =1 to 25 do s: =s+a[i]; s: =s/25; writeln(s); end.

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

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

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

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

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

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

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

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

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

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