Перепроверь массив и скомпилируй.
// Example program#include <iostream>#include <string>
using namespace std;
int count_;const unsigned int DIM1 = 6;const unsigned int DIM2 = 6;int m[DIM1][DIM2] = { { 'S', '.', '.', '.', '#', '#' }, { '#', '.', '#', '.', '.', '.' }, { '.', '.', '#', '.', '.', '#' }, { '.', '.', '#', '#', '#', '.' }, { '#', '.', '.', '.', '#', '#' }, { '#', '#', '#', '.', '.', 'F' }};int find_p(int x, int y) { if (x < 0 || x > 5 || y < 0 || y > 5) return 0; if (m[y] [x] == 'F') return 1; if (m[y] [x] != '.' && m[y] [x] != 'S') return 0; m[y] [x] = '+'; count_++; if (find_p (x, y - 1)) return 1; if (find_p (x + 1, y)) return 1; if (find_p (x, y + 1)) return 1; if (find_p (x - 1, y)) return 1; m[y] [x] = 'x'; return 0;}int main(){ find_p(0, 0); cout<<"\n Otvet="<<count_;}
1. В языке семейства С/С++ есть <u>функция sqr, вычисляющая квадрат</u>. Но в этих языках важен регистр, поэтому запись Sqr некорректна. Да и операция & в этих языках означает взятие адреса, что тут никак не годится.
2.<u>Sqr в языке Паскаль</u> также означает <u>возведение в квадрат</u>. Но в Паскале нет знака операции &
3. А еще SQR есть <u>в BASIC</u> (регистр там неважен, можно и Sqr написать), и это <u>функция извлечения квадратного корня.</u> В BASIC операция & - это конкатенация (объединение) строк. Применение к числовым данным вызывает их предварительное преобразование к строкам.
Итог: Sqr(196) & Sqr(9) в BASIC означает SQR(169) & SQR(9) и вернет строковое значение "133" в VBA, но в MS DOS QBasic вызовет переполнение.
1) log2(256) = 8 бит = 1 байт на символ.
число строк равно число символов разделить на число символов в строке:
(3420 / 1) / 38 = 90 строк
2) 75 байт / 120 = 75 * 8 бит / 120 = 5 бит на символ
алфавит содержит не более
различных символов
# # Код на ruby 2.2.3p173
max = 0
max_last = 0
min = 1000
min_last = 1000
n = 0
begin
max_last = max
min_last = min
File.open("input.txt", "r") do |infile|
line = infile.gets.strip
p line
n = line.to_i if n == 0
while (line = infile.gets)
p line
number = line.strip.to_i
max = number if max == 0 or number == max + 1
min = number if min == 1000 or number == min - 1
p [min, max]
end
end
end until (max == max_last and max < n) or (min > 0 and min == min_last) or (min == 0 and max == n)
p max + 1 if max == max_last and max < n
p min - 1 if min > 0 and min == min_last
p "error" if min == 0 and max == n
beginvar x1, x2, x3, x4, y1, y2, y3, y4: double; writeln('Введите x1'); readln(x1); writeln('Введите x2'); readln(x2); writeln('Введите x3'); readln(x3); writeln('Введите x4'); readln(x4); writeln('Введите y1'); readln(y1); writeln('Введите y2'); readln(y2); writeln('Введите y3'); readln(y3); writeln('Введите y4'); readln(y4);if((y1-y4=y2-y3) AND (x2-x1=x3-x4)) thenwriteln('ABCD - параллелограмм')else writeln('ABCD - не параллелограмм');end.
