Тема #53560

 #  

 #  

Раздел: Дикая природа
------------------
По поводу паскаля - вообще не шарю в нем...

 #  

оо,а массивы я совсем не люблю. помню что только тип array. а как работать с ними так и непонял.

 #  

а не рано ли с массивов начал

 #  

Хоть в школе и учил паскаль но сейчас уже нечего и не вспомню))

 #  

#665191 пишет

оо,а массивы я совсем не люблю. помню что только тип array. а как работать с ними так и непонял.

Дааа, ну я вроде как бы знаю как создать таблицу. Правда какую именно нужно не знаю... Вообще не понятно условие заданы ... то ли
такую:
00000000
11111111
22222222
Или такую:
012
012
012
012
мда ... Кстати 1:N , Что это значит?

 #  

#863467 пишет

мда ... Кстати 1:N , Что это значит?

одномерный массив. то есть таблица в которой одна строка и N столбцов

Добавлено спустя 01 минуту 16 секунд

#1032618 пишет

#863467 пишет

мда ... Кстати 1:N , Что это значит?

одномерный массив. то есть таблица в которой одна строка и N столбцов

это значит, что дан массив такой

120101020102

а ответ должен быть такой:

000001111222

Добавлено спустя 01 минуту 40 секунд
сейчас решение напишу...

 #  

цикл тебе нужен For tu do и условие перестановки да давненько это было ... алгоритм запрограмировать сходу не смогу не помню, но на словах алгоритм следущий берем i,n - элемент масива сравниваем с i+1, n элементом массива если первый больше вторго переставляем, здачка по сути легкая но 12 лет назад такие решал потому язык позабыл если не найдешь ни кого обращайся рублей за 100 подниму паскаль .. хотя наверное найдешь

 #  

ыы в паскаль не знаю по асму помог бы

 #  

#1032618 пишет

сейчас решение напишу...

http://mepic.ru/up/pic_b/07aa6b01e3feb6505685ac713ea97753.jpg

 #  

#1032618 пишет

http://mepic.ru/up/pic_b/07aa6b01e3feb6505685ac713ea97753.jpg

А зачем там раскидывать опять символы? Кстати сюда встав код, не порежет

Добавлено спустя 01 минуту 01 секунду

#1032618 пишет

http://mepic.ru/up/pic_b/07aa6b01e3feb6505685ac713ea97753.jpg

А зачем там пустой writeln ??? И если уж так пошло, можно сделать чтобы самому вводить N ? в смысле readln(N) ?

 #  

#863467 пишет

А зачем там раскидывать опять символы? Кстати сюда встав код, не порежет

Program zzz;
const n=100;
Var i,j,x:integer;
a:array[1..n] of byte;
begin
writeln;
randomize;
For i:=1 to n do
begin
a[i]:=random(3);
write(a[i]:2);
end;

For i:=1 to n-1 do
for j:=1 to n-i do
if a[j]>=a[j+1] then
begin
x:=a[j];
a[j]:=a[j+1];
a[j+1]:=x;
end;
writeln;
for i:=1 to n do
write(a[i]:2);
end.

Добавлено спустя 02 минуты 10 секунд

#863467 пишет

А зачем там пустой writeln ??? И если уж так пошло, можно сделать чтобы самому вводить N ? в смысле readln(N) ?

пустой writeln что бы отделить исходный массив от полученного пустой строкой, да можно с клавы ввести N

 #  

#1032618 пишет

пустой writeln что бы отделить исходный массив от полученного пустой строкой, да можно с клавы ввести N

Можешь объяснить как работает код?
a[i]:=random(3);
write(a[i]:2);

эти строчки что делают?
randomize; и это что?

 #  

Это называется сортировка обменом или "пузырьковая сортировка"

 #  

a[j+1]:=x; - и это что...

Добавлено спустя 49 секунд

#1032618 пишет

Это называется сортировка обменом или "пузырьковая сортировка"

да понятно.. но как работает... почему в рандом 3 ??
и как понять a[i]:2 . Что делает ":" и "2" ?

 #  

#863467 пишет

Можешь объяснить как работает код?
a[i]:=random(3);
write(a[i]:2);

эти строчки что делают?
randomize; и это что?

randomize - это слово вкл генератор случайных чисел...
a[i]:=random(3); - мы присваиваем элементу массива a[i] рандомное значение от 0 до 2
write(a[i]:2); - соответственно выводим эл массива, а цифра два это пространство отведенное для вывода числа(обычно это делается, чтобы элементы находились друг под другом)

 #  

#1032618 пишет

соответственно выводим эл массива, а цифра два это пространство отведенное для вывода числа(обычно это делается, чтобы элементы находились друг под другом)

Понятно, что вот поставили 2 проблема после каждой цифры . А как можно чтобы ввод шел из клавиатуры ?


И еще вот этот код объясни плз:
For i:=1 to n-1 do
for j:=1 to n-i do
if a[j]>=a[j+1] then
begin
x:=a[j];
a[j]:=a[j+1];
a[j+1]:=x;

 #  

#863467 пишет

a[j]:=x; - и это что...

тем самым мы сохраняем значение переменной a[j] в переменную x, после этого в переменную a[j] заносим значение a[j+1], далее строчка a[j+1]:=x;

этим мы поменяли две переменные a[j] и a[j+1] с помощью переменной x

Добавлено спустя 02 минуты 24 секунды
[quote=863467]
И еще вот этот код объясни плз:
For i:=1 to n-1 do
for j:=1 to n-i do
if a[j]

 #  

Вот код:
For i:=1 to n do
begin
a[i]:=random(3);
write(a[i]);
end;

Зачем тут write(a[i]); ??
Он же вроде выводит на экран...

 #  

#863467 пишет

Вот код:
For i:=1 to n do
begin
a[i]:=random(3);
write(a[i]);
end;

Зачем тут write(a[i]); ??
Он же вроде выводит на экран...

ну да, это сделано, чтобы увидеть исходный массив и сравнить с полученным (просто для удобства и чтобы понять что все сделано правильно)

 #  

#1032618 пишет

ну да, это сделано, чтобы увидеть исходный массив и сравнить с полученным (просто для удобства и чтобы понять что все сделано правильно)

Понятно..


И еще вот этот код объясни плз:
For i:=1 to n-1 do
for j:=1 to n-i do
if a[j]>=a[j+1] then
begin
x:=a[j];
a[j]:=a[j+1];
a[j+1]:=x;

 #  

#863467 пишет

#1032618 пишет

ну да, это сделано, чтобы увидеть исходный массив и сравнить с полученным (просто для удобства и чтобы понять что все сделано правильно)

Понятно..


И еще вот этот код объясни плз:
For i:=1 to n-1 do
for j:=1 to n-i do
if a[j]>=a[j+1] then
begin
x:=a[j];
a[j]:=a[j+1];
a[j+1]:=x;

вот там можешь найти эту сортировку http://www.alleng.ru/d/comp/comp89.htm на стр 74

Мы просто проходим массив и еслиa a[j] то быдет по убыванию...

 #  

#1032618 пишет

вот там можешь найти эту сортировку http://www.alleng.ru/d/comp/comp89.htm на стр 74

Мы просто проходим массив и еслиa a[j] то быдет по убыванию...

Ок, помоги еще 1 задачку решить :)

Даный некоторый текст. Группы символов, разделенные пробелами (пропусками) и не содержат внутри пробелов, назовем словами. Будем считать, что текст всегда начинается со слова. Определить количество слов, которые начинаются с буквы "а" или "А".

Еще более глупая задача -_-

Добавлено спустя 01 минуту 17 секунд

#1032618 пишет

от там можешь найти эту сортировку http://www.alleng.ru/d/comp/comp89.htm на стр 74

Мы просто проходим массив и еслиa a[j] то быдет по убыванию...

А да точно, так как настроить чтобы количество символов можно настраивать с клавы ?

 #  

#863467 пишет

А да точно, так как настроить чтобы количество символов можно настраивать с клавы ?

Program zzz;
Var i,j,x,n:integer;
a:array[1..10000] of byte;
begin
randomize;
readln(n);
For i:=1 to n do
begin
a[i]:=random(3);
write(a[i]:2);
end;

For i:=1 to n-1 do
for j:=1 to n-i do
if a[j]>=a[j+1] then
begin
x:=a[j];
a[j]:=a[j+1];
a[j+1]:=x;
end;
writeln;
for i:=1 to n do
write(a[i]:2);
end.

 #  

#1032618 пишет

For i:=1 to n-1 do
for j:=1 to n-i do

Как это понять. До n-1 . То есть это цикл только 1 раз будет работать ? или как ... И кстати вроде этот цикл внутри другого ?