- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
procedure TForm1.Button1Click(Sender: TObject);
var i,i2,p,g,gg3: integer;
gg:string;
gg2: Real;
begin
g:=0;
gg:=intTOstr((Length(Memo1.Lines.Text)));
gg2:=StrToFloat(gg)/4;
gg3:=Trunc(gg2);
gg:=Memo1.Lines.Text;
for i2:=1 to gg3 do begin
p:=pos('котэ',gg);
if p>0 then begin
Delete(gg,p,4);
g:=g+1;
Label1.Caption:=IntToStr(g);
end;
end;
end;
Все когда-то были студентами... Не все, среди них, такие...
В любом случае говнокод на лабе - это нормально. Чем быстрее написал и отмахнулся - тем лучше. Поддерживать этот код потом всё равно не нужно. Даже ошибки все исправлять не нужно. Главное что-бы их не заметил преподаватель. И самое главное, что-бы человек, действительно, умел писать программы нормально.
Задача, эксплуатировать которую будут лишь 10 секунд - должна быть стольже экономичной по трудозатратам.
gg:=intTOstr((Length(Memo1.Lines.Text))) ;
gg2:=StrToFloat(gg)/4;
gg3:=Trunc(gg2);
Это как удаление гланд через известно что