Вывести K-e степени чисел из данного набора

@sanat27 · Регистрация: 22.05.2012

Студворк — интернет-сервис помощи студентам

паскальАБС

36.
Даны целые числа K, N и набор из N вещественных чисел: A1, A2, ..., AN. Вывести K-e степени чисел из данного набора:
(A1)K, (A2)K, ..., (AN)K.
37.
Дано целое число K, а также K наборов ненулевых целых чисел. Каждый набор содержит не менее трех элементов, признаком его завер-шения является число 0. Найти количество пилообразных наборов (Набор называется пилообразным, если каждый его внутренний элемент либо больше, либо меньше обоих своих соседей (то есть является «зубцом»).
38.
Описать процедуру Mean(X, Y, AMean, GMean), вычисляющую среднее арифметическое AMean = (X+Y)/2 и среднее геометрическое GMean = двух положительных чисел X и Y (X и Y — входные, AMean и GMean — выходные параметры вещественного типа). С помощью этой процедуры найти среднее арифметическое и среднее геометрическое для пар (A, B), (A, C), (A, D), если даны A, B, C, D.
39.
Описать функцию RootsCount(A, B, C) целого типа, определяющую количество корней квадратного уравнения Ax2 + B x + C = 0 (A, B, C – вещественные параметры, A ≠ 0). С ее помощью найти количество корней для каждого из трех квадратных уравнений с данными коэффициентами. Количество корней определять по значению дискриминанта: D= B2 – 4A•C.
40.
Описать функцию DigitN(K, N) целого типа, возвращающую N-ю циф¬ру целого положительного числа K (цифры в числе нумеруются справа налево). Если количество цифр в числе K меньше N, то функция возвра¬щает -1. Для каждого из пяти данных целых положительных чисел K1, K2, ..., K5 вызвать функцию DigitN с параметром N, изменяющимся от 1 до 5.
41.
Описать функцию Arctg1(x, е) вещественного типа (параметры x, е — вещественные, |x| < 1, е >0), находящую приближенное значение функции arctg(x): arctg(x) = x – x3/3 + x5/5 – ... + (–1)n•x2•n+1/(2•n+1) + ... . В сумме учитывать все слагаемые, модуль которых больше е. С помощью Arctg1 найти приближенное значение arctg(x) для данного x при шести данных е.
42.
Дано целое число N и набор из N целых чисел. Найти номера первого минимального и последнего максимального элемента из данного набора и вывести их в указанном порядке.
43.
Дано целое число N и набор из N целых чисел. Найти макси¬мальное количество четных чисел в наборе, идущих подряд. Если четные числа в наборе отсутствуют, то вывести 0.
44.
Дано целое число N (> 0). Сформировать и вывести целочисленный массив размера N, содержащий степени двойки от первой до N-й: 2, 4, 8,16, ...
45.
Дан целочисленный массив размера N, не содержащий одинаковых чисел. Проверить, образуют ли его элементы арифметическую прогрес-сию. Если образуют, то вывести разность прогрессии, если нет — вывести 0
46.
Дано целое число N (>0). Сформировать и вывести целочисленный массив размера N, содержащий N первых положительных нечетных чисел: 1,3,5,…
47.
Дан массив A размера N. Сформировать новый массив B того же размера, элементы которого определяются следующим образом: Bk = 2-Ak, если Ak < 5, Ak/2 в противном случае.
48.
Из последовательность а1, а2,… аm, такой, что a1= 1, a2= a1+2, a3= а2+3,…, n<=20, получить новую последовательность, элемент которой равен соответствующему элементу исходной, если косинус его значения отрицателен.
51.
Даны массивы A и B одинакового размера N. Поменять местами их содержимое и вывести вначале элементы преобразованного массива A, а затем — элементы преобразованного массива B.
52.
Даны два массива A и B размера 5, элементы которых упорядочены по возрастанию. Объединить эти массивы так, чтобы результирующий массив С (размера 10) остался упорядоченным по возрастанию
53.
Дан массив размера N. Возвести в квадрат все его локальные мини¬мумы (то есть числа, меньшие своих соседей).
54.
Дан массив размера N и целое число K (1 < K < N). Удалить из массива элемент с порядковым номером K.
56.
Дан массив А размера N. Не изменяя данный массив, вывести номе¬ра его элементов в том порядке, в котором соответствующие им элементы образуют возрастающую последовательность. Использовать метод «пу-зырьковой» сортировки, модифицировав его сле¬дующим образом: создать вспомогательный целочисленный массив номе¬ров I, заполнив его числами от 1 до N; просматривать массив А, сравнивая пары элементов массива А с номерами I1 и I2, I2 и I3, ... и меняя местами соответствующие элементы массива I, если левый элемент пары больше правого. Повторив описанную процедуру просмотра N — 1 раз, получим в массиве I требуемую последовательность номеров.
57.
Дано целое число L (> 0) и целочисленный массив размера N. Заме-нить каждую серию массива, длина которой больше L, на один элемент с нулевым значением (Назовем серией группу подряд идущих одинаковых элементов, а длиной серии — количество этих элементов (длина серии может быть равна 1).).
58.
Дано множество А из N точек с целочисленными координатами x, y. Порядок на координатной плоскости определим следующим образом: (x1, y1) < (x2, y2), если либо x1 < x2, либо x1 = x2 и y1 < y2. Расположить точки данного множества по возрастанию в соответствии с указанным порядком.
59.
Из последовательности a1,a2, …, an, n10, ak=sin(1/k!) ,получить новую последовательность, заменив каждый элемент, меньший по модулю величины 0.2, его порядковым номером, и определить число таких замен.
60.
Дана последовательность a1, a2, …,an, ai=sin i, и последовательность b1, b2, …,bn, n10, bi=cos(+i). Вычислить (a1+bn)(a2+bn-1)…(an+b1) и определить в последовательности a1,a2, …, an наибольший элемент (его значение и номер).
61.
Дан символ C, изображающий цифру или букву (латинскую или рус¬скую). Если C изображает цифру, то вывести строку «digit», если латин¬скую букву – вывести строку «lat», если русскую — вывести строку «rus».
62.
Дан символ C. Вывести два символа, первый из которых предшествует символу C в кодовой таблице, а второй следует за символом C.
63.
Дана строка. Подсчитать количество содержащихся в ней цифр.
64.
Дана строка. Если она представляет собой запись целого числа, то вывести 1, если вещественного (с дробной частью) — вывести 2; если строку нельзя преобразовать в число, то вывести 0. Считать, что дробная часть вещественного числа отделяется от его целой части десятичной точкой «.».
65.
Дан символ C и строка S. Удвоить каждое вхождение символа C в строку S.

@klast · 22.05.2012, 18:29

Не по теме:

пииик! :D чо так задач то мало?

Добавлено через 2 минуты

Сообщение от sanat27

63.
Дана строка. Подсчитать количество содержащихся в ней цифр

Pascal
1
2
3
4
5
6
7
8
9
var
  s: string;
  i, k: integer;
 
begin
  readln(s);
  for i := 1 to length(s) do if (ord(s[i]) > 47) and (ord(s[i]) < 58) then inc(k);
  writeln(k);
end.

Добавлено через 4 минуты

Сообщение от sanat27

65.
Дан символ C и строка S. Удвоить каждое вхождение символа C в строку S.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
  s, f: string;
  c: char;
  i: integer;
 
begin
  write('C = '); readln(c);
  write('S = '); readln(s);
  for i := 1 to length(s) do
    if s[i] = c then f := f + c + c
    else f := f + s[i];
  writeln(f);
end.

Добавлено через 9 минут

Сообщение от sanat27

64.
Дана строка. Если она представляет собой запись целого числа, то вывести 1, если вещественного (с дробной частью) — вывести 2; если строку нельзя преобразовать в число, то вывести 0. Считать, что дробная часть вещественного числа отделяется от его целой части десятичной точкой «.».

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
  s: string;
  r: real;
  i, code: integer;
 
begin
  readln(s);
  val(s, i, code);
  if code = 0 then writeln('1')
  else
  begin
    val(s, r, code);
    if code = 0 then writeln('2') else writeln('0');
  end;
end.

Добавлено через 7 минут

Сообщение от sanat27

62.
Дан символ C. Вывести два символа, первый из которых предшествует символу C в кодовой таблице, а второй следует за символом C.

Pascal
1
2
3
4
5
6
7
var
  c: char;
 
begin
  read(c);
  writeln(chr(ord(c) - 1), ' ', chr(ord(c) + 1));
end.

Добавлено через 4 минуты

Сообщение от sanat27

61.
Дан символ C, изображающий цифру или букву (латинскую или рус¬скую). Если C изображает цифру, то вывести строку «digit», если латин¬скую букву – вывести строку «lat», если русскую — вывести строку «rus».

Pascal
1
2
3
4
5
6
7
8
9
10
var
  c: char;
 
begin
  readln(c);
  if (ord(c) > 47) and (ord(c) < 58) then writeln('digit')
  else 
  if ((ord(c) > 96) and (ord(c) < 123)) or ((ord(c) > 64) and (ord(c) < 91)) then writeln('lat')
  else writeln('rus');
end.

@ermolay · 22.05.2012, 18:41

Сообщение от klast

ты сначала я с конца?)

нее, слишком много буков, аж в глазах рябит)

@klast · 22.05.2012, 21:07

Сообщение от sanat27

54.
Дан массив размера N и целое число K (1 < K < N). Удалить из массива элемент с порядковым номером K.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
  a: array[1..100] of integer;
  n, i, k: integer;
 
begin
  read(n, k);
  for i := 1 to n do 
  begin
    a[i] := random(10);
    write(a[i]:2);
    if i = k then a[i] := -1;
  end;
  writeln;
  for i := 1 to n do if a[i] <> -1 then write(a[i]:2);
end.

Добавлено через 32 минуты

Сообщение от sanat27

53.
Дан массив размера N. Возвести в квадрат все его локальные мини¬мумы (то есть числа, меньшие своих соседей).

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
  a, b: array[1..100] of integer;
  n, i: integer;
 
begin
  read(n);
  for i := 1 to n do 
  begin
    a[i] := random(10);
    write(a[i]:3);
  end;
  for i := 1 to n do 
    if (i > 1) and (i < n) and (a[i - 1] > a[i]) and (a[i + 1] > a[i]) then b[i] := sqr(a[i])
    else b[i] := a[i];
  writeln;
  for i := 1 to n do write(b[i]:3);
end.

Добавлено через 9 минут

Сообщение от sanat27

52.
Даны два массива A и B размера 5, элементы которых упорядочены по возрастанию. Объединить эти массивы так, чтобы результирующий массив С (размера 10) остался упорядоченным по возрастанию

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var
  a, b, c: array[1..10] of integer;
  i, j, k: integer;
 
begin
  write('A = ');
  for i := 1 to 5 do begin a[i] := i; write(a[i], ' '); c[i] := a[i]; end;
  writeln;
  k := random(10);
  write('B = ');
  for i := k to k + 4 do begin b[i] := i; write(b[i], ' '); c[i - k + 6] := b[i]; end;
  writeln;
  for i := 1 to 9 do
    for j := 1 to 9 do
      if c[j] > c[j + 1] then 
      begin
        k := c[j];
        c[j] := c[j + 1];
        c[j + 1] := k;
      end;
  write('C = ');
  for i := 1 to 10 do write(c[i], ' ');
end.

Добавлено через 8 минут

Сообщение от sanat27

51.
Даны массивы A и B одинакового размера N. Поменять местами их содержимое и вывести вначале элементы преобразованного массива A, а затем — элементы преобразованного массива B.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
var
  a, b: array[1..100] of integer;
  n, i, k: integer;
 
begin
  write('N = '); readln(n);
  write('A = ');
  for i := 1 to n do
  begin
    a[i] := random(10);
    b[i] := random(10);
    write(a[i], ' ');
  end;
  writeln;
  write('B = ');
  for i := 1 to n do write(b[i], ' ');
  for i := 1 to n div 2 do
  begin
    k := a[i];
    a[i] := a[n - i + 1];
    a[n - i + 1] := k;
    k := b[i];
    b[i] := b[n - i + 1];
    b[n - i + 1] := k;
  end;
  writeln;
  writeln;
  write('A = '); for i := 1 to n do write(a[i], ' ');
  writeln;
  write('B = '); for i := 1 to n do write(b[i], ' ');
end.

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит: токи, напряжения и их 1 и 2 производные при t = 0;. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .

@sanat27 0 / 0 / 0 Регистрация: 22.05.2012 Сообщений: 16

	Вывести K-e степени чисел из данного набора 22.05.2012, 16:59. Показов 3121. Ответов 3 Метки нет (Все метки) паскальАБС 36. Даны целые числа K, N и набор из N вещественных чисел: A1, A2, ..., AN. Вывести K-e степени чисел из данного набора: (A1)K, (A2)K, ..., (AN)K. 37. Дано целое число K, а также K наборов ненулевых целых чисел. Каждый набор содержит не менее трех элементов, признаком его завер-шения является число 0. Найти количество пилообразных наборов (Набор называется пилообразным, если каждый его внутренний элемент либо больше, либо меньше обоих своих соседей (то есть является «зубцом»). 38. Описать процедуру Mean(X, Y, AMean, GMean), вычисляющую среднее арифметическое AMean = (X+Y)/2 и среднее геометрическое GMean = двух положительных чисел X и Y (X и Y — входные, AMean и GMean — выходные параметры вещественного типа). С помощью этой процедуры найти среднее арифметическое и среднее геометрическое для пар (A, B), (A, C), (A, D), если даны A, B, C, D. 39. Описать функцию RootsCount(A, B, C) целого типа, определяющую количество корней квадратного уравнения Ax2 + B x + C = 0 (A, B, C – вещественные параметры, A ≠ 0). С ее помощью найти количество корней для каждого из трех квадратных уравнений с данными коэффициентами. Количество корней определять по значению дискриминанта: D= B2 – 4A•C. 40. Описать функцию DigitN(K, N) целого типа, возвращающую N-ю циф¬ру целого положительного числа K (цифры в числе нумеруются справа налево). Если количество цифр в числе K меньше N, то функция возвра¬щает -1. Для каждого из пяти данных целых положительных чисел K1, K2, ..., K5 вызвать функцию DigitN с параметром N, изменяющимся от 1 до 5. 41. Описать функцию Arctg1(x, е) вещественного типа (параметры x, е — вещественные, \|x\| < 1, е >0), находящую приближенное значение функции arctg(x): arctg(x) = x – x3/3 + x5/5 – ... + (–1)n•x2•n+1/(2•n+1) + ... . В сумме учитывать все слагаемые, модуль которых больше е. С помощью Arctg1 найти приближенное значение arctg(x) для данного x при шести данных е. 42. Дано целое число N и набор из N целых чисел. Найти номера первого минимального и последнего максимального элемента из данного набора и вывести их в указанном порядке. 43. Дано целое число N и набор из N целых чисел. Найти макси¬мальное количество четных чисел в наборе, идущих подряд. Если четные числа в наборе отсутствуют, то вывести 0. 44. Дано целое число N (> 0). Сформировать и вывести целочисленный массив размера N, содержащий степени двойки от первой до N-й: 2, 4, 8,16, ... 45. Дан целочисленный массив размера N, не содержащий одинаковых чисел. Проверить, образуют ли его элементы арифметическую прогрес-сию. Если образуют, то вывести разность прогрессии, если нет — вывести 0 46. Дано целое число N (>0). Сформировать и вывести целочисленный массив размера N, содержащий N первых положительных нечетных чисел: 1,3,5,… 47. Дан массив A размера N. Сформировать новый массив B того же размера, элементы которого определяются следующим образом: Bk = 2-Ak, если Ak < 5, Ak/2 в противном случае. 48. Из последовательность а1, а2,… аm, такой, что a1= 1, a2= a1+2, a3= а2+3,…, n<=20, получить новую последовательность, элемент которой равен соответствующему элементу исходной, если косинус его значения отрицателен. 51. Даны массивы A и B одинакового размера N. Поменять местами их содержимое и вывести вначале элементы преобразованного массива A, а затем — элементы преобразованного массива B. 52. Даны два массива A и B размера 5, элементы которых упорядочены по возрастанию. Объединить эти массивы так, чтобы результирующий массив С (размера 10) остался упорядоченным по возрастанию 53. Дан массив размера N. Возвести в квадрат все его локальные мини¬мумы (то есть числа, меньшие своих соседей). 54. Дан массив размера N и целое число K (1 < K < N). Удалить из массива элемент с порядковым номером K. 56. Дан массив А размера N. Не изменяя данный массив, вывести номе¬ра его элементов в том порядке, в котором соответствующие им элементы образуют возрастающую последовательность. Использовать метод «пу-зырьковой» сортировки, модифицировав его сле¬дующим образом: создать вспомогательный целочисленный массив номе¬ров I, заполнив его числами от 1 до N; просматривать массив А, сравнивая пары элементов массива А с номерами I1 и I2, I2 и I3, ... и меняя местами соответствующие элементы массива I, если левый элемент пары больше правого. Повторив описанную процедуру просмотра N — 1 раз, получим в массиве I требуемую последовательность номеров. 57. Дано целое число L (> 0) и целочисленный массив размера N. Заме-нить каждую серию массива, длина которой больше L, на один элемент с нулевым значением (Назовем серией группу подряд идущих одинаковых элементов, а длиной серии — количество этих элементов (длина серии может быть равна 1).). 58. Дано множество А из N точек с целочисленными координатами x, y. Порядок на координатной плоскости определим следующим образом: (x1, y1) < (x2, y2), если либо x1 < x2, либо x1 = x2 и y1 < y2. Расположить точки данного множества по возрастанию в соответствии с указанным порядком. 59. Из последовательности a1,a2, …, an, n10, ak=sin(1/k!) ,получить новую последовательность, заменив каждый элемент, меньший по модулю величины 0.2, его порядковым номером, и определить число таких замен. 60. Дана последовательность a1, a2, …,an, ai=sin i, и последовательность b1, b2, …,bn, n10, bi=cos(+i). Вычислить (a1+bn)(a2+bn-1)…(an+b1) и определить в последовательности a1,a2, …, an наибольший элемент (его значение и номер). 61. Дан символ C, изображающий цифру или букву (латинскую или рус¬скую). Если C изображает цифру, то вывести строку «digit», если латин¬скую букву – вывести строку «lat», если русскую — вывести строку «rus». 62. Дан символ C. Вывести два символа, первый из которых предшествует символу C в кодовой таблице, а второй следует за символом C. 63. Дана строка. Подсчитать количество содержащихся в ней цифр. 64. Дана строка. Если она представляет собой запись целого числа, то вывести 1, если вещественного (с дробной частью) — вывести 2; если строку нельзя преобразовать в число, то вывести 0. Считать, что дробная часть вещественного числа отделяется от его целой части десятичной точкой «.». 65. Дан символ C и строка S. Удвоить каждое вхождение символа C в строку S. 0