Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Pascal
Перезагрузить страницу Нужна помощь в написании программы в паскале
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
guns guns вне форума
Новичок
 
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 11.12.2011
По умолчанию Нужна помощь в написании программы в паскале - 11.12.2011, 01:45

Ребята очень нужна помощь, если я не решу эту задачу, не буду допущен до экзамена ! Помогите мне пожалуйста
Сколько в произвольно двумерном массиве содержится различных элементов? Запишите их в одномерный массив и выведите на экран.
Ответить с цитированием
  (#2 (permalink)) Старый
Сергей29 Сергей29 вне форума
Member
 
Сообщений: 951
Сказал(а) спасибо: 5
Поблагодарили 86 раз(а) в 86 сообщениях
Регистрация: 20.03.2011
По умолчанию 11.12.2011, 22:12

Pascal Код:
Program prog_1;
uses Crt;
const onumber_arr=9;
      number_arr=3;
      m_word:array[1..number_arr,1..number_arr] of string =
      (('ability','aboard','array')
      ,('abruptly','briefcase','brother')
      ,('chip','chopper','earn'));
 Var
  o_word:array[1..onumber_arr] of string;    
  o, i, j: Integer;
Begin
clrscr;
For i:=1 to number_arr do
begin
For j:=1 to number_arr do
begin
inc(o);
o_word[o]:=m_word[i,j];
end;
end;
Write('Iznachalnie array:');
Writeln;
For i:=1 to number_arr do
begin
For j:=1 to number_arr do
Write(m_word[i,j],' ');
Writeln;
end;
Writeln;
Writeln;
Writeln('Znachenia array:');
For o:=1 to onumber_arr do
Write(o_word[o],',',' ');
Writeln;
Writeln;
Writeln;
Writeln('Chislo slov:',o);
readln;
end.
Ответить с цитированием
  (#3 (permalink)) Старый
Valdemarr Valdemarr вне форума
Member
 
Сообщений: 73
Сказал(а) спасибо: 0
Поблагодарили 4 раз(а) в 4 сообщениях
Регистрация: 06.12.2011
По умолчанию 11.12.2011, 22:20

Pascal Код:
const
     N=10; //размерность матрицы
     x=20; //указание диапазона для генератора псевдослучайных чисел
var
matrix:array[1..N,1..N]of integer;
vector:array[1..N*N]of integer;
base:set of byte;
i,j,v:integer;
begin
//Включаем генератор псевдослучайных чисел и
//заполняем массив случайными значениями
v:=0;//счетчик для вектора
base:=[];//пустое множество
randomize;
for i:=1 to N do
    for j:=1 to N do
        matrix[i,j]:=random(x);
//Собственно переписываем в vector из matrix те элементы которые есть
//только в одном экземпляре
for i:=1 to N do
    for j:=1 to N do
        begin
        if not(matrix[i,j] in base) then begin
                                         inc(v);
                                         vector[v]:=matrix[i,j];
                                         base:=base+[vector[v]];
                                         end;

        end;
//вывод
writeln('Количество различных элементов: ',v);
for i:=1 to v do
write(vector[i],' ');
end.
Собственно вот
Программу не тяжело преобразовать под любой тип данных
Ответить с цитированием
  (#4 (permalink)) Старый
Valdemarr Valdemarr вне форума
Member
 
Сообщений: 73
Сказал(а) спасибо: 0
Поблагодарили 4 раз(а) в 4 сообщениях
Регистрация: 06.12.2011
По умолчанию 11.12.2011, 22:23

Сергей, по-моему в этой задаче не это требуется
Ответить с цитированием
  (#5 (permalink)) Старый
Сергей29 Сергей29 вне форума
Member
 
Сообщений: 951
Сказал(а) спасибо: 5
Поблагодарили 86 раз(а) в 86 сообщениях
Регистрация: 20.03.2011
По умолчанию 11.12.2011, 22:50

Цитата:
Сообщение от Valdemarr Посмотреть сообщение
Сергей, по-моему в этой задаче не это требуется
да............................ буду учиться читать построчно
Ответить с цитированием
Ads.
  (#6 (permalink)) Старый
guns guns вне форума
Новичок
 
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 11.12.2011
По умолчанию 12.12.2011, 00:34

[QUOTE=guns;600997]Ребята очень нужна помощь, если я не решу эту задачу, не буду допущен до экзамена ! Помогите мне пожалуйста
Сколько в произвольно двумерном массиве содержится различных элементов? Запишите их в одномерный массив и выведите на экран.[/QUOTE
Нужно вывести на экран массив с разными элементами!
Ответить с цитированием
  (#7 (permalink)) Старый
Valdemarr Valdemarr вне форума
Member
 
Сообщений: 73
Сказал(а) спасибо: 0
Поблагодарили 4 раз(а) в 4 сообщениях
Регистрация: 06.12.2011
По умолчанию 12.12.2011, 01:09

Смотри мою программу!! Там все именно так и сделано!
если тебя смущает вот это
Pascal Код:
writeln('Количество различных элементов: ',v);
Просто удали.
Ответить с цитированием
  (#8 (permalink)) Старый
Илья10 Илья10 вне форума
Новичок
 
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 14.12.2017
По умолчанию 14.12.2017, 23:29

Нужна помощь кровь из носу, помогите плиз. Написать программу.В Паскале нет функции возведения в степень. Создайте функцию,
которой в качестве аргументов передается число и степень, в которую надо
возвести число. Используйте, имеющиеся функции Exp(x) и Ln(x) – x e и
ln(x) , соответственно, и тождество a^b =e^(b*ln(a)) . Число а должно быть больше
нуля.
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Срочно очень нужна помощь в написании программы! LostGik Delphi 1 28.11.2011 17:00
Срочна нужна помощь в написании программы anna a Delphi 4 16.10.2011 20:18
Срочна нужна помощь в написании программы.... anna a Pascal 0 13.10.2011 21:20
нужна помощь в написании курсового проекта!!! imported_nikolas Pascal 1 23.12.2010 15:46
Нужна помощь в написании проги Еленка1988 Prolog 9 10.12.2010 02:15
Нужна помощь в написании программы s-t-r-i-k-e-r Delphi 3 17.10.2008 03:33
Нужна помощь в написании программы для процессора 8051 на ассемблере Ketrin Форум программистов 4 09.05.2008 13:44
Вам нужна помощь в написании программы на любом языке программирования? weyland Работа 0 14.08.2007 17:03
Нужна помощь при написании программы на С++ Anonymous Вопросы начинающих программистов 4 22.02.2004 01:40
нужна помощь в написании скрипта Anddie PHP 0 21.02.2004 07:00
Помощь в написании программы на С++ imported_Druid Вопросы начинающих программистов 9 28.09.2003 19:43



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов