ТОР 5 статей: Методические подходы к анализу финансового состояния предприятия Проблема периодизации русской литературы ХХ века. Краткая характеристика второй половины ХХ века Характеристика шлифовальных кругов и ее маркировка Служебные части речи. Предлог. Союз. Частицы КАТЕГОРИИ:
|
Составить проект 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.
Результат работы программы:
Не нашли, что искали? Воспользуйтесь поиском:
|