0

Довольно давно на школьной олимпиаде было задание (чуть ниже), написать я его на pascal не смог, но легко разделался с ним на php. Но всё таки интересно, как бы смотрелось решение на pascale

Вот сама задача:

Вводится простое повествовательное предложение (слова разделены пробелом). Вывести на экран слово наибольшей длины. Программа должна: а) принять исходное предложение с клавиатуры б) вывести на экран слово наибольшей длины

Вот моё решение на php

$item = $_POST["item"];//введенное предложение  
$array = explode(" ",$item);  
$max["length"] = 0;  
$max["word"] = "";  
    for($i=0;$i < count($array);$i++)  
    {  
        if(strlen($array[$i]) > $max["length"])  
        {  
        $max["word"] = $array[$i];  
        $max["length"] = strlen($array[$i]);  
        }  
    }  
echo "Первое самое длинное слово: <b>".$max["word"]."[".$max["length"]."]</b>";
}

1 ответ 1

2
program prog1;
{$APPTYPE CONSOLE}
var i, ws: integer;
    sentence, wmax: string;

begin
ReadLn(sentence);
sentence := Concat(sentence, ' ');
wmax := '';
ws := 1;
for i := 1 to Length(sentence) do
  if (sentence[i] = ' ') then begin
    if (i - ws > Length(wmax)) then
      wmax := Copy(sentence, ws, i - ws);
    ws := i+1;
    end;
WriteLn(wmax);
ReadLn;
end.

Delphi7, если что

UPD оптимизировал немного

UPD2 специально для автора, проверенный вариант в turbo pascal. Ищем отличия)

program prog1;
var i, ws: integer;
    sentence, wmax: string;

begin
ReadLn(sentence);
sentence := Concat(sentence, ' ');
wmax := '';
ws := 1;
for i := 1 to Length(sentence) do
  if (sentence[i] = ' ') then begin
    if (i - ws > Length(wmax)) then
      wmax := Copy(sentence, ws, i - ws);
    ws := i+1;
    end;
WriteLn(wmax);
ReadLn;
end.
5
  • 1
    @oxyage, не разбрасывайтесь кармой, для этого есть слева от ответа кнопка =)
    – Sh4dow
    20 ноя 2011 в 11:10
  • спасибо за совет и за ответ :) и всё таки, хочется увидеть и на паскале решение
    – oxyage
    20 ноя 2011 в 13:23
  • 1
    Хм, а разница?) Ну ща попробую TP откопать, проверю.
    – Sh4dow
    20 ноя 2011 в 13:27
  • Обновил ответ.
    – Sh4dow
    20 ноя 2011 в 13:40
  • хм)) отличий действительно почти нет, спасибо за помощь
    – oxyage
    20 ноя 2011 в 18:28

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.