Pascal -> Delphi

@123Roman · Регистрация: 27.04.2014

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

Помогите переделать код Паскаля в Делфи

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
uses crt;
const rz=[' ','.',',','-','?','!'];{символы, разделители слов, можно добавить}
var f:text;
    s,s1:string;
    n,i,i1,k,d,mx:byte;
begin
assign(f,'1.txt');
rewrite(f);{файл для записи результата}
{определяем максимальную длину слова}
writeln('Введите строку');
readln(s);
n:=length(s);
i:=1;
mx:=0;
i1:=1;
while i<=n do
if not(s[i] in rz)and ((i=1)or(s[i-1] in rz)) then{если не разделитель
                         и первый или перед ним разделитель, то начало слова*}
 begin
  k:=i;
  d:=0;
  while (k<=n) and not(s[k] in rz) do {пока не разделитель и не конец строки}
   begin
    d:=d+1;
    k:=k+1;
   end;
  if d>mx then
   begin
    mx:=d;
    i1:=i
   end;
  i:=i+d+1
 end
else i:=i+1;{пропускаем разделители}
for i:=i1 to i1+mx-1 do
s[i]:='*';
writeln(s);
writeln(f,s);
close(f);
end.

@123Roman · 19.05.2014, 18:20 **[ТС]**

спасибо бошьшое

Новые блоги и статьи Все статьи Все блоги /
сукцессия 29. Переход от одних деревьев на другие делать более или менее вероятностным? anaschu 12.07.2026 Насколько смена типов микоризы — исключительное событие в двухвековой сукцессии? Оценка вероятности в пространстве параметров В текущей версии модели успешно реализован ключевой механизм. . .	сукцессия 27. Думаю, как переделывать уже написанную статью с планами на сукцессию. anaschu 12.07.2026 Анализ соответствия модели требованиям Реализованные компоненты: Механизм закисления почвы через протонную помпу Конкуренция между типами микориз pH как триггер сукцессии C/ P соотношение. . .	Сукцессия 26. Мат модель создана. anaschu 12.07.2026 Модель смены растительных сукцессий посредством управления грибами работает внутри небольшой ячейки почвы, восстанавливающейся после пожара, где ненадолго бывшее царство хвойных снова захватили. . .	Решил проблему с ошибкой пагинации сообщений с сервера на алгоритме обхода дерева "Эстафета хвоста". Hrethgir 12.07.2026 Проблема была в том, что удалялась именно новая кнопка, а не старая. Ни один ИИ не обнаружил это, а сам я смог только когда с работой стало попроще и когда заставил работать будущее автономное. . .
сукцессия 25. Хронология ошибок anaschu 12.07.2026 # От 50-тонного гриба до устойчивого леса: хроника ошибок при построении модели вековой сукцессии микоризы ## О чём эта статья В процессе построения ОДУ-модели (система дифференциальных. . .	сукцессия 24. Промежуточное общее описание модели anaschu 12.07.2026 Хендофф: модель АМ→ЭКМ сукцессии микоризы (ризосфера, 50 лет) Содержание проекта Симуляция вековой (50 лет) экологической сукцессии в почве леса Основные участники: АМ-гриб, ЭКМ-гриб,. . .	сукцессия 23. Более физиологичная физиология, более экологичная экология, более диффурные диффуры. anaschu 12.07.2026 Что реально нашли и починили за эти 5 часов Правило Линдемана (КПД конверсии сахара в тело, kEff) — раньше 100% полученного углерода шло прямо в биомассу гриба; теперь только kEff=0. 5 (после. . .	сукцессия 22. От артефактов к физиологии: калибровка агентной модели грибной сукцессии для воспроизведения сезонной динамики и pH-плато anaschu 11.07.2026 Аннотация В данной работе представлена калибровка агентной модели динамики грибных сообществ (fungal-succession), направленная на устранение нефизичных артефактов (коллапс биомассы, мгновенное. . .

@123Roman 0 / 0 / 0 Регистрация: 27.04.2014 Сообщений: 77
	19.05.2014, 18:20 [ТС]
	спасибо бошьшое 0