Как взять "каждый второй элемент"

@Iseult · Регистрация: 28.10.2011

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

Как взять "каждый второй элемент"?

magirus · 22.11.2011, 10:04

Комментарий модератора

называйте темы информативно

@Iseult · 22.11.2011, 10:12 **[ТС]**

Окей)

@Own3D · 22.11.2011, 10:17

держи/ 1 нюанс, я использовал квадратную матрицу NxN. если не устроит подправишь малех) главное сам алгоритм "каждого второго" тебе же надо.

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
uses crt;
const n=10;
//------------------------------------
procedure fill(var mas:array[1..n,1..n] of integer);
var i,j:integer;
begin
for i:=1 to n do
    for j:=1 to n do
        mas[i,j]:=random(n*2)-n;
end;
//------------------------------------
procedure print(var mas:array[1..n,1..n] of integer);
var i,j:integer;
begin
for i:=1 to n do
    begin
    writeln;
         for j:=1 to n do
        write(mas[i,j]:3);
    end;
end;
//------------------------------------
procedure VKvadrat(var mas:array[1..n,1..n] of integer);
var i,j:integer;
begin
for i:=1 to n do
    for j:=2 to n do
        begin
             if mas[i,j]<0 then
             mas[i,j]:=(sqr(mas[i,j]));
        j:=j+1;
        end;
writeln;
end;
//------------------------------------
 
var mas:array[1..n,1..n] of integer;
begin
clrscr;
fill(mas);
write('Èñõîäíàÿ ìàòðèöà:');
print(mas);
VKvadrat(mas);
write('Ïðåîáðàçîâàííàÿ ìàòðèöà:');
print(mas);
end.

@Iseult · 22.11.2011, 11:12 **[ТС]**

Не хочет работать(

@Own3D · 22.11.2011, 16:52

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

Не хочет работать(

я писал в pascal ABC, а ты ее запускаешь в pascal ABC.NET. с его синтаксисом я не знаком..
но алгоритм тот же самый. просто видимо у тебя двумерный массив как то по другому описывается.
у меня вот результат

@Iseult · 22.11.2011, 17:32 **[ТС]**

Мммм.. спасибки

Добавлено через 21 минуту
Слушай, я картинку посмотрела твою, пчму у тебя так времени много на часиках:?

@Own3D · 23.11.2011, 00:38

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

Мммм.. спасибки

Добавлено через 21 минуту
Слушай, я картинку посмотрела твою, пчму у тебя так времени много на часиках:?

видимо потому, что у нас с тобой разные часовые пояса)

@Iseult · 23.11.2011, 16:02 **[ТС]**

Омг) разница 7 или 8 часов) Ты откуда ?

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

@Iseult 0 / 0 / 1 Регистрация: 28.10.2011 Сообщений: 58

	Как взять "каждый второй элемент" 22.11.2011, 09:44. Показов 1577. Ответов 8 Метки нет (Все метки) Как взять "каждый второй элемент"? Миниатюры 0

@Iseult 0 / 0 / 1 Регистрация: 28.10.2011 Сообщений: 58
	22.11.2011, 10:12 [ТС]
	Окей) 0

@Iseult 0 / 0 / 1 Регистрация: 28.10.2011 Сообщений: 58
	22.11.2011, 11:12 [ТС]
	Не хочет работать( Миниатюры 0

@Iseult 0 / 0 / 1 Регистрация: 28.10.2011 Сообщений: 58
	22.11.2011, 17:32 [ТС]
	Мммм.. спасибки Добавлено через 21 минуту Слушай, я картинку посмотрела твою, пчму у тебя так времени много на часиках:? 0

@Iseult 0 / 0 / 1 Регистрация: 28.10.2011 Сообщений: 58
	23.11.2011, 16:02 [ТС]
	Омг) разница 7 или 8 часов) Ты откуда ? 0