Составьте программу которая формирует массив из 13 случайных чисел, от 0 до 30, меняет местами 4-й и 9-й элементы и выводит значения элементов массива на экран до и после обмена. pascal abc
114
500
Ответы на вопрос:
Const n=13; var a: array[1..n] of integer; i,c: integer; begin randomize; writeln('массив a: '); for i: =1 to n do begin a[i]: =random(31); write(a[i]: 4); end; writeln; c: =a[4]; a[4]: =a[9]; a[9]: =c; for i: =1 to n do write(a[i]: 4); writeln; end. пример: массив a: 11 25 20 0 7 28 27 26 23 25 12 24 2011 25 20 23 7 28 27 26 0 25 12 24 20
//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
Популярно: Информатика
-
sadko7777720.04.2021 21:01
-
kerimok60702.07.2021 06:39
-
Утешитель17.07.2022 13:11
-
auutumn110.04.2022 02:59
-
makovskaya200127.12.2021 07:25
-
Vetaliks14.04.2021 04:52
-
вера54604.11.2022 16:36
-
Pylieva18.08.2022 10:29
-
айлимайли12.01.2023 00:32
-
yan4enkomaks02.12.2021 13:17