Форум АНТИЧАТ - [Delphi]/[Pascal] Задай вопрос, получи ответ

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей. Здесь обсуждаются безопасность, программирование, технологии и многое другое. Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz

		Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
[Delphi]/[Pascal] Задай вопрос, получи ответ

Страница 577 из 677

577

Опции темы

Поиск в этой теме

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

#5761

15.03.2010, 18:26

MaTpOc

Познавший АНТИЧАТ

Регистрация: 05.05.2008

Сообщений: 1,078

Провел на форуме:
10311449

Репутация: 1357

а)Помогите плиз написать прогу на паскале чтобы можно было в одномерном массиве изменить порядок следования элементов.

б)И написать программу подсчета количества элементов, попадающих между номером минимального элемента и максимального элемента в массиве из 30 чисел.

Последний раз редактировалось MaTpOc; 15.03.2010 в 18:44..

#5762

15.03.2010, 18:37

EndLeSSDre@M

Участник форума

Регистрация: 18.07.2009

Сообщений: 278

Провел на форуме:
3055344

Репутация: 259

Отправить сообщение для EndLeSSDre@M с помощью ICQ

а) не совсем понял.. как нужно что бы элементы находились?? просто в обратном порядке??? или рандомом?
б) между минимальным элементом и каким еще то???

#5763

15.03.2010, 18:45

MaTpOc

Познавший АНТИЧАТ

Регистрация: 05.05.2008

Сообщений: 1,078

Провел на форуме:
10311449

Репутация: 1357

Цитата:

Сообщение от EndLeSSDre@M

а) типо 123 а выводилось 321
б)поправил

#5764

15.03.2010, 18:48

EndLeSSDre@M

Участник форума

Регистрация: 18.07.2009

Сообщений: 278

Провел на форуме:
3055344

Репутация: 259

это для первой задачи

PHP код:


		
			
program asdf;

const n=10;

a:array[1..n] of integer;



begin

writeln('Zapolnite massive');

for i:=1 to n do

 begin

  write('a[',i,']=');

  readln(a[i]);

 end;

writeln;



writeln('Ishodniy massive');

for i:=1 to n do

 write(a[i], ' ');



writeln;



writeln('Rezultat');

for i:=n downto 1 do

 write(a[i], ' ');



writeln;

readln;

end.

Это для 2

PHP код:


		
			
program asdf;

const n=30;

a:array[1..n] of integer;



begin

writeln('Zapolnite massive');

for i:=1 to n do

 begin

  write('a[',i,']=');

  readln(a[i]);

 end;

writeln;



     X := 1;

     N := A[X];



for i:=1 to n do

    If N < A[I] Then

         Begin

              X := I;

              N := A[X];

          K=i

         End;

     

     X := 1;

     N := A[X];





for i:=1 to n do

    If N > A[I] Then

         Begin

              X := I;

              N := A[X];

          L=i

         End;



for i=K to L do 

    write(a[i], ' ');



    writeln;

    readln;

end.

Последний раз редактировалось EndLeSSDre@M; 15.03.2010 в 19:08..

#5765

15.03.2010, 19:06

Seravin

Участник форума

Регистрация: 25.11.2009

Сообщений: 201

Провел на форуме:
866555

Репутация: 226

Цитата:

Сообщение от EndLeSSDre@M

это для первой задачи

PHP код:


		
			
writeln('Rezultat');

for i:=n to 1 do

 write(a[i], ' ');



writeln;

readln;

end.

скорее for i:=n downto 1 do

#5766

15.03.2010, 20:30

Soherox

Познающий

Регистрация: 17.02.2010

Сообщений: 45

Провел на форуме:
195184

Репутация: 47

EndLeSSDre@M..Вы когда пишете код к программе хотя бы тестите его?! И прочитайте внимательнее какое задание было. Без обид, но вы такую байду выложили

MaTpOc...вот код ко второй задаче

Код:

{$APPTYPE CONSOLE}
const
  n = 30;
var
  a: array [1..n] of integer;
  i, imax, imin, max, min: integer;
begin
  min:=maxlongint;
  max:=-min;
  for i:=1 to n do
    begin
      read(a[i]); 
      if a[i] > max then // нахождение максимального
        begin
          imax:=i;
          max:=a[i];
        end;
      if a[i] < min then // нахождение минимального
        begin
          imin:=i;
          min:=a[i];
        end;
    end;
   if imin = imax then write('0')
  else write(abs(imin - imax) - 1);
  readln;
end.

И уточните один момент, первого макс/мин или последнего в массиве?

Последний раз редактировалось Soherox; 15.03.2010 в 20:33..

#5767

15.03.2010, 20:40

EndLeSSDre@M

Участник форума

Регистрация: 18.07.2009

Сообщений: 278

Провел на форуме:
3055344

Репутация: 259

а блин точно... просто не вчитался... вывел эти элементы, надо было количество... сорри!

п.с. я больше бэйсик знаю, потом просто под паскаль переделываю. 2Soherox спасибо за корректировку

#5768

15.03.2010, 22:56

[stranger]

Участник форума

Регистрация: 02.02.2010

Сообщений: 107

Провел на форуме:
612028

Репутация: 28

Отправить сообщение для [stranger] с помощью ICQ

нужен код на winapi для архивации папок/файлов.. zlib не предлагать!

#5769

15.03.2010, 23:25

LostZero

Новичок

Регистрация: 19.01.2008

Сообщений: 10

Провел на форуме:
345584

Репутация: 36

помогите с задачами)))
задачи на украинском языке)))

1. Складіть програму для побудови масиву з дванадцятьма елементами ai=4sin3i і обчислення середньоарифметичного значення елементів більших, ніж -1 і менших ніж 1.

2. Оголосіть сталий масив з назвами трьох фірм, і сталий масив з трьома будь-якими числовими даними, що характеризують їхню діяльність.

#5770

15.03.2010, 23:34

[stranger]

Участник форума

Регистрация: 02.02.2010

Сообщений: 107

Провел на форуме:
612028

Репутация: 28

Цитата:

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

ai=4sin3i

что такое последняя "i"?

2)

Код:

firm: array[0..2] of string;
dej: array[0..2] of integer;

...

firm[0] := "firm1";
firm[1] := "firm2";
firm[2] := "firm3";

dej[0] := 123;
dej[1] := 234;
dej[2] := 345;

так что ли?

Последний раз редактировалось [stranger]; 15.03.2010 в 23:39..

Страница 577 из 677

577

« Предыдущая тема | Следующая тема »

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
[Wi-Fi, BT] Задай вопрос - получи ответ!	Alexsize	Беспроводные технологии/WPAN/WLAN	2564	06.04.2026 23:31
[ *NIX ] Задай вопрос - получи ответ.	Xszz	*nix	1547	15.06.2010 15:41
[jQuery] - Задай вопрос, получи ответ	Isis	PHP, PERL, MySQL, JavaScript	62	25.12.2009 03:25
ЕсТь ВоПрос	Guma	Чаты	4	26.10.2005 21:48

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Быстрый переход