Ребята, помогите срочно!!!!) завтра экзамен, и надо принести домашнюю работу.....нужно написать программку в Delphi. вот задание...."Дана
10-11 класс
|
строка, содержащая не более двадцати латинских букв. Все вхождение «max» в ней заменить на «min» и «макс» на «мин». Подсчитать число таких замен." Буду очень благодарен, если кто поможет. прикрепляю так же образец, как именно должен выглядеть код программы. Заранее всем кто поможет огромное СПАСИБО!!!!!!!!!!
Код формы:
-------------------------------
object Form1: TForm1
Left = 566
Top = 225
Width = 616
Height = 79
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Edit1: TEdit
Left = 0
Top = 0
Width = 601
Height = 21
MaxLength = 20
TabOrder = 0
OnKeyUp = Edit1KeyUp //Это важно:)
end
object Edit2: TEdit
Left = 0
Top = 24
Width = 553
Height = 21
Color = clMenu
ReadOnly = True
TabOrder = 1
end
object Edit3: TEdit
Left = 560
Top = 24
Width = 41
Height = 21
AutoSize = False
Color = clMenuBar
ReadOnly = True
TabOrder = 2
end
end
===============
Код самой программы... Так сказать
-------------------------------
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
procedure Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
s : string;
b, k: byte;
begin
k := 0;
s := Edit1.Text;
while (pos('max', s) > 0) do
begin
b := pos('max', s);
delete(s, b, 3);
insert('min', s, b);
inc(k);
end;
while (pos('макс', s) > 0) do
begin
b := pos('макс', s);
delete(s, b, 4);
insert('мин', s, b);
inc(k);
end;
Edit3.Text := IntToStr(k);
Edit2.Text := s;
end;
end.
Другие вопросы из категории
2.дано натурально число N вычислить куб суммы этого числа
Пожалуйста, напишите способом цикл ПОКА или цикл ДЛЯ.
Читайте также
геометрической фигуры(паскаль)
ПОМОГИТЕ СРОЧНО!завтра экзамен
доброй ночи, уважаемые программисты и успевающие в учебе студенты. помогите, пожалуйста, написать программу на C++ (в визуальной вкладке).
ВОТ ЗАДАНИЕ:
дано три переменные вещественного типа. если их значения упорядочены по возрастанию или убыванию, то удвоить их; иначе заменить значение каждой переменной на противоположное. вывести значения переменных.
я прикрепила несколько тестовых файлов (блокнот) в которых есть несколько вариантов решение этого задание (то есть коды программ), а вы скажите какой из них лучше всего подходит, а также скажите какие компоненты нужно кинуть на форму-дизайн (то есть какие кнопки, и что на них писать). в этих 3 файлов есть написанный код программы, нужно написать: на какие кнопки что писать и какой вариант решение больше подходит.
заранее огромное спасибо всем за помощь!!!
чек находится ближе к началу координат.