Возведение в степень всех элементов строкового массива и извлечение корня

@newprog1dog · Регистрация: 23.11.2014

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

Как записать строковый массив и возвести его в квадрат.
И как извлечь из любого массива квадратный корень.
p.s я нуб, проги легкие, думаю форумчани без труда напишут.

Добавлено через 1 час 59 минут

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
program massiv;
const n=10;
var 
a:array[1..n] of integer;
i:integer;
begin
   writeln;
   for i:=1 to n do readln(a[i]);
   writeln;
   for i:=1 to n do writeln(a[i] mod 2=0);
   readln;
end.

Это правильно?

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

Pascal
1
for i:=1 to n do writeln(a[i]*a[i]);

@JokeR.BY · 23.11.2014, 22:08

строковый массив - это

Pascal
1
Array Of String;

во всяком случае в моём понимании.

Добавлено через 32 секунды
а возведение массива в квадрат - это как-то за гранью.

@newprog1dog · 23.11.2014, 22:10 **[ТС]**

каждого элемента масива. Если умеешь, помоги пожалуйста

@JokeR.BY · 23.11.2014, 22:12

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
const
    n = 10;
 
var
    a : Array[1..n] Of Integer;
    i : Byte;
begin
    for i := 1 to n do
        ReadLn(a[i]);
    WriteLn;
    for i := 1 to n do
        Write(sqr(a[i]), ' ');
    WriteLn;
    for i := 1 to n do
        Write(sqrt(a[i]):0:3, ' ');
    WriteLn;
end.

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

каждого элемента масива.

потихоньку приближаемся к сути)

@newprog1dog · 23.11.2014, 22:15 **[ТС]**

Спасибо, давай еще приблизимся.) и не строковые, а интовые с 1 строки) A(1;1)
Это 2 разных программы
в 1 должно быть
A(1;1)^2 A(1;2)^2 и до 10-го элемента.
во второй то же самое только квадратный корень из каждого элемента.

@JokeR.BY · 23.11.2014, 22:21

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
const
    n = 10;
 
var
    a : Array[1..n] Of Integer;
    i : Byte;
begin
    for i := 1 to n do
        ReadLn(a[i]);
    WriteLn;
    for i := 1 to n do
        Write(sqr(a[i]), ' ');
    WriteLn;
end.

Добавлено через 20 секунд

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
const
    n = 10;
 
var
    a : Array[1..n] Of Integer;
    i : Byte;
begin
    for i := 1 to n do
        ReadLn(a[i]);
    WriteLn;
    for i := 1 to n do
        Write(sqrt(a[i]):0:3, ' ');
    WriteLn;
end.

@newprog1dog · 23.11.2014, 22:25 **[ТС]**

Спасибо, репу плюсанул. С виду все хорошо, ввел массив, но нужно еще чтобы выводил обсчитанный массив.

@JokeR.BY · 23.11.2014, 22:26

newprog1dog, чёй? после каждого числа жмякайте enter и будет вам счастье

@newprog1dog · 23.11.2014, 22:28 **[ТС]**

я просто запускал пошаговую обработку, сейчас все окей, но не выводит обсчитанный

@JokeR.BY · 23.11.2014, 22:37

вполне сносно всё выводит.

@newprog1dog · 23.11.2014, 22:38 **[ТС]**

У меня тоже, но нужно 2 раза ран, после первого окно закрывается. В паскале есть что-то типа system pause; или getch();? И что ":0:3" значит?

@JokeR.BY · 23.11.2014, 22:43

...добавьте перед самым последним end'ом

Pascal
1
ReadLn;

это вместо паузы.
:0:3 - форматированный вывод. первое число - сколько символов под вывод данной переменной (включая точку), второе - количество цифр после запятой.
Форматированный вывод вещественного числа

@newprog1dog · 23.11.2014, 22:44 **[ТС]**

Огромное спасибо)

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .

@newprog1dog 0 / 0 / 0 Регистрация: 23.11.2014 Сообщений: 41
	23.11.2014, 22:10 [ТС]
	каждого элемента масива. Если умеешь, помоги пожалуйста 0

@newprog1dog 0 / 0 / 0 Регистрация: 23.11.2014 Сообщений: 41
	23.11.2014, 22:15 [ТС]
	Спасибо, давай еще приблизимся.) и не строковые, а интовые с 1 строки) A(1;1) Это 2 разных программы в 1 должно быть A(1;1)^2 A(1;2)^2 и до 10-го элемента. во второй то же самое только квадратный корень из каждого элемента. 0

@newprog1dog 0 / 0 / 0 Регистрация: 23.11.2014 Сообщений: 41
	23.11.2014, 22:25 [ТС]
	Спасибо, репу плюсанул. С виду все хорошо, ввел массив, но нужно еще чтобы выводил обсчитанный массив. 0

@JokeR.BY CAPITAL OF ROCK! 1281 / 708 / 982 Регистрация: 03.03.2010 Сообщений: 2,286
	23.11.2014, 22:26
	newprog1dog, чёй? после каждого числа жмякайте enter и будет вам счастье 1

@newprog1dog 0 / 0 / 0 Регистрация: 23.11.2014 Сообщений: 41
	23.11.2014, 22:28 [ТС]
	я просто запускал пошаговую обработку, сейчас все окей, но не выводит обсчитанный 0

@JokeR.BY CAPITAL OF ROCK! 1281 / 708 / 982 Регистрация: 03.03.2010 Сообщений: 2,286
	23.11.2014, 22:37
	вполне сносно всё выводит. Миниатюры 1

@newprog1dog 0 / 0 / 0 Регистрация: 23.11.2014 Сообщений: 41
	23.11.2014, 22:38 [ТС]
	У меня тоже, но нужно 2 раза ран, после первого окно закрывается. В паскале есть что-то типа system pause; или getch();? И что ":0:3" значит? 0

@newprog1dog 0 / 0 / 0 Регистрация: 23.11.2014 Сообщений: 41
	23.11.2014, 22:44 [ТС]
	Огромное спасибо) 0