1) посчитать сумму всех нечетных чисел от 230 до 430 // PascalABC.NET 3.0, сборка 1088 var i,s:integer; begin i:=231; s:=0; repeat s:=s+i; i:=i+2 until i>400; Writeln('Сумма нечетных чисел на интервале [230;400]: ',s) end.
Результат выполнения программы: Сумма нечетных чисел на интервале [230;400]: 26775
2) вычислить квадратные корни из чисел : 900, 893, 886,... до тех пор пока это можно делать // PascalABC.NET 3.0, сборка 1088 var i:integer; begin i:=900; repeat Write('(',i:3,',',sqrt(i):9:5,') '); i:=i-7 until i<0; Writeln; end.
3) найти сумму чисел шестизначного числа // PascalABC.NET 3.0, сборка 1088 var n:longint; s:integer; begin Write('n='); Read(n); repeat s:=s + (n mod 10); n:=n div 10 until n=0; Writeln('Сумма цифр числа равна ',s) end.
Тестовое решение: n=472305 Сумма цифр числа равна 21
//Вариант с нормальным интерфейсом 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.
// PascalABC.NET 3.0, сборка 1088
var
i,s:integer;
begin
i:=231; s:=0;
repeat
s:=s+i; i:=i+2
until i>400;
Writeln('Сумма нечетных чисел на интервале [230;400]: ',s)
end.
Результат выполнения программы:
Сумма нечетных чисел на интервале [230;400]: 26775
2) вычислить квадратные корни из чисел : 900, 893, 886,... до тех пор пока это можно делать
// PascalABC.NET 3.0, сборка 1088
var
i:integer;
begin
i:=900;
repeat
Write('(',i:3,',',sqrt(i):9:5,') ');
i:=i-7
until i<0;
Writeln;
end.
Результат выполнения программы:
(900, 30.00000) (893, 29.88311) (886, 29.76575) (879, 29.64793)
(872, 29.52965) (865, 29.41088) (858, 29.29164) (851, 29.17190)
(844, 29.05168) (837, 28.93095) (830, 28.80972) (823, 28.68798)
... часть строк пропущена
(130, 11.40175) (123, 11.09054) (116, 10.77033) (109, 10.44031)
(102, 10.09950) ( 95, 9.74679) ( 88, 9.38083) ( 81, 9.00000)
( 74, 8.60233) ( 67, 8.18535) ( 60, 7.74597) ( 53, 7.28011)
( 46, 6.78233) ( 39, 6.24500) ( 32, 5.65685) ( 25, 5.00000)
( 18, 4.24264) ( 11, 3.31662) ( 4, 2.00000)
3) найти сумму чисел шестизначного числа
// PascalABC.NET 3.0, сборка 1088
var
n:longint;
s:integer;
begin
Write('n='); Read(n);
repeat
s:=s + (n mod 10);
n:=n div 10
until n=0;
Writeln('Сумма цифр числа равна ',s)
end.
Тестовое решение:
n=472305
Сумма цифр числа равна 21