Тема 1: «Работа с векторами»
Постановка задачи: написать программу на языке Pascal для обработки векторов (в соответствии с вариантом). Размерность вектора и его элементы должны вводиться с клавиатуры. Полученный вектор и другие элементы (согласно варианту) должны выводиться на экран.
1) Дан целочисленный вектор А(n). Подсчитать сколько раз встречается в этом векторе максимальное по величине число.
2) Дан целочисленный вектор А(n). Найти наибольшее из четных и количество нечетных чисел вектора. На печать выдавать исходный вектор и полученный результат.
3) Дан целочисленный вектор А(n). Отсортировать его элементы методом линейного выбора с подсчётом.
Текст программы
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls, ComCtrls, Buttons, Menus, ExtCtrls, XPMan;
type
TForm1 = class(TForm)
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
GroupBox1: TGroupBox;
Label1: TLabel;
Тема 2: «Работа с матрицами»
Постановка задачи: написать программу на зыке Pascal для обработки матриц (в соответствии с вариантом). Размерности матрицы и ее элементы должны вводиться с клавиатуры. Полученная матрица и другие элементы (согласно варианту) должны выводиться на экран.
Дана действительная матрица размерности (nхn).
1. Если максимальные элементы столбцов превышает сумму минимальных элементов строк, то к элементам, стоящим на побочной диагонали добавить соответствующие максимальные элементы столбцов. В противном случае матрицу оставить без изменения.
2. Определить произведение элементов в тех строках, которые не содержат элементов кратных 3.
3. Найти номер первого из столбцов, не содержащих элементов, меньших s.
4. Проверить упорядочены ли элементы строк матрицы. Если нет, то упорядочить их в порядке возрастания методом линейного выбора с подсчетом.
Текст программы
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls, ComCtrls, Buttons, ExtCtrls;
type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
UpDown1: TUpDown;
Edit1: TEdit;
StringGrid1: TStringGrid;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
PageControl1: TPageControl;
TabSheet6: TTabSheet;
TabSheet7: TTabSheet;
TabSheet8: TTabSheet;
GroupBox3: TGroupBox;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
Тема 3: «Работа со строками»
Постановка задачи: написать программу на зыке Pascal для обработки строк (в соответствии с вариантом). Строка должна вводиться с клавиатуры. Полученная строка и другие элементы (согласно варианту) должны выводиться на экран.
1) В заданном тексте найти слова, которые заканчиваются на ту же букву, что и первое слово.
2) Выбрать в тексте первое по порядку слово с наибольшим числом вхождений в него буквы 'и'.
Текст программы
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Buttons;
type
TForm1 = class(TForm)
Label1: TLabel;
Memo1: TMemo;
ComboBox1: TComboBox;
Label2: TLabel;
StaticText1: TStaticText;
Label3: TLabel;
ListBox1: TListBox;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
GroupBox1: TGroupBox;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
procedure ComboBox1Change(Sender: TObject);
procedure RadioButton1Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
var FName: string;
