|
|
#1
|
|||
|
|||
Помогите с кодом
Как вообще работать с символами
Задание: Написать программу, которая вводит символьный массив из 19-ти или меньшего количества элементов и находит среди них элемент с наименьшим номером в ANSI-таблицы. |
#2
|
||||
|
||||
Char - символ.
Код:
var a: cahr; begin a := 'q'; end; З.Ы. Задание не понял. — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
Этот пользователь сказал Спасибо M.A.D.M.A.N. за это полезное сообщение: | ||
Grynyuk (27.05.2013)
|
#3
|
|||
|
|||
Цитата:
|
#4
|
||||
|
||||
Цитата:
Код:
function PosMinChr(ds: string): byte; var i, b, c: byte; begin c:= 255; for i := 1 to Length(ds) do if c > byte(ds[i]) then begin c:= byte(ds[i]); b:= i; end; PosMinChr:= b; end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
Этот пользователь сказал Спасибо Alegun за это полезное сообщение: | ||
Grynyuk (28.05.2013)
|
#5
|
|||
|
|||
Спасибо большое
|
#6
|
|||
|
|||
byte(ds[i]) ? что оно делает почему не просто ds[i]?
|
#7
|
||||
|
||||
Цитата:
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
Этот пользователь сказал Спасибо Alegun за это полезное сообщение: | ||
Grynyuk (28.05.2013)
|
#8
|
|||
|
|||
Цитата:
Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) btn2: TButton; btn3: TButton; edt1: TEdit; edt2: TEdit; btn1: TButton; lbl1: TLabel; lbl2: TLabel; Label1: TLabel; procedure btn1Click(Sender: TObject); procedure btn2Click(Sender: TObject); procedure btn3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; s:string; i:Integer; implementation {$R *.dfm} procedure TForm1.btn1Click(Sender: TObject); begin edt1.Clear; edt2.Clear; end; procedure TForm1.btn3Click(Sender: TObject); begin form1.Close; end; procedure TForm1.btn2Click(Sender: TObject); var min, i, b, c: byte; ds:string ; begin ds:=edt1.text; begin c:= 255; for i := 1 to Length(ds) do if c > byte(ds[i]) then begin c:= byte(ds[i]); end; edt2.text:= ds[i]; end; end; end. Последний раз редактировалось M.A.D.M.A.N., 28.05.2013 в 11:48. |
#9
|
||||
|
||||
Дядя, пользуйтесь тегом CODE, или вас ждет бан.
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#10
|
||||
|
||||
Цитата:
Код:
procedure TForm1.btn2Click(Sender: TObject); ... Label1.Caption:= ''; c:= 255; for i := 1 to Length(edt1.text) do begin Label1.Caption:= Label1.Caption + ' : ' + IntToStr(byte(edt1.text[i])); if c > byte(edt1.text[i]) then begin c:= byte(edt1.text[i]); b:= i; end; end; edt2.text:= edt1.text[b] + ' : ' + IntToStr(byte(edt1.text[b])); ... Я не понял Вашего вопроса, но всё же Вам на него отвечу! |