Добавить в начало и в конец строки минимально возможное одинаковое количество букв A, чтобы ее длина стала как минимум в 2 раза больше

@SergStLv · Регистрация: 25.10.2009

Author24 — интернет-сервис помощи студентам

Вводится строка. Добавить ей в начало и в конец минимально возможное одинаковое количество букв A, чтобы ее длина стала как минимум в 2 раза больше.

Delphi

var s:string;
    i:integer;
    n:extended;
begin
 s:=Edit1.Text;
 i:=length(s);
 n:=0;
 n:=i mod 2;
  begin
if n<>0 then
n:=n+1
  end;
while n>0 do
 begin
  Insert ('a',s,i+1);
  dec(n);
 end;
Label3.Caption:=s;
end;
end.

Выдаёт такую ошибку:
[Error] Unit1.pas(69): Left side cannot be assigned to
[Fatal Error] Project2.dpr(5): Could not compile used unit 'Unit1.pas'

Может кто подсказать, в чём дело?

@*~<`PIK`>~* · 09.01.2010, 23:58

На какую строку ругается???

@SergStLv · 10.01.2010, 00:01 **[ТС]**

dec(n); Эту красной полосой выделяет.

deathNC · 10.01.2010, 00:08

i := i - 1;

Добавлено через 38 секунд
Извиняюсь, переменную перепутал:

Delphi

1	n := n - 1;

@SergStLv · 10.01.2010, 00:11 **[ТС]**

Всё спасибо, помогло. Чего-то я забыл про такой способ

@*~<`PIK`>~* · 10.01.2010, 00:12

Сообщение от deathNC

Delphi

1	n := n - 1;

Процедура Dec делает тоже самое вот только не пойму почему ругается

Добавлено через 48 секунд
ну а n:=n-1 это самый простой способ)))

@SergStLv · 10.01.2010, 00:14 **[ТС]**

Вот и я о том-же. На другой кнопке этой программы "dec" работает, а здесь нет, непойму почему.

deathNC · 10.01.2010, 00:15

насколько я знаю, быстрее выполняется n:=n-1;
тут действие выполняется, а процедуру Dec и вызвать надо, и действия в ней происходят...

конечно есть более рациональные способы:
на ассемблере математику прорабатывать... но, это кто уж сумеет!!

@Mawrat · 10.01.2010, 02:11

Сообщение от SergStLv

На другой кнопке этой программы "dec" работает, а здесь нет, непойму почему.

На Dec(n) компилятор ругается, потому что переменная n объявлена так:
n:extended;
Dec(Val), Inc(Val), Succ(Val), Pred(Val) - применимы только к переменным порядкового типа и указателям. - Это целые, символы (Char, AnsiChar, WideChar), перечисления и указатели.

Сообщение от DeathNC

насколько я знаю, быстрее выполняется n:=n-1;

Нет - Inc(i), Dec(i) работают быстрее чем i +1; и i - 1.

Для этих процедур компилятор создаёт оптимизированный код. Inc() и Dec() рекомендованы для использования в циклах для увеличения скорости.

@SergStLv · 10.01.2010, 22:53 **[ТС]**

Спасибо, теперь понятно.

Добавлено через 17 минут

Delphi

procedure TForm1.Button2Click(Sender: TObject);
var s:string;
    i,k:integer;
    m:extended;
begin
 s:=Edit1.Text;
 i:=length(s);
 k:=0;
 m:=0;
 m:=i mod 2;
 if m<>0 then
  k:=i div 2+1
 else
 if m=0 then
  k:=i div 2;
 end;
 while k>0 do
  begin
  Insert ('a',s,i+1);
  dec (k);
  end;
Label3.Caption:=s;
end;
end.

Код

[Hint] Unit1.pas(64): Value assigned to 'k' never used
[Hint] Unit1.pas(67): Value assigned to 'k' never used
[Hint] Unit1.pas(61): Value assigned to 'm' never used
[Hint] Unit1.pas(60): Value assigned to 'k' never used
[Error] Unit1.pas(69): Declaration expected but 'WHILE' found
[Error] Unit1.pas(71): Undeclared identifier: 's'
[Error] Unit1.pas(72): Undeclared identifier: 'k'
[Error] Unit1.pas(73): '.' expected but ';' found
[Warning] Unit1.pas(75): Text after final 'END.' - ignored by compiler
[Fatal Error] Project2.dpr(5): Could not compile used unit 'Unit1.pas'

Теперь ругается на строку

Delphi

1	while k>0 do

deathNC · 10.01.2010, 23:05

А перед строкой, на которую ругается, точно надо "end;" ставить... по моему нет...

Добавлено через 1 минуту
извиняюсь, ошибочка
end нужен

Добавлено через 6 минут

Сообщение от SergStLv

Спасибо, теперь понятно.

Добавлено через 17 минут
[DLPHI]
procedure TForm1.Button2Click(Sender: TObject);
var s:string;
i,k:integer;
m:extended;
begin
s:=Edit1.Text;
i:=length(s);
k:=0;
m:=0;
m:=i mod 2;
if m<>0 then
k:=i div 2+1
else
if m=0 then
k:=i div 2;
end;
while k>0 do
begin
Insert ('a',s,i+1);
dec (k);
end;
Label3.Caption:=s;
end;
end.[/DELPHI]

[Hint] Unit1.pas(64): Value assigned to 'k' never used
[Hint] Unit1.pas(67): Value assigned to 'k' never used
[Hint] Unit1.pas(61): Value assigned to 'm' never used
[Hint] Unit1.pas(60): Value assigned to 'k' never used
[Error] Unit1.pas(69): Declaration expected but 'WHILE' found
[Error] Unit1.pas(71): Undeclared identifier: 's'
[Error] Unit1.pas(72): Undeclared identifier: 'k'
[Error] Unit1.pas(73): '.' expected but ';' found
[Warning] Unit1.pas(75): Text after final 'END.' - ignored by compiler
[Fatal Error] Project2.dpr(5): Could not compile used unit 'Unit1.pas'

Теперь ругается на строку while k>0 do

Delphi

procedure TForm1.Button2Click(Sender: TObject);
var
  s: String;
  i, k: Integer;
  m: Extended;
begin
  s := Edit1.Text;
  i := length(s);
  k := 0;
  m := 0;
  m := i mod 2;
  If m <> 0 then
    k := i div 2+1
  Else if m=0 then
    k:=i div 2;
  While k>0 do
    begin
      Insert ('a',s,i+1);
      dec (k);
    end;
  Label3.Caption:=s;
end;
 
Вот, подправил... проверь

@SergStLv · 10.01.2010, 23:11 **[ТС]**

Спасибо, работает.

@~<`PIK`>~ ﻌﺹ ﺦ ﺖﻀ ﺹ ﻙ ﺵﻔ ﺊ ﺘﺝ 607 / 387 / 81 Регистрация: 15.12.2009 Сообщений: 753
	09.01.2010, 23:58	2
	На какую строку ругается??? 1

@SergStLv 0 / 0 / 0 Регистрация: 25.10.2009 Сообщений: 44
	10.01.2010, 00:01 [ТС]	3
	dec(n); Эту красной полосой выделяет. 0

@SergStLv 0 / 0 / 0 Регистрация: 25.10.2009 Сообщений: 44
	10.01.2010, 00:11 [ТС]	5
	Всё спасибо, помогло. Чего-то я забыл про такой способ 0

@SergStLv 0 / 0 / 0 Регистрация: 25.10.2009 Сообщений: 44
	10.01.2010, 00:14 [ТС]	7
	Вот и я о том-же. На другой кнопке этой программы "dec" работает, а здесь нет, непойму почему. 0

deathNC 1905 / 1016 / 123 Регистрация: 08.12.2009 Сообщений: 2,792 Записей в блоге: 2
	10.01.2010, 00:15	8
	насколько я знаю, быстрее выполняется n:=n-1; тут действие выполняется, а процедуру Dec и вызвать надо, и действия в ней происходят... конечно есть более рациональные способы: на ассемблере математику прорабатывать... но, это кто уж сумеет!! 0

@Mawrat 13104 / 5885 / 1706 Регистрация: 19.09.2009 Сообщений: 8,808
	10.01.2010, 02:11	9
	Сообщение от SergStLv На другой кнопке этой программы "dec" работает, а здесь нет, непойму почему. На Dec(n) компилятор ругается, потому что переменная n объявлена так: n:extended; Dec(Val), Inc(Val), Succ(Val), Pred(Val) - применимы только к переменным порядкового типа и указателям. - Это целые, символы (Char, AnsiChar, WideChar), перечисления и указатели. Сообщение от DeathNC насколько я знаю, быстрее выполняется n:=n-1; Нет - Inc(i), Dec(i) работают быстрее чем i +1; и i - 1. Для этих процедур компилятор создаёт оптимизированный код. Inc() и Dec() рекомендованы для использования в циклах для увеличения скорости. 2

@SergStLv 0 / 0 / 0 Регистрация: 25.10.2009 Сообщений: 44
	10.01.2010, 23:11 [ТС]	12
	Спасибо, работает. 0