Module: 子例程：过程和函数 - 2


Problem

1/10

子程序功能

Theory Click to read/hide

函数是返回结果（数字、字符串等）的子程序

想象一下，您从在线商店订购了一件产品。从编程的角度来看，你调用了某个子程序，与过程不同，这个子程序必须返回一个结果——交付你订购的产品。这些子例程称为函数。
函数的格式化方式与过程非常相似： <前> function <函数名>（参数列表为<变量名>:<其类型>，用分号分隔）：<返回值类型>; 开始 <函数体> 结束；
函数和过程之间的区别在于函数必须返回一个值。为此，您需要使用函数名称作为变量或特殊变量 Result： <前> 函数总和（a，b：整数）：整数； 开始 总和 := a + b; 结束； 或者 <前> 函数总和（a，b：整数）：整数； 开始 结果 := a + b; 结束；
返回两个整数的算术平均值的函数如下所示： <前> 函数平均（a，b：整数）：实数； 开始  平均值：=（a + b）/ 2； 结尾; 还需要了解如何在主程序中调用此函数：
您不应该像调用过程一样调用函数： <前> 平均值(10, 5); 函数返回的值将丢失。就好像网店的货没有给任何人，而是扔掉了一样。客户不太可能会喜欢。

将结果保存在变量中（或将其打印到屏幕上）更为正确： <前> 一个 := 平均值 (10, 5);

或

<前> writeln(平均(10, 5));

Problem

编写一个函数，计算一个自然数的各位数字之和。
使用这个函数，编写一个程序，在输入的 5 个自然数中，找到数字和最大的数字。如果有几个这样的数字，打印较大的数字
 
例子 <头> <日># <正文>

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
输入 输出
1 15
234
11
9
111112		 234
Write the program below 
var n, i, max, nmax: integer;
// функция, которая вычисляет сумму цифр числа    
// основная программа   
begin
    max := 0;
    nmax := 0; 
    for i := 0 to 4 do
    begin 
    end;
    writeln(nmax);
end.

     

Program check result

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