Question

1. Найти ошибки в программе, сама структура программы составлена верно, но допущено 10 ошибок, исправьте их в тексте, зачеркнув или дописав необходимые символы. Задача. В магазине купили карандаши и тетради. Вычислить сумму покупки. program dex; uses ctr; var ck,ct,summa:real; k,t:byte begin writeln('Skolko kupili karandashei??'); readln(t); writeln('Skolko stoit odin karandash??'); readln(ck); writeln('Skolko kupili tetradei??') readln(t); writelen('Skolko stoit odna tetrad??); readln(ct); suma:=k+ck+t*ct; writeln ('summa pokupki = ',summa:6:2 ' rub.'); readln; end

Answer 1

Ответ: Вот правильный (не уверен, но большинство ошибок думаю я исправил)

program dex;

uses

   ctr;

var ck,ct,summa:real;

     k,t:byte ;

begin

   writeln('Skolko kupili karandashei??');

   readln(t);  

   writeln('Skolko stoit odin karandash??');

   readln(ck);

   writeln('Skolko kupili tetradei??') ;

   readln(t);

   writeln('Skolko stoit odna tetrad??);

   readln(ct);

   summa:=k+ck+t*ct;

   writeln ('summa pokupki = ',summa:6:2 ' rub.');

   readln;

end.

я хз почему тут нужен модуль ctr

Answer 2

Вот исправленный вариант программы с исправленными ошибками:

pascalCopy code
program dex;
uses crt;

var
  ck, ct, summa: real;
  k, t: byte;

begin
  writeln('Skolko kupili karandashei??');
  readln(t);
  writeln('Skolko stoit odin karandash??');
  readln(ck);
  writeln('Skolko kupili tetradei??');
  readln(k); // Здесь была ошибка, должно быть k вместо t
  writeln('Skolko stoit odna tetrad??');
  readln(ct);
  summa := k * ck + t * ct; // Здесь была ошибка, должно быть k * ck вместо k + ck
  writeln('summa pokupki = ', summa:6:2, ' rub.'); // Здесь была ошибка, нужна запятая после summa:6:2
  readln;
end.

Исправления:

1. Заменено writelen на writeln в двух местах.
2. Заменено readln(t); на readln(k);.
3. Заменено suma := k + ck + t * ct; на summa := k * ck + t * ct;.
4. Добавлена запятая после summa:6:2.