Какой язык программирования выбрать?

alert2006. Интересная задачка попалась. Я сначала, по глупости, задал два цикла, потом и тормозил. Вот программа на Бейсике, у меня работает.
'Соответствие строк
CLS
DIM A, B, K, P, M, Q AS INTEGER
Q = 1
INPUT "Введи первую строку "; A$
INPUT "Введи вторую строку"; B$
A = LEN(A$)
B = LEN(B$)
FOR I = 1 TO A
A1$ = MID$(A$, I, 1)
B1$ = MID$(B$, Q, 1)
Q = Q + 1
IF A1$ = B1$ THEN K = K + 1
NEXT I
IF A >= B THEN M = A ELSE M = B
P = K * 100 / M
PRINT "Процент соответствия строки "; A$; " и строки "; B$; " равен "; P; "%";
END
Ну как ?

Цитата

А что, тоже вариант. Молодца!

OFF:

Кстати, я сейчас заканчиваю писать прогу которая рисует логические схемы в графическом представление по экселевским файлам из раздела "Логические схемы для Интегратора" т.е. указываешь файл а она тебе строит схему, это удобнее и быстрее чем самому по таблице чертить. Скоро я выложу бетку, ждите! Софтина будет бесплатной, но без исходников. Пишу на Delphi 7.

Сообщение отредактировал alert2006: 16 December 2006 - 13:40

Тот же самый код, только на Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
 a,b,k,m,q,i,p: integer;
 s1,s2,a1,b1: string;
begin
s1:=inputbox('Запрос','Введите первую строку','');
s2:=inputbox('Запрос','Введите вторую строку','');

a:=length(s1);
b:=length(s2);

for i:=1 to a do 
begin
  a1:=s1[i];
  b1:=s2[i];
  if a1 = b1 then
  begin
    inc(k);
  end;
end;

if a >= b then
begin
  m:=a;
end else
begin
  m:=b;
end;

p:=round(k*100/m);

showmessage('Процент соответствия строки: '+IntToStr(p)+'%');
end;

Сообщение отредактировал alert2006: 16 December 2006 - 14:04

alert2006
Спасибо за код на Делфи, хорошая помощь для изучения данного яззыка и перехода с Бейсика на Делфи.

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

А Вас этому всему в СГА учат?

До того как попала сюда и прочитала вашу беседу(извините за внедрение) считала себя не плохим программистом!

Расстроилась прям

Лилу (23.12.2006 - 06:59) писал:

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


я все что знаю в программировании научился с помощью времени и сочетанием клаиш ctrl+f1 и справочнику DRKB.

Цитата

Там научат

Цитата

А я еще + методом научного тыка