主页 / user-352423

Сергей Морозов's questions

Martin Hope
Сергей Морозов
Asked: 2020-09-23 23:09:55 +0000 UTC
  • -1

我的朋友，一个 9 年级的学生，收到了一份计算机科学的家庭作业，即用 Pascal ABC 编写一个程序。条件听起来是这样的：报纸的街头小贩从出售 50 份报纸中的每一份中获得一个卢布。从随后的每份报纸的销售中，他获得了 20% 以上的收益。开发一个程序，计算推销员一天卖出 200 份报纸的收入。使用 input.txt 和 output.txt 文件进行输入和输出。

我做了一个程序，简单地计算卖家的收入，并在控制台中显示收到的数据，但我不知道如何处理数据输入和输出。

该程序如下所示：

    Var  
    A:real;  
    k:integer;  
    Begin  
    Write('Стоимость одной газеты: ');ReadLn(A);  
    Write('Количество газет: ');ReadLn(k);  
    if k <= 50 then WriteLn('Заработок продавца: ',k*A,' руб.')  
    else WriteLn('Заработок продавца: ',(A*((k-50)*1.2+50)):0:2,' руб.')  
    End.
pascalabc.net