FRELA Суббота, 21.10.2017, 13:27
Главная | PDA версия сайта | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ИМХО 
Форум Фрэла МАИ » Учёба » Информатика » проги на делфи (давайте выкладывайте)
проги на делфи
tashaДата: Пятница, 05.10.2007, 22:35 | Сообщение # 1
Лейтенант
Группа: Основатели
Сообщений: 70
Награды: 0
Репутация: 2
Статус: Offline
11 лаба нада подсчитать колиство вхождений строки TX в строку S
Прикрепления: 17334461.rar(3Kb)


1 капля никотина убивает лошадь, а 1 капля фейри убивает жирную лошадь.
 
NIMESISДата: Среда, 17.10.2007, 14:06 | Сообщение # 2
Генерал-полковник
Группа: Администраторы
Сообщений: 1142
Награды: 7
Репутация: 26
Статус: Offline
11 лаба

Задание:
Заменить в строке все символы на предьидущие (по алфавиту).

Code
unit Unit1;

interface

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

type
   TForm1 = class(TForm)
     Edit1: TEdit;
     Edit2: TEdit;
     Label1: TLabel;
     Label2: TLabel;
     Button1: TButton;
     Edit3: TEdit;
     procedure Button1Click(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

var
   Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var sy,sz,sk,al:string; p,k,n:integer;
begin
sy:=edit1.Text;
al:=edit3.text;
n:=length(sy);
for k:=1 to n do
     begin
     sk:=copy(sy,k,1);
     p:=pos(sk,al);
     if p = 1 then
       begin
       sk:=al[length(al)];
       end
     else
       begin
       sk:=pred(al[P]);
       end;
     insert(sk,sz,k);

     end;
edit2.Text:=sz;
end;

end.
Прикрепления: Project1.exe(376Kb)


Пропеллер, громче песню пой,
Неси распластанные крылья!
За вечный мир, в последний бой
Лети, стальная эскадрилья!
Там, где пехота не пройдёт
И бронепоезд не промчится,
Угрюмый танк не проползёт,
Там пролетит стальная птица.

Полный текст песни Мой дневник

 
NIMESISДата: Понедельник, 05.11.2007, 12:29 | Сообщение # 3
Генерал-полковник
Группа: Администраторы
Сообщений: 1142
Награды: 7
Репутация: 26
Статус: Offline
Здесь лежат все проги из методички.
Кому хочется посмотреть или нужны тексты процедур могут скачать.


Пропеллер, громче песню пой,
Неси распластанные крылья!
За вечный мир, в последний бой
Лети, стальная эскадрилья!
Там, где пехота не пройдёт
И бронепоезд не промчится,
Угрюмый танк не проползёт,
Там пролетит стальная птица.

Полный текст песни Мой дневник

 
NIMESISДата: Понедельник, 10.12.2007, 13:38 | Сообщение # 4
Генерал-полковник
Группа: Администраторы
Сообщений: 1142
Награды: 7
Репутация: 26
Статус: Offline
Вот, кажется кто-то просил выложить все мои лабы с отчётами....

Пропеллер, громче песню пой,
Неси распластанные крылья!
За вечный мир, в последний бой
Лети, стальная эскадрилья!
Там, где пехота не пройдёт
И бронепоезд не промчится,
Угрюмый танк не проползёт,
Там пролетит стальная птица.

Полный текст песни Мой дневник

 
LenOKДата: Вторник, 11.12.2007, 12:13 | Сообщение # 5
Полковник
Группа: Основатели
Сообщений: 174
Награды: 0
Репутация: 11
Статус: Offline
ПАРОЛЬ????ты установил пароль???
как ты мог???
а я хотела посмотреть как отчеты делать... dry


не обольщайтесь,если вам улыбнулась удача.возможно она просто оскалилась...
 
NIMESISДата: Вторник, 11.12.2007, 12:29 | Сообщение # 6
Генерал-полковник
Группа: Администраторы
Сообщений: 1142
Награды: 7
Репутация: 26
Статус: Offline
Пароль 1294 , я же написал?

Пропеллер, громче песню пой,
Неси распластанные крылья!
За вечный мир, в последний бой
Лети, стальная эскадрилья!
Там, где пехота не пройдёт
И бронепоезд не промчится,
Угрюмый танк не проползёт,
Там пролетит стальная птица.

Полный текст песни Мой дневник

 
ИМХОДата: Пятница, 28.12.2007, 07:25 | Сообщение # 7
Генерал-лейтенант
Группа: Модераторы
Сообщений: 520
Награды: 0
Репутация: 7
Статус: Offline
ктонибудь знает во сколько сегодня информатика будет?

Аццкий катЯра-сатанА !!! B)
 
ZhoroffДата: Пятница, 28.12.2007, 10:31 | Сообщение # 8
Генерал-майор
Группа: Проверенные
Сообщений: 266
Награды: 1
Репутация: 5
Статус: Offline
Наверное с шести, как и в прошлый раз.

Товарищ, нервы возьми в узду,
Идя на работу не ахай.
Выполнил план- посылай всех в пи.ду!
Не выполнил- шли всех на .уй!
 
Форум Фрэла МАИ » Учёба » Информатика » проги на делфи (давайте выкладывайте)
Страница 1 из 11
Поиск:

By NIMESIS © 2007-2017