VPF::работа с собственными типами на делфи

Веталька

Дата 9.11.2008, 21:21 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 338
Регистрация: 2.11.2008

Репутация: нет
Всего: 6

нужно сделать лабу по информатике на двух языках паскаль и дельфи вот задача: вывести на екран все буквы которые входят в предложение или слово в алфавитном порядке (буквы недолжны повторятся), на паскале ето выглядит так:

Код


Uses Crt;
Type
ABC = (a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z);

Procedure Proverka(str1:String;PSimbol:Char);
Var
 Bool1:Boolean;
 I:Integer;
begin
      Bool1:=False;

        For I:=1 To Length(Str1) do
      Begin
        If PSimbol=Str1[I] Then bool1:=True;

      End;
        if bool1 = true then Writeln(PSimbol);
  End;

Var
    Simb1:ABC;
    Str:STring;
Begin
Clrscr;
Writeln('Vvedite pledlogenie:');
Readln(Str);
writeln;
Writeln('bukvu yaki prusytni v re4inni:');
For Simb1:=a to z do
  Case Simb1 of
    a:Proverka(Str,'a');
    b:Proverka(Str,'b');
    c:Proverka(Str,'c');
    d:Proverka(Str,'d');
    e:Proverka(Str,'e');
    f:Proverka(Str,'f');
    g:Proverka(Str,'g');
    h:Proverka(Str,'h');
    i:Proverka(Str,'i');
    j:Proverka(Str,'j');
    k:Proverka(Str,'k');
    l:Proverka(Str,'l');
    m:Proverka(Str,'m');
    n:Proverka(Str,'n');
    o:Proverka(Str,'o');
    p:Proverka(Str,'p');
    q:Proverka(Str,'q');
    r:Proverka(Str,'r');
    s:Proverka(Str,'s');
    t:Proverka(Str,'t');
    u:Proverka(Str,'u');
    v:Proverka(Str,'v');
    w:Proverka(Str,'w');
    x:Proverka(Str,'x');
    y:Proverka(Str,'y');
    z:Proverka(Str,'z');
  end;
  Readln;
end.

как написать етот код в дельфи ?, у меня возникли проблемы в строчках:

Код



Var
    Simb1:ABC;
    Str:STring;

Это сообщение отредактировал(а) Веталька - 9.11.2008, 21:22

--------------------

Ради зачета студент идет на все, даже на лекции........................

ivan219

Дата 10.11.2008, 00:36 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 5
Всего: 12

Невижу в чём собственно проблема

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  ABC = (a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z);
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Simb1:ABC;
  Str, Str1:String;

implementation

{$R *.dfm}

Procedure Proverka(str: String; PSimbol: Char);
Var
   I: Integer;
begin
 For I := 1 To Length(Str) do
  If PSimbol = Str[I] then
   begin
    Str1 := Str1 + PSimbol;
    Break;
   end;
End;


procedure TForm1.Button1Click(Sender: TObject);
var
  FFile: TStringList;
begin
 FFile := TStringList.Create;
 Str := Edit1.Text;
 For Simb1:=a to z do
  Case Simb1 of
    a:Proverka(Str,'a');
    b:Proverka(Str,'b');
    c:Proverka(Str,'c');
    d:Proverka(Str,'d');
    e:Proverka(Str,'e');
    f:Proverka(Str,'f');
    g:Proverka(Str,'g');
    h:Proverka(Str,'h');
    i:Proverka(Str,'i');
    j:Proverka(Str,'j');
    k:Proverka(Str,'k');
    l:Proverka(Str,'l');
    m:Proverka(Str,'m');
    n:Proverka(Str,'n');
    o:Proverka(Str,'o');
    p:Proverka(Str,'p');
    q:Proverka(Str,'q');
    r:Proverka(Str,'r');
    s:Proverka(Str,'s');
    t:Proverka(Str,'t');
    u:Proverka(Str,'u');
    v:Proverka(Str,'v');
    w:Proverka(Str,'w');
    x:Proverka(Str,'x');
    y:Proverka(Str,'y');
    z:Proverka(Str,'z');
  end;
 FFile.Add(Str1);
 FFile.SaveToFile('MyFile.txt');
 FFile.Free;
end;
end.

но это корявый код smile

Это сообщение отредактировал(а) ivan219 - 10.11.2008, 11:05

--------------------

Мой первый сайт и моя первая программа!!!!!

THandle

Дата 10.11.2008, 01:02 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372

Все сводится к добавлению директивы {$APPTYPE CONSOLE} smile

Код


program Project1;

{$APPTYPE CONSOLE}

Type
  ABC = (a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z);

Procedure Proverka(str1: String; PSimbol: Char);
Var
  Bool1: Boolean;
  I: Integer;
begin
  Bool1 := False;
  For I := 1 To Length(Str1) do
    If PSimbol=Str1[I] Then
      bool1 := True;
    if bool1 = true then
      Writeln(PSimbol);
End;

Var
  Simb1: ABC;
  Str: STring;
Begin
  Writeln('Vvedite pledlogenie:');
  Readln(Str);
  writeln;
  Writeln('bukvu yaki prusytni v re4inni:');
  For Simb1 := a to z do
    Case Simb1 of
      a: Proverka(Str, 'a');
      b: Proverka(Str, 'b');
      c: Proverka(Str, 'c');
      d: Proverka(Str, 'd');
      e: Proverka(Str, 'e');
      f: Proverka(Str, 'f');
      g: Proverka(Str, 'g');
      h: Proverka(Str, 'h');
      i: Proverka(Str, 'i');
      j: Proverka(Str, 'j');
      k: Proverka(Str, 'k');
      l: Proverka(Str, 'l');
      m: Proverka(Str, 'm');
      n: Proverka(Str, 'n');
      o: Proverka(Str, 'o');
      p: Proverka(Str, 'p');
      q: Proverka(Str, 'q');
      r: Proverka(Str, 'r');
      s: Proverka(Str, 's');
      t: Proverka(Str, 't');
      u: Proverka(Str, 'u');
      v: Proverka(Str, 'v');
      w: Proverka(Str, 'w');
      x: Proverka(Str, 'x');
      y: Proverka(Str, 'y');
      z: Proverka(Str, 'z');
    end;
  Readln;
end.

Код корявый. Выровнял, завтра если будет время может нормальный вариант кину. В час ночи этим заниматься не хочется =)

Rrader

Дата 10.11.2008, 12:05 (ссылка)

(голосов:1)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 18
Всего: 191

Код


program Project1;

{$APPTYPE CONSOLE}

var
  I: Char;
  Str: String;
  J: Integer;
  RefArray: array['a'..'z'] of Boolean;

begin
  WriteLn('Please enter the sentence:');
  ReadLn(Str);
  WriteLn('The following list of letters is sorted in alphabetical order:');
  FillChar(RefArray, SizeOf(RefArray), 0);
  { Только нижний регистр }
  for I := 'a' to 'z' do
    for J := 1 to Length(Str) do
      if (Str[J] = I) and (not RefArray[I]) then
      begin
        WriteLn(I);
        RefArray[I] := True;
      end;
  ReadLn;
end.

Это сообщение отредактировал(а) Rrader - 10.11.2008, 12:11

--------------------

Let's do this quickly!
Rest in peace, Vit!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »