主页 / 问题 / 1027305
Accepted
Сергей Морозов
Asked:2020-09-23 23:09:55 +0000 UTC2020-09-23 23:09:55 +0000 UTC

帮助 Pascal ABC

  • 772

我的朋友，一个 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

1 个回答

  1. Best Answer

    要在初始级别处理文本文件，您需要一堆：
    - 类型变量TextFile （以下简称f）
    - AssignFile(f, имя)
    - Reset/Rewrite（分别用于输入和输出）
    -Readln/Writeln带有第一个参数f
    -CloseFile

    在这种情况下，假定格式是刚性的 - 例如，第一行中的价格，第二行中的数量。在一般情况下，读取可以通过检查到文件末尾，例如while not EOF(f)

    例子

    • 0

相关问题