Turbo Pascal

FEOFAN

http://feofan.com
Ответ: Turbo Pascal

Vladimir B., нужно из

9 2 1
5 3 4
6 8 7

сделать

1 2 3
4 5 6
7 8 9

и всего делов=)
 

Пух

كنت بلهاء
Модератор
Ответ: Turbo Pascal

2 FEOFAN совершенно верно,именно это и нужно сделать
Отсортировать матрицу? Вы что курили?
слушал на уроке и записывал что говорили:)
Избейте того, кто дал задачу и выпытайте правильное условие.
Рожественоского О.Н. побьеш... :)
делая так,как сказал товарищ lovesan получилось примерно следуещее:
изначальный массив:
Код:
3        -1        0
5         4        2
-7       -8        11
после сортировки по строкам по возростанию:
Код:
-1        0        3
 2        4        5
-8        -7      11
после сортировки по столбцам по возростанию:
Код:
-8        -7        3
-1         0        5
-2         4        11
что делать дальше?
 
Останнє редагування:

aker122

Active Member
Модератор
Ответ: Turbo Pascal

помогите кто что может :x
вот парочку задач:
Массивы:
1.В двумерном массиве,заполненим целыми случайными числами найти наибольший елемент в каждой строке,а затем наименьший из них.Масссив вывести в виде прямоугольной таблицы,найденные елементы в строку и в новой строке наибольший\наименьший елемент.
2.Сортировка методом "пузырька":одномерный массив,заполненый целыми случайными числами,по желанию пользывателя упорядочить по возростанию или убыванию.
Строки:
1.В строке все буквы "а" заменить буквой "б" и наоборот если они есть.
2.Определить являетса ли введеннное слово полендромом или нет,вывести об этом сообщение,при етом не производить обращение строки.Палиндромы - слова,которые слева на право читаютса одинаково(поп,боб)
3.Во введенном целом числе найти сумму и проезвидение его цифр.

З.Ы. за ранее спасибо,если можно зделайте как можно быстрее,а то мну :hang:
 

lovesan

хз...
Ответ: Turbo Pascal

Код:
Массивы
Задача 2. 

program massiv;
var
mas:array[1..5] of integer;
N,i,j,p : integer;
begin

for n:=1 to 5 do //заполняем массив случайными числами
begin
randomize;
mas[n]:=random(100);
end;

for i:=1 to n do  //Сортируем массив
for j:=1 to n-1 do
if mas[j]>mas[j+1] then
begin
p:=mas[j];
mas[j]:=mas[j+1];
mas[j+1]:=p;
end;

for n:=1 to 5 do  //выводим отсортированый массив на экран
writeln(mas[n]);
end.

n - количество ячеек в одномерном массиве, в данном случаее их 5;
сортируем по возрастанию. Чтоб отсортировать по убыванию нужно в строке if mas[j]>mas[j+1] then поменять ">" на "<" 


Строки:
Задача 1

//Объявляем переменные
program zamena;
var
text,s:string;
i:integer;
begin
write('Введите строку');
readln(text);                       //Вводим строку
s:=text;
for i:=1 to length(s) do    //Начинаем замену "а" на "б"
if s[i]='а' then 
s[i]:='б'; 
end;
for i:=1 to length(s) do
if s[i]:='б' then
s[i]:='а';      //Заменяем обратно "б" на "а"  
end;      
write(s);   //выводим измененную строку на экран
end.

Задача 2

//Объявляем переменные
Program Palindrom;
var
text,n1,n2:string;
begin
write('Введите слово');
readln(text);
begin
text:=edit1.Text;
if (text[1]=text[length(text)]) and
(text[2]=text[length(text)-1]) then  //Сравниваем 2 первых и 2 последних буквы в слове
WriteLn('Слово является палиндромом')
else
WriteLn('Слово неявляется палиндромом');
end.

Этот код не совершенен, т.к. проверяется только 2 первые и 2 последние буквы. Но на данный момент я ниче лучшего не придумал :)

Задача 3

program Summa;

function StrToInt(s:string):integer;   //Ф-ция для преобразования STRING в INTEGER
var
i:integer;
code:integer;
begin
val(s,i,code);
strtoint:=i;
end;

var
text:string;
i,sum,pr:integer;
begin
readln(text);

for i:=1 to length(text) do  //Находим сумму всех цифр данного числа
begin
sum:=strtoint(text[i])+sum;
pr:=strtoint(text[i])*sum;  //Находим произведение всех цифр данного числа
end;
writeln(sum);  //Выводим сумму
writeln(pr);  //Выводим произведение

end.
 
Останнє редагування:

Cris

Member
Ответ: Turbo Pascal

Кароче говорю задачю ее так нехто и ненаписал, напишите вмне впадло писать:

ДАНО двухмерный масив заполняеш любыми числами, в масиве 10+ елементов надо упорядочить методом пузыря по возрастанию и убыванию,
ВПАДЛО Писать))
 

Cris

Member
Ответ: Turbo Pascal

сCODE]Массивы
Задача 2.

program massiv;
var
mas:array[1..5] of integer;
N,i,j,p : integer;
begin

for n:=1 to 5 do //заполняем массив случайными числами
begin
randomize;
mas[n]:=random(100);
end;

for i:=1 to n do //Сортируем массив
for j:=1 to n-1 do
if mas[j]>mas[j+1] then
begin
p:=mas[j];
mas[j]:=mas[j+1];
mas[j+1]:=p;
end;

for n:=1 to 5 do //выводим отсортированый массив на экран
writeln(mas[n]);
end.

n - количество ячеек в одномерном массиве, в данном случаее их 5;
сортируем по возрастанию. Чтоб отсортировать по убыванию нужно в строке if mas[j]>mas[j+1] then поменять ">" на "<"[/QUOTE]

ето просто упорядочиванее ЕТО НЕ МЕТОД ПУЗЫРЬКА:
метод пузырька: сравниваются 2 чилса большее ставиться на место меньшего(ето у тебя есть) и если перестановка произошла то ИНДЕКС=1 если непроизошла то ИНДЕКС=0, масив проходится пока ИНДЕКС не будет равен 0. Если масив уже упорядочен то цыкл его пройдет один раз или как минимум Н-1(у тя же если масив уже упорядочен то цикл всеравно его проходит "много раз" раз, вот таквот)
 

GrAndSE

Тёмный
Модератор
Ответ: Turbo Pascal

Интересный какой. Впадло писать, напишите за меня. Впадло учиться, получите мне диплом. Да и работать влом, давайте ка я дома посижу, а вы за меня поработайте. Деньги за все заносите вконце месяца. С первой зарплатой и диплом занесите, а по дороге не забудьте купить пива - отметить же нужно.. Да и чего-нить пожевать, а то выходить из дому впадло. :)
 

HED

New Member
Ответ: Turbo Pascal

такая халява и никто сам написать не может. я эти массивы несчастные сортировал и змейкой и улиткой (начиная с верхнего левого угла и заканчивая в центре). все это слишком легко, шоб просить когото сделать. но если комуто сильно впадло, пишите мне, за небольшое вознаграждение сделаю.
я щас с кредитным калькулятором парюсь, никак формулки просчитать не могу.
 

quant

yeah
Відповідь: Ответ: Turbo Pascal

я щас с кредитным калькулятором парюсь, никак формулки просчитать не могу.
если я правильно понял что нужно, то тебе стоит погуглить по ключу "обратная польская запись" или "польская строка"
 
Зверху