Оставшиеся посылки: 100 Системы счисления (тест 2) Эта задача с открытыми тестами. Ее решением является набор ответов, а не программа на языке программирования. Тесты указаны в самом условии, от вас требуется лишь ввести ответы на них в тестирующую систему. Недавно на уроке информатики Вася узнал о позиционных системах счисления. Ему очень понравилось представлять разные числа в двоичной, троичной и даже девятеричной системе счисления. Помимо этого Васе нравится записывать цифры числа в обратном порядке. Вася берет произвольное натуральное число X и выполняет последовательно следующие три действия: 1. Вася переводит число X во все системы счисления с основанием от 2 до 9; 2. Все числа, полученные на предыдущем шаге, Вася записывает в обратном порядке, отбрасывая при этом у всех перевернутых чисел ведущие нули; 3. Вася находит максимальное из чисел, полученных на втором шаге, сравнивая значения этих чисел, как будто они записаны в десятичной системе счисления. Какой результат получит Вася после выполнения трех шагов своего алгоритма для числа X ? Примечание Например, Вася хочет решить задачу для числа X=8 . Переведем число 8 во все системы счисления с основаниями k, где k принимает значения от 2 до 9. При k=2 получаем 810=10002 ; при k=3 получаем 810=223 ; при k=4 получаем 810=204 при k=5 получаем 810=135 ; при k=6 получаем 810=126 ; при k=7 получаем 810=117 ; при k=8 получаем 810=108 ; при k=9 получаем 810=89 . Теперь запишем цифры данных чисел в обратном порядке и отбросим ведущие нули. Получим числа 1 (для k=2 ), 22 (для k=3), 2 (для k=4), 31 (для k=5), 21 (для k=6), 11 (для k=7), 1 (для k=8), 8 (для k=9 Теперь рассматриваем эти числа, как будто они записаны в десятичной системе счисления. Тогда максимальное из них равно 31, что и является ответом для исходного числа X=8 . Тест №1: X=4 ; Тест №2: X=12 ; Тест №3: X=14 ; Тест №4: X=80 ; Тест №5: X=96 ; Тест №6: X=144 ; Тест №7: X=192 ; Тест №8: X=912 ; Тест №9: X=13824 ; Тест №10: X=19107 ; Выходные данные Введите в поле одно целое число - ответ на ТЕСТ 2.
Ответы
Var f:file of integer;
a,i,k,n:integer;
begin
randomize;
assign(f,'file');
rewrite(f);
repeat
write('Четное количество элементов: ');
readln(n);
until(n>1) and (n mod 2=0);
for i:=1 to n do
begin
a:=random(100);
write(f,a);
end;
writeln('Содержание исходного файла:');
reset(f);
while not eof(f) do
begin
read(f,a);
write(a,' ');
end;
close(f);
writeln;
reset(f);
seek(f,filesize(f)div 2);
truncate(f);
writeln('Содержание измененного файла:');
reset(f);
while not eof(f) do
begin
read(f,a);
write(a,' ');
end;
close(f);
readln
end.
a,i,k,n:integer;
begin
randomize;
assign(f,'file');
rewrite(f);
repeat
write('Четное количество элементов: ');
readln(n);
until(n>1) and (n mod 2=0);
for i:=1 to n do
begin
a:=random(100);
write(f,a);
end;
writeln('Содержание исходного файла:');
reset(f);
while not eof(f) do
begin
read(f,a);
write(a,' ');
end;
close(f);
writeln;
reset(f);
seek(f,filesize(f)div 2);
truncate(f);
writeln('Содержание измененного файла:');
reset(f);
while not eof(f) do
begin
read(f,a);
write(a,' ');
end;
close(f);
readln
end.
Начнем с формул.
Площадь треугольника: S = 1/2*a*b*sin C
Отсюда: sin C = 2*S/(a*b); cos C = sqrt(1 - sin^2 C)
tg C = sin C / cos C; C = atan(tg C)
Теорема косинусов: c = sqrt(a^2 + b^2 - 2*a*b*cos C)
Площадь: S = c*h/2; отсюда h = 2*S/c
Теорема синусов: a/sin A = b/sin B = c/sin C
Отсюда: sin A = a/c*sin C; sin B = b/c*sin C
cos A = sqrt(1 - sin^2 A); cos B = sqrt(1 - sin^2 B)
tg A = sin A/cos A; A = atan(tg A);
tg B = sin B/cos B; B = atan(tg B)
Периметр: P = a + b + c
Теперь записываем в Паскале
singam := 2*S/(a*b); cosgam = sqrt(1 - singam*singam);
tangam := singam/cosgam; Gamma := atan(tangam);
c := sqrt(a*a + b*b - 2*a*b*cosgam); h := 2*S/c;
P := a + b + c;
sinalp = a/c*singam; cosalp = sqrt(1 - sinalp*sinalp);
tanalp := sinalp/cosalp; Alpha := atan(tanalp);
sinbet = b/c*singam; cosbet = sqrt(1 - sinbet*sinbet);
tanbet := sinbet/cosbet; Beta := atan(tanbet);
Площадь треугольника: S = 1/2*a*b*sin C
Отсюда: sin C = 2*S/(a*b); cos C = sqrt(1 - sin^2 C)
tg C = sin C / cos C; C = atan(tg C)
Теорема косинусов: c = sqrt(a^2 + b^2 - 2*a*b*cos C)
Площадь: S = c*h/2; отсюда h = 2*S/c
Теорема синусов: a/sin A = b/sin B = c/sin C
Отсюда: sin A = a/c*sin C; sin B = b/c*sin C
cos A = sqrt(1 - sin^2 A); cos B = sqrt(1 - sin^2 B)
tg A = sin A/cos A; A = atan(tg A);
tg B = sin B/cos B; B = atan(tg B)
Периметр: P = a + b + c
Теперь записываем в Паскале
singam := 2*S/(a*b); cosgam = sqrt(1 - singam*singam);
tangam := singam/cosgam; Gamma := atan(tangam);
c := sqrt(a*a + b*b - 2*a*b*cosgam); h := 2*S/c;
P := a + b + c;
sinalp = a/c*singam; cosalp = sqrt(1 - sinalp*sinalp);
tanalp := sinalp/cosalp; Alpha := atan(tanalp);
sinbet = b/c*singam; cosbet = sqrt(1 - sinbet*sinbet);
tanbet := sinbet/cosbet; Beta := atan(tanbet);
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Сочинение на тему "безопасность в интернете" не !
Автор: Artak96993298
Напишите в Паскале программу поиска наименьшей из 4-х величин a, b, c, d
Автор: Tarakanova_pavel
Что случится с пк если обновить драйвера?
Автор: vera-sherepa231
Объяснить, что будет напечатано программой program e1; var x: byte; begin for x: =1 to 5 do writeln (x+1); end
Автор: Стародубцева_Васильевич485
Определи, является ли высказыванием. Приготовь завтрак. не является высказыванием является высказыванием
Автор: Lvova_Aleksandr933
ответ: посмотрри в интернете так проще и мне и тебе будет
Объяснение: