Question

Срочно помогите решить пожалуйста даю 90 баллов 1. Найдите и объясните ошибку в программе: program ; var a,b,c,d,f,p:integer; begin writeln('Введите 5 численных значений:'); readln(a,b,c,d,f ); p:=a+b+c+d+f; writeln('p=',p); readln end. 2. Найдите и объясните ошибку в программе: program Prim; begin writeln('Введите 5 численных значений:'); readln(a,b,c,d,f ); p:=a+b+c+d+f; writeln('p=',p); readln end. 3. Найдите и объясните ошибку в программе: program Prim; var a,b:integer; begin writeln('Введите 5 численных значений:'); readln(a,b,c,d,f ); p:=a+b+c+d+f; writeln('p=',p); readln end. 4. Найдите и объясните ошибку в программе: program Prim; var a,b,c,d,f,p:integer; begin writeln('Введите 5 численных значений:'); p:=a+b+c+d+f; writeln('p=',p); readln end. 5. Найдите и объясните ошибку в данной программе: VAR a,b,y : Integer; BEGIN a:=10; b:=6; y:= a / b; WriteLn (y) END. 6. Программа вычисляет сумму квадратов всех четных чисел от a до b. Найдите и объясните ошибку в данной программе: Program prim; Var a, b, i, k :integer; s:real; Begin WriteLn ('Введите a,b'); ReadLn (a,b); s:=0; i:=a; While i>=b Do Begin k:=2*i; s:=s+k*k; i:=i+1; End; WriteLn ('Summa=',s); ReadLn End. 7. Программа вычисляет сумму всех нечетных чисел от 101 до 301. Найдите и объясните ошибку в данной программе: Program prim; Var s,i: integer; Begin s:=0; i:=101; repeat s:=s+i; i:=i+2; Until S>301; WriteLn ('Summa = ',s); ReadLn End.

Answer 1

Ответ:

http://svgimnazia1.grodno.by/sinica/Book_ABC/Book_ABC_pascal/Testy/test2.htm

Объяснение:

Вот тут можешь узнать правельные ответы, проходишь тест и узнаешь правельные ответы, лень писать

Answer 2

1. Программа 1: Ошибка: В программе не объявлены переменные c, d и f, но они используются в процессе чтения значений. Исправление: Нужно добавить объявление переменных c, d и f после var:

pascalCopy code
program Prim;
var a, b, c, d, f, p: integer;
begin
  writeln('Введите 5 численных значений:');
  readln(a, b, c, d, f);
  p := a + b + c + d + f;
  writeln('p=', p);
  readln;
end.

2. Программа 2: Ошибка: В программе не объявлены переменные a, b, c, d и f, но они используются в процессе чтения значений. Исправление: Нужно добавить объявление переменных a, b, c, d и f после begin:

pascalCopy code
program Prim;
var a, b, c, d, f, p: integer;
begin
  writeln('Введите 5 численных значений:');
  readln(a, b, c, d, f);
  p := a + b + c + d + f;
  writeln('p=', p);
  readln;
end.

3. Программа 3: Ошибка: В программе объявлены только переменные a и b, но используются переменные c, d и f, которые не были объявлены. Исправление: Нужно добавить объявление переменных c, d и f после var:

pascalCopy code
program Prim;
var a, b, c, d, f, p: integer;
begin
  writeln('Введите 5 численных значений:');
  readln(a, b, c, d, f);
  p := a + b + c + d + f;
  writeln('p=', p);
  readln;
end.

4. Программа 4: Ошибка: В программе не производится чтение значений a, b, c, d и f, но сразу производится вычисление и вывод значения p, которое зависит от неинициализированных переменных. Исправление: Нужно добавить чтение значений a, b, c, d и f с помощью readln перед вычислением p:

pascalCopy code
program Prim;
var a, b, c, d, f, p: integer;
begin
  writeln('Введите 5 численных значений:');
  readln(a, b, c, d, f);
  p := a + b + c + d + f;
  writeln('p=', p);
  readln;
end.

5. Программа 5: Ошибка: В данной программе переменные a, b и y имеют тип Integer, а результат деления a / b имеет тип Real. Это вызовет ошибку компиляции. Исправление: Для хранения результата деления a / b нужно объявить переменную y с типом Real:

pascalCopy code
VAR
  a, b: Integer;
  y: Real;
BEGIN
  a := 10;
  b := 6;
  y := a / b;
  WriteLn(y);
END.

6. Программа 6: Ошибка: В данной программе ошибка в условии цикла While i >= b Do. Цикл никогда не выполнится, так как i всегда будет больше или равно b, и программа зациклится. Исправление: Нужно изменить условие цикла на While i <= b Do, чтобы цикл выполнился правильно:

pascalCopy code
Program prim;
Var
  a, b, i, k: integer;
  s: real;
Begin
  WriteLn('Введите a,b');
  ReadLn(a, b);
  s := 0;
  i := a;
  While i <= b Do
  Begin
    k := 2 * i;
    s := s + k * k;
    i := i + 1;
  End;
  WriteLn('Summa=', s);
  ReadLn;
End.

7. Программа 7: Ошибка: В данной программе ошибка в условии цикла Until S > 301;. Цикл будет выполняться бесконечно, так как условие всегда будет истинно из-за операции увеличения i на 2. Исправление: Нужно изменить условие цикла на Until i > 301;, чтобы цикл правильно завершался:

pascalCopy code
Program prim;
Var
  s, i: integer;
Begin
  s := 0;
  i := 101;
  Repeat
    s := s + i;
    i := i + 2;
  Until i > 301;
  WriteLn('Summa = ', s);
  ReadLn;
End.

После внесения указанных исправлений программы должны работать корректно.