Найдите ошибки в программах, пожалуйста (Чтобы программы работали)
Answers & Comments
Giammy
Const s=4; var a,d,s:integer; // повторно обьвлена переменная s begin writeln('Введите a и d'); readln(a,d); s:=(2*a+d*(8-1))/2*8; // 1. S-это либо константа(нельзя изменить) // 2. S-это целый тип, поскольку используется "/", то возникнет ошибка writeln('кол-во деталей за 8 часов= ', s); readln; end.
const s:=4; // константные выражения через равно записываются var a,d=integer; // описание переменных происходит через двоеточие begin writeln('Введите а и д'); readln(a,d); s:=(2*a+d*(8-1))/2*8; // константое выражение нельзя изменить writeln('кол-во деталей за 8 часов= ', s); readln; end.
Работающая программа: var a,d:integer; s:real; begin writeln('Введите а и д'); readln(a,d); s:=(2*a+d*(8-1))/2*8; writeln('кол-во деталей за 8 часов= ', s); readln; end.
Answers & Comments
var a,d,s:integer; // повторно обьвлена переменная s
begin
writeln('Введите a и d');
readln(a,d);
s:=(2*a+d*(8-1))/2*8; // 1. S-это либо константа(нельзя изменить)
// 2. S-это целый тип, поскольку используется "/", то
возникнет ошибка
writeln('кол-во деталей за 8 часов= ', s);
readln;
end.
const s:=4; // константные выражения через равно записываются
var a,d=integer; // описание переменных происходит через двоеточие
begin
writeln('Введите а и д');
readln(a,d);
s:=(2*a+d*(8-1))/2*8; // константое выражение нельзя изменить
writeln('кол-во деталей за 8 часов= ', s);
readln;
end.
Работающая программа:
var a,d:integer;
s:real;
begin
writeln('Введите а и д');
readln(a,d);
s:=(2*a+d*(8-1))/2*8;
writeln('кол-во деталей за 8 часов= ', s);
readln;
end.