Дана программа на Паскале. Нужно в делфи переделать!
P.S. дана строка S1. слова в этой строке разделены запятой (к примеру: работа,робот). найти длину самого длинного слова
Код:
var
s, a: string;
i, f, j, k, max: integer;
begin
write('s1='); readln(s);
for i := 1 to length(s) do
if s[i] <> ',' then a := a + s[i]
else
begin
inc(k);
if length(a) > max then max := length(a);
a := '';
end;
writeln('Длина самого длинного слова=', max);
end.
s, a: string;
i, f, j, k, max: integer;
begin
write('s1='); readln(s);
for i := 1 to length(s) do
if s[i] <> ',' then a := a + s[i]
else
begin
inc(k);
if length(a) > max then max := length(a);
a := '';
end;
writeln('Длина самого длинного слова=', max);
end.
Если не ошибаюсь, здесь нет элементов делфи, можно просто копировать в паскаль-компилятор и все.
так мне нужен делфи
да никакой разницы.
просто ctrl+c ctrl+v и все.
просто ctrl+c ctrl+v и все.
не ребят тут по моему ввод и вывод другие
Цитата: akrabat3000
не ребят тут по моему ввод и вывод другие
Чем же?
ну во первых в делфи нет Write и Readln там нужно выводить или в панель или в мемо или в лейбл я когда вывожу прогррамма тупит и пишит неизвестные ошибки. потом нужно прописать еще несколько переменных.
Цитата: akrabat3000
ну во первых в делфи нет Write и Readln там нужно выводить или в панель или в мемо или в лейбл я когда вывожу прогррамма тупит и пишит неизвестные ошибки. потом нужно прописать еще несколько переменных.
1) Создать консольный проект.
2) Вставить свой код.
3) ...
4) PROFIT!
Цитата: akrabat3000
ну во первых в делфи нет Write и Readln там нужно выводить или в панель или в мемо или в лейбл я когда вывожу прогррамма тупит и пишит неизвестные ошибки. потом нужно прописать еще несколько переменных.
Пока не очень верится что у вас вот так не выводится:
Код:
Edit1.Text := 'Длина самого длинного слова=' + IntToStr(max);
или так:
Memo1.Lines.Add( 'Длина самого длинного слова=' + IntToStr(max));
или так:
Memo1.Lines.Add( 'Длина самого длинного слова=' + IntToStr(max));
Вот например первое что попалось под руку в поисковике, при вводе слов Delphi и Write:
http://www.delphibasics.ru/Write.php