Нужна помощь в решении задач на Delphi и Visual Basic

Железо, софт, сети, программирование, ремонт, настройка и обслуживание.

#21  Miker » Вт 3.11.2009, 23:14

Zebraa Не оптимально, не интересно, не соответствует условию задачи и с функцией copy ламерской) Плюсик за структурность только, и то - лишние пробелы))

Если уж искушать студентов, то искушать правильно
"Ох, деньги имеют изрядную силу
Коль можно девицу купить за кобылу"
Аватара пользователя
Miker
постоялец
 
Сообщения: 5057
Зарегистрирован: Вс 1.08.2004, 20:11
Откуда: Иркутскъ

#22  Zebraa » Вт 3.11.2009, 23:43

Miker:Zebraa Не оптимально не интересно,

Предложи оптимальней, в чем проблема??

и с функцией copy ламерской)

сделай без функции) в чем проблема?

Плюсик за структурность только, и то - лишние пробелы))

Ах спасибо, щас умру от радости за такую похвалу!
Там еще добавить надо впереди
Код: Выделить всё
procedure TForm1.Button1Click(Sender: TObject);
var text,a:string;
    i:integer;
    f:textfile;
begin
  assignfile(f,'1.txt');
  reset(f);{open file}
  read(f,text);{read file dim.txt}
  closefile(f);{close file};
  edit1.Text:=text;
  a:='';
    for i:=0 to length(text)-1 do
      begin
        a:=a+copy(text,length(text)-i,1);
      end;
  panel1.Caption:=a;
end;


Добавлено спустя 5 минут 48 секунд:

комментарии к коду не читать)))
Я - Снежинка! Напьюсь и буду все время падать и падать...
Аватара пользователя
Zebraa
постоялец
 
Сообщения: 585
Зарегистрирован: Вс 4.01.2009, 19:19
Откуда: Иркуцк

#23  Miker » Ср 4.11.2009, 0:27

Если уж извращаться над недостудентами, то хотя-бы вот так:

Код: Выделить всё
program Project1;
uses
  SysUtils;
var f1,f2,f3: textfile;
f1name,f2name,f3name: string;
s: string;

function revstr(var a: string): string;
var b,c,d: string;
begin
 b:=a;
 d:=copy(b,2,length(b)-1);
 if length(b)=1 then c:=b else c:=revstr(d)+b[1];
 revstr:=c;
end;


begin
 f1name:='input.txt';
 f2name:='output.txt';
 f3name:='temp.txt';
 assignfile(f1,f1name);
 assignfile(f2,f2name);
 assignfile(f3,f3name);
 if fileexists(f1name) then begin
  rewrite(f2);
  reset(f1);
  rewrite(f3);
  while not eof(f1) do begin
   while not eof(f1) do begin
    readln(f1,s);
    if not eof(f1) then writeln(f3,s);
   end;
   writeln(f2,revstr(s));
   closefile(f1);
   closefile(f3);
   deletefile(f1name);
   rename(f3,f1name);
   f3name:='temp.txt';
   assignfile(f3,f3name);
   reset(f1);
   rewrite(f3);
  end;
  closefile(f2);
 end
 else begin
  writeln('Error! ',f1name,' no exists!');
 end;
 readln;
end.


А с copy я, пожалуй, погорячилсо)) Но и её можно вынести, заменив на полтора пальца собственного кода)
"Ох, деньги имеют изрядную силу
Коль можно девицу купить за кобылу"
Аватара пользователя
Miker
постоялец
 
Сообщения: 5057
Зарегистрирован: Вс 1.08.2004, 20:11
Откуда: Иркутскъ

#24  Zebraa » Ср 4.11.2009, 0:42

Miker:Если уж извращаться над недостудентами, то хотя-бы вот так:

Код: Выделить всё
program Project1;
uses
  SysUtils;
var f1,f2,f3: textfile;
f1name,f2name,f3name: string;
s: string;

function revstr(var a: string): string;
var b,c,d: string;
begin
 b:=a;
 d:=copy(b,2,length(b)-1);
 if length(b)=1 then c:=b else c:=revstr(d)+b[1];
 revstr:=c;
end;


begin
 f1name:='input.txt';
 f2name:='output.txt';
 f3name:='temp.txt';
 assignfile(f1,f1name);
 assignfile(f2,f2name);
 assignfile(f3,f3name);
 if fileexists(f1name) then begin
  rewrite(f2);
  reset(f1);
  rewrite(f3);
  while not eof(f1) do begin
   while not eof(f1) do begin
    readln(f1,s);
    if not eof(f1) then writeln(f3,s);
   end;
   writeln(f2,revstr(s));
   closefile(f1);
   closefile(f3);
   deletefile(f1name);
   rename(f3,f1name);
   f3name:='temp.txt';
   assignfile(f3,f3name);
   reset(f1);
   rewrite(f3);
  end;
  closefile(f2);
 end
 else begin
  writeln('Error! ',f1name,' no exists!');
 end;
 readln;
end.


А с copy я, пожалуй, погорячилсо)) Но и её можно вынести, заменив на полтора пальца собственного кода)

Мда.. дураков работа любит.. Нахер столько пистаь если можно уложиться в меньший код? Больше слов - не значит лучше.
Я - Снежинка! Напьюсь и буду все время падать и падать...
Аватара пользователя
Zebraa
постоялец
 
Сообщения: 585
Зарегистрирован: Вс 4.01.2009, 19:19
Откуда: Иркуцк

#25  Miker » Ср 4.11.2009, 0:53

Чудопословица, тебе известно слово "тренировка"? Всегда используя примитивные алгоритмы, не решаясь на эксперимент в сложной задаче ты попросту зависнешь (см. твоё резкое сваливание из этой темы в прошлый раз).

Ну да, задачки за 2 четверть 7 класса решать будешь. Только смысл? За 3 четверть-то уже нема))

*помнится, кто-то и в экселе журнал школьный лабал, потому что это проще, наверное?*
"Ох, деньги имеют изрядную силу
Коль можно девицу купить за кобылу"
Аватара пользователя
Miker
постоялец
 
Сообщения: 5057
Зарегистрирован: Вс 1.08.2004, 20:11
Откуда: Иркутскъ

#26  Zebraa » Ср 4.11.2009, 1:26

Miker:*помнится, кто-то и в экселе журнал школьный лабал, потому что это проще, наверное?*

если у тебя дохерища времени можешь хоть на лиспе делать.

Добавлено спустя 3 минуты 1 секунду:

Miker:(см. твоё резкое сваливание из этой темы в прошлый раз).

нафиг мне делать еще раз елси кто то сделал? у тебя походу времени много лишнего, вот сиди и делай задачи. и доказывай свою правоту.
Я - Снежинка! Напьюсь и буду все время падать и падать...
Аватара пользователя
Zebraa
постоялец
 
Сообщения: 585
Зарегистрирован: Вс 4.01.2009, 19:19
Откуда: Иркуцк

#27  Miker » Ср 4.11.2009, 1:41

Ты просто не любишь программирование, Зебраа)

Это всё равно что не любить секас, и прикрывать свою ущербность матюками и "огромными профессиональными планами").. Сразу видно
"Ох, деньги имеют изрядную силу
Коль можно девицу купить за кобылу"
Аватара пользователя
Miker
постоялец
 
Сообщения: 5057
Зарегистрирован: Вс 1.08.2004, 20:11
Откуда: Иркутскъ

#28  Zebraa » Ср 4.11.2009, 1:59

Miker:Ты просто не любишь программирование, Зебраа)

Это всё равно что не любить секас, и прикрывать свою ущербность матюками и "огромными профессиональными планами").. Сразу видно

с таким же успехом я могу сказать это и про тебя.
Вообще, с тобой бессмысленно разговаривать. нафиг тебя.
Я - Снежинка! Напьюсь и буду все время падать и падать...
Аватара пользователя
Zebraa
постоялец
 
Сообщения: 585
Зарегистрирован: Вс 4.01.2009, 19:19
Откуда: Иркуцк

#29  Miker » Ср 4.11.2009, 2:09

Zebraa прощай, робот))
"Ох, деньги имеют изрядную силу
Коль можно девицу купить за кобылу"
Аватара пользователя
Miker
постоялец
 
Сообщения: 5057
Зарегистрирован: Вс 1.08.2004, 20:11
Откуда: Иркутскъ

#30  LMsd » Ср 4.11.2009, 6:51

Miker Zebraa В делфи такой код надо писать начиная со слова
Код: Выделить всё
asm
:) изврасченцы. хотя я писал бы побайтовое чтение с последнего символа
Мне всё равно,что вы обо мне думаете. Я о вас не думаю вообще. (с) Коко Шанель
Пишу как и. Как и так и пишу.
http://vk.com/default.xhtml
Изображение
Аватара пользователя
LMsd
постоялец
 
Сообщения: 2837
Зарегистрирован: Чт 17.05.2007, 13:38
Откуда: Боянсг

#31  Славка » Ср 4.11.2009, 19:31

Zebraa:я почти год не открывала делфи))


больше не открывай
Славка
постоялец
 
Сообщения: 3966
Зарегистрирован: Вт 29.08.2006, 15:19
Откуда: Иркутск

#32  Аленька-19 » Вт 17.11.2009, 11:36

Спасиббо за помощь!омогите написать архиватор на делфи
надо написать консольное приложение,чтобы оно упаковывало файлы в .tar :(
Аленька-19
 
Сообщения: 12
Зарегистрирован: Вт 20.10.2009, 10:51
Откуда: Иркутск

#33  Miker » Вт 17.11.2009, 13:48

м.б. надо написать консольное приложение, которое winrar для этого вызывать будет?) Не буду гуглить пока по формату tar *уже погуглил*, но алгоритм сжатия вам известен?

Полезная ссылочка>>http://www.xakep.ru/magazine/xs/062/062/1.asp
"Ох, деньги имеют изрядную силу
Коль можно девицу купить за кобылу"
Аватара пользователя
Miker
постоялец
 
Сообщения: 5057
Зарегистрирован: Вс 1.08.2004, 20:11
Откуда: Иркутскъ

#34  Grozunya » Чт 14.03.2019, 5:13

И все равно самая лучшая компьютерная программа, предназначенная для создания архивов из любых файлов (путем их сжатия), открытия таких архивов и извлечения из них данных Архиватор Winrar. Она подойдет для любого компьютера. Создать архив можно, как со стандартными, так и ручными настройками параметров, что очень удобно. https://winrar-pro.ru/
Grozunya
 
Сообщения: 6
Зарегистрирован: Вс 16.12.2018, 20:00

#35  merlin » Вс 5.05.2019, 4:22

Почитаю.
Аватара пользователя
merlin
 
Сообщения: 24
Зарегистрирован: Ср 27.02.2019, 4:04

Аватара
спонсор



cron