Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Cрочно паскаль очень нужно (Жду ответа)
Cрочно паскаль очень нужно
Задание 1. Составьте программу для решения следующей задачи обработки одномерных массивов произвольной длины. Выведите на монитор исходные данные и результат.

13. Найти количество различных элементов в заданном массиве вещественных чисел.

Задание 2. Составьте программу для решения следующей задачи обработки двумерных массивов произвольной длины. Выведите на монитор исходные данные и результат.

1. Заданы натуральное четырехзначное число и двумерный массив, элементами которого являются натуральные четырехзначные числа. Определить, имеется ли в таблице число с обратным порядком расположения цифр по отношению к данному. Найти его индексы.
1 | Автор: Demanovich | 2012-03-23, 14:23   |  Репутация: [ + 0 ]
Quote (Demanovich)
13. Найти количество различных элементов в заданном массиве вещественных чисел.


При вводе:
5
1 1 2 2 3
Результат должен быть 1 или 3?


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-03-26, 19:49   |  Репутация: [ + 211 ]
Quote (Demanovich)
Задание 2. Составьте программу для решения следующей задачи обработки двумерных массивов произвольной длины. Выведите на монитор исходные данные и результат.

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

var
mass:array[1..100,1..100]of integer;
i,j,n,chislo,ii,jj:integer;
flag:boolean;
begin
flag:=false;
read(chislo);
read(n);
for i:=1 to n do
for j:=1 to n do begin
read(mass[i,j]);
if (chislo div 1000=mass[i,j] mod 10)and
(chislo mod 1000 div 100=mass[i,j] mod 100 div 10)and
(chislo mod 100 div 10=mass[i,j] mod 1000 div 100)and
(chislo mod 10=mass[i,j] div 1000) then begin
flag:=true;ii:=i;jj:=j;end;end;
if flag then begin writeln('yes');writeln(ii,' ',jj);end else writeln('no');
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
3 | Автор: Berestovskiy | 2012-03-26, 22:40   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Cрочно паскаль очень нужно (Жду ответа)
Страница 1 из 11
Поиск: