Составить проект Delphi, показывающий при запуске на экранной форме матрицу чисел, их квадратов и далее до 6-ой степени (числа от 1 до 10).

В чем сходство и различие одномерного и двумерного массива? Приведите не менее трех сходств и различий.

Допиши…

Задача №2

Натуральные числа вводятся с клавиатуры до тех пор, пока не будет введено число «0». Найти среднее арифметическое введенных чисел, а также максимальное минимальное значения. Изобразите графически алгоритм и напишите программу для решения этой задачи.

Программа:

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses

System.SysUtils;

var

count, Max, Min, S, Summa: integer;

Sarifm: real;

begin

count:= 0;

Max:=0;

Min:= 10;

Sarifm:= 0;

Summa:=0;

S:=10;

while (S <> 0) do

begin

if (S > Max) then

begin

Max:= S;

end;

if (S < Min) then

begin

Min:= S;

end;

count:= count + 1;

Summa:= Summa + S;

writeln('Введите число: ');

readln(S);

end;

Sarifm:= Summa / count;

writeln('Среднеарифмитическое: ',Sarifm);

readln;

writeln('Максимальное значение: ',Max);

readln;

writeln('Минимальное значение: ',Min);

readln;

readln;

end.

Блок-схема:

Результат работы программы:

Задача №3

Подсчитать, сколько элементов массива А1,А2...А40 больше среднего арифметического всех его элементов и сколько элементов меньше. Изобразите графически алгоритм и напишите программу для решения этой задачи.

Программа:

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses

System.SysUtils, Windows,

math;

type mas = array [1..40] of integer;

var

massiv: mas;

I, SredneArifmBIG, SredneArifmSmall: Integer;

SredneArifm: Double;

begin

Randomize;

SredneArifm:= 0;

SredneArifmBIG:= 0;

SredneArifmSmall:= 0;

for I:= 1 to 40 do

begin

massiv [I]:= 1 + Random (10);

SredneArifm:= SredneArifm + massiv [I];

write (massiv [I], ' ');

writeln;

end;

SredneArifm:= SredneArifm / 40;

for I:= 1 to 40 do

begin

if (massiv [I] > SredneArifm) then

begin

SredneArifmBIG:= SredneArifmBIG + 1;

end;

if (massiv [I] < SredneArifm) then

begin

SredneArifmSmall:= SredneArifmSmall + 1;

end;

end;

writeln;

writeln;

write ('Среднеарифмитическое всех элементов: ', SredneArifm);

writeln;

write ('Элементов больше среднеарифмитического: ', SredneArifmBIG);

writeln;

write ('Элементов меньше среднеарифмитического: ', SredneArifmSmall);

readln;

end.

Блок-схема:

Результат работы программы:

Задача №4

Составить проект Delphi, показывающий при запуске на экранной форме матрицу чисел, их квадратов и далее до 6-ой степени (числа от 1 до 10).

Программа:

unit Unit1;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Grids, Math;

type mas = array [0..5, 0..5] of integer;

type

TForm1 = class(TForm)

Button1: TButton;

StringGrid1: TStringGrid;

Label1: TLabel;

Label2: TLabel;

StringGrid2: TStringGrid;

ScrollBar1: TScrollBar;

Label3: TLabel;

Label4: TLabel;

procedure Button1Click(Sender: TObject);

procedure ScrollBar1Change(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

stroka,stolbik, stepen: Integer;

massiv: mas;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

Randomize;

for stroka:= 0 to 4 do

begin

for stolbik:= 0 to 4 do

begin

massiv [stroka,stolbik]:= 1 + Random (10);

StringGrid1.Cells [stroka,stolbik]:= IntToStr(massiv [stroka,stolbik]);

end;

end;

end;

procedure TForm1.ScrollBar1Change(Sender: TObject);

begin

stepen:= ScrollBar1.Position;

Label3.Caption:= IntToStr(ScrollBar1.Position);

for stroka:= 0 to 4 do

begin

for stolbik:= 0 to 4 do

begin

StringGrid2.Cells [stroka,stolbik]:= FloatToStr(Power(massiv [stroka,stolbik], stepen));

end;

end;

end;

end.

Результат работы программы:

Не нашли, что искали? Воспользуйтесь поиском: