Требовалось составить программу для вычисления Y по формуле: 2Х+1, при всех значениях Х более 10, или по формуле: АХ-В, для всех остальных значений Х. Программист написал четыре варианта программы, но каждый раз ничего не получилось исправьте все ошибки (они могут быть как синтаксическими (т. е. не позволяют запустить программу), так и логическими (программа работает, но неправильно)). Это можно сделать как с среды программирования PascalABC, так и самостоятельно. Файл должен содержать Ваши исправления программы в следующем виде:
Неправильная строка исправить на: Правильная строка
Количество таких строк должно соответствовать количеству найденных ошибок. Изменять структуру программы, удалять или добавлять строки нельзя!
3 вариант
program vetvlenie3;
var a, b, x,y: real;
begin
readln (Y);
if x>0 then
y:=2x+1
else
y:=ax-b;
writeln (Y);
end.
var
i,a,b:integer;
ar:array[1..10] of integer;
procedure oddDec(var a,b:integer); //подпрограмме переданы аргументы a и b
//процедура для вычитания в нечётном элементе
begin;
a:=a-b;
end;
procedure NotoddInc(var a,b:integer); //подпрограмме переданы аргументы a и b
//процедура для сложения в чётном элементе
begin;
a:=a+b;
end;
begin
randomize;
readln(a); //ввод a
readln(b); //ввод b
writeln('Array:');
for i:=1 to 10 do //весь массив
begin;
ar[i]:=random(-20,80); //случайные числа от -20 до 80 включительно
write(ar[i]:4); //вывод
if odd(i) then oddDec(ar[i],b) else NotoddInc(ar[i],a);
{если нечётное, то первая процедура, иначе вторая. Обращаю внимания на то, что элементы меняются сразу после вывода}
end;
writeln;
writeln('Final array:'); //вывод получившегося массива
for i:=1 to 10 do
write(ar[i]:4);
end.
Пример ввода:
20
10
Пример вывода:
Array:
10 16 0 60 23 4 22 -20 4 55
Final array:
0 36 -10 80 13 24 12 0 -6 75
Лента в Microsoft Word позволяет максимально быстро получить доступ к наиболее часто используемым командам. Лента содержит огромное количество команд, которые разбиты по смысловым группам. В этом уроке Вы узнаете, из каких вкладок состоит Лента, а также научитесь скрывать ее, чтобы увеличить рабочую область Word на экране монитора.
Если Вы ранее пользовались Word 2010 или 2007, тогда Word 2013 покажется Вам знакомым. В нем используются все те же Лента и Панель быстрого доступа, где можно найти команды для наиболее часто используемых задач, а также представление Backstage.
Объяснение: