//Вариант с нормальным интерфейсом 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.
#include <iostream> // Заголовочный файлusing namespace std; // пространство имен, надо для ввода и вывода информации int main() // Главная функция { int A[10], k = 0,i,n=10; // объявление переменных // Заполняем вручную элементы массива A[0] = 1; A[1] = 2; A[2] = 3; A[3] = 4; A[4] = 5; A[5] = 6; A[6] = 7; A[7] = 8; A[8] = 11; A[9] = 10; for(i=0;i<n;i++) // цикл от 0 до n { if((A[i] %3==0) && (A[i]%4!=0)) k++; // Условие, Если элементы массива А делятся на 3 с остатком 0 И элементы массива не делятся на 4 с остатком 0, то считаем количество.} cout << "Количество чисел, которые делятся нацело на 3 и не делятся на 4: " << k<< endl; system("pause"); // Нужно для паузы в программы, для просмотра результата. }
//Вариант с нормальным интерфейсом
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
int main() // Главная функция
{ int A[10], k = 0,i,n=10; // объявление переменных
// Заполняем вручную элементы массива
A[0] = 1;
A[1] = 2;
A[2] = 3;
A[3] = 4;
A[4] = 5;
A[5] = 6;
A[6] = 7;
A[7] = 8;
A[8] = 11;
A[9] = 10;
for(i=0;i<n;i++) // цикл от 0 до n
{
if((A[i] %3==0) && (A[i]%4!=0)) k++; // Условие, Если элементы массива А делятся на 3 с остатком 0 И элементы массива не делятся на 4 с остатком 0, то считаем количество.}
cout << "Количество чисел, которые делятся нацело на 3 и не делятся на 4: " << k<< endl;
system("pause"); // Нужно для паузы в программы, для просмотра результата.
}