Требовалось составить программу для вычисления 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.
[0, 0, "a", 1]
[1, 1, "b", 2]
[1, 2, "bb", 3]
[2, 2, "b", 4]
[0, 3, "abba", 5]
[3, 3, "a", 6]
[3, 4, "aa", 7]
[4, 4, "a", 8]
[3, 5, "aaa", 9]
[4, 5, "aa", 10]
[5, 5, "a", 11]
[3, 6, "", 12]
[4, 6, "aaa", 13]
[5, 6, "aa", 14]
[6, 6, "a", 15]
[2, 7, "bb", 16]
[7, 7, "b", 17]
[6, 8, "aba", 18]
[8, 8, "a", 19]
[7, 9, "bab", 20]
[9, 9, "b", 21]
#код программы Ruby 22
s = "abbbab"
n = 0
for r in 0..s.size-1
for l in 0..r
t = s[l..r]
if t.reverse == t
n += 1
p [l,r,t,n]
end
end
end