Module: Alt programlar: prosedürler ve işlevler - 1


Problem

7/12

Program kodunu kısaltın

Problem

Rabbit Clover programlamayı öğrenmeye devam ediyor. Çizgileri çoktan inceledi. Son zamanlarda, alt programların, yani prosedürlerin çalışmasına geçti. Ama onları nasıl kullanacağını anlamıyor. Son zamanlarda Clover, bir sütundaki iki cümleden en uzun kelimeleri yazdıracak bir program yazmak istedi (bu tür birkaç kelime varsa, o zaman ilk karşılaştığını alırdı). Prosedürleri tamamen unuttu ve çok karmaşık bir program yazdı.
İşte burada: 
var max, n: tamsayı;
s1, s2, kelimeMax, kelime:dize;

başlamak
    readln(s1);
    readln(s2);
    maks := 0;
    s1 := s1 + ' ';
    uzunluk(s1) >; 0 başlamak için
        n := konum(' ', s1);
        kelime := kopya(s1, 1, n);
        uzunluk(kelime) > maksimum sonra başla
            maks := uzunluk(kelime);
            kelimeMax := kelime;
        son;
        sil(s1, 1, n);
    son;
    writeln(kelimeMax);
    
    maks := 0;
    s2 := s2 + ' ';
    uzunluk(s2) >; 0 başlamak için
        n := konum(' ', s2);
        kelime := kopya(s2, 1, n);
        uzunluk(kelime) > maksimum sonra başla
            maks := uzunluk(kelime);
            kelimeMax := kelime;
        son;
        sil(s2, 1, n);
    son;
    writeln(kelimeMax);
son.
Katılıyorum, bu anlaşılması oldukça zor bir program. 
Prosedürde aynı eylemleri seçerek Clover the Rabbit'in programı geliştirmesine yardım edin.

time 1000 ms
memory 256 Mb
Rules for program design and list of errors in automatic problem checking

Teacher commentary

Insert the missing code snippets
Pascal
Write the program below 
var max, n: integer;
s1, s2, wordMax, word: string;

procedure printMaxWord(s: string);
begin 
end;

begin
    readln(s1);
    readln(s2);
    printMaxWord(s1);
    printMaxWord(s2);
end.

     

Program check result

To check the solution of the problem, you need to register or log in!