FORUMS

MEMBERS

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

		Форум АНТИЧАТ > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
[Delphi]/[Pascal] Задай вопрос, получи ответ

Страница 568 из 671

568

Опции темы

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

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

15.03.2010, 06:58

fenixelite

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

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

Сообщений: 189

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

Репутация: 79

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

Поподробнее напиши, а то я че то, кроме того что в массиве 12 элементов, заданных формулой, ничего не понял..

15.03.2010, 11:54

[stranger]

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

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

Сообщений: 107

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

Репутация: 28

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

выложите delphi3 у кого есть, пожалуйста!

15.03.2010, 12:04

s0l_ir0n

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

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

Сообщений: 237

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

Репутация: 314

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

Цитата:

Сообщение от [stranger]

выложите delphi3 у кого есть, пожалуйста!

http://snowy.ifolder.ru/3257180

15.03.2010, 15:04

[stranger]

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

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

Сообщений: 107

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

Репутация: 28

Цитата:

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

http://snowy.ifolder.ru/3257180

я этот уже качал!
он не ставится.. если у тебя получилось поставить залей куда-то компилер оттуда.

15.03.2010, 18:26

MaTpOc

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

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

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

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

Репутация: 1357

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

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

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

15.03.2010, 18:37

EndLeSSDre@M

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

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

Сообщений: 278

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

Репутация: 259

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

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

15.03.2010, 18:45

MaTpOc

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

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

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

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

Репутация: 1357

Цитата:

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

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

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..

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

#10

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..

Страница 568 из 671

568

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

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
[Wi-Fi, BT] Задай вопрос - получи ответ!	Alexsize	Беспроводные технологии/Wi-Fi/Wardriving	2568	25.04.2026 12:58
[jQuery] - Задай вопрос, получи ответ	Isis	PHP	62	25.12.2009 03:25

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

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

ANTICHAT.XYZ