IPB

Здравствуйте, гость ( Вход | Регистрация )

> Pascal, помогите
CumbeR-C
сообщение Oct 29 2006, 14:27
Сообщение #1


Супер постер
*****

Группа: Posters
Сообщений: 756
Регистрация: 23.9.2006
Из: Саратов
Пользователь №: 2,028



помогите решить задачку!
Определить минимальный элемент массива и его порядковый номер.


--------------------
спасем китов, maza f*cka! %)
Вернуться к началу страницы
 
+Цитировать сообщение
4 страниц V   1 2 3 > »   
Создать новую тему
Ответов (1 - 19)
AndrewDragon
сообщение Oct 29 2006, 15:09
Сообщение #2


Устаревший Дракон
Иконка группы

Группа: Global moder
Сообщений: 1,579
Регистрация: 10.10.2005
Из: NChK
Пользователь №: 100



лол)))

Код
const N=4
var
    Min: real;
    a:array[1..N] of real;
    i,g: integer;
begin
    writeln('BBEDUTE EJIEMEHTbI MACCUBA');
    for i:=1 to n do begin
        write(' A[',i,']=');
        readln(a[i])
    end;
    Min:=a[1];
    for i:=2 to n do
        if Min>a[i] then begin
            Min:=a[i];
            g:=i; {nomer minimalnogo elementa}
            end;
    
    writeln('MUHUMAJIbHbIU EJIEMEHT MACCUBA - A[',g,']=',Min);
end.


Убрал ошибки и недочёты. Модератор.

Сообщение отредактировал Gobbs - Oct 29 2006, 16:49


--------------------
Атдам наски в хорошие руки. Цвет мокрый асфальт. Запах мокрые ноги. Пробег 17 км. На ходу. Требуют стирки. Вывертыш.

и почему вам 17 лет?..
Вернуться к началу страницы
 
+Цитировать сообщение
CumbeR-C
сообщение Oct 29 2006, 16:01
Сообщение #3


Супер постер
*****

Группа: Posters
Сообщений: 756
Регистрация: 23.9.2006
Из: Саратов
Пользователь №: 2,028



Пасиба! АГРОМНОЕ!


--------------------
спасем китов, maza f*cka! %)
Вернуться к началу страницы
 
+Цитировать сообщение
Гость_trust_*
сообщение Oct 29 2006, 18:25
Сообщение #4





Guests






Код
Program Pashka;
Const N=5;
Var X,Min,NMin,I:Integer;
Begin
Writeln('Input Array');
Min:=MaxInt;
for I:=1 to N Do
Begin
  Read(X);
   if X<Min then Begin
                  Min:=X;
                  NMin:=I;
                 End;
End;
Writeln('ArrayMin is number ',NMin,':',Min);
Readln; Readln;
End.

а зачем массив заводить вообще? smile.gif

Сообщение отредактировал trust - Oct 29 2006, 18:29
Вернуться к началу страницы
 
+Цитировать сообщение
Amp
сообщение Oct 29 2006, 18:51
Сообщение #5


Мега постер
Иконка группы

Группа: Local moder
Сообщений: 1,712
Регистрация: 21.8.2006
Пользователь №: 1,269



Цитата(trust @ Oct 29 2006, 18:25) *
а зачем массив заводить вообще? smile.gif

Потому что такова формулировка задания

Сообщение отредактировал Amp - Oct 29 2006, 18:51


--------------------
irc-капец

#КартинкА#
Вернуться к началу страницы
 
+Цитировать сообщение
CumbeR-C
сообщение Nov 1 2006, 18:02
Сообщение #6


Супер постер
*****

Группа: Posters
Сообщений: 756
Регистрация: 23.9.2006
Из: Саратов
Пользователь №: 2,028



Решите плиз задачки:
1 задача.
Заменить элементы массива с нечетными номерами на квадраты этих чисел.
2 задача.
Переставить 3 первых и три последовательных элемента массива сохраняя порядок их следования.


--------------------
спасем китов, maza f*cka! %)
Вернуться к началу страницы
 
+Цитировать сообщение
Гость_trust_*
сообщение Nov 1 2006, 18:25
Сообщение #7





Guests






Код
Program Pashka;
Const N=5;
Var A:Array[1..N] of Integer;
I:Integer;
Begin
for I:=1 to N do Read(A[I]);

for I:=1 to N do
Begin
  if (I mod 2)<>0 then A[I]:=A[I]*A[I];
End;

for I:=1 to N Do Write(A[I],' ');
Readln; Readln;
End.

вроде работает, но это наскоро и не отлажено... blush.gif

во второй задаче, ты имел ввиду 3 последних?

А вот и вторая: сырая, аналогично первой smile.gif :
Код
Program Pashka;
Const N=10;
Var A:Array[1..N] of Integer;
I,X:Integer;
Begin
for I:=1 to N do Read(A[I]);

for I:=1 to 3 do
Begin
  X:=A[I];
  A[I]:=A[N-3+I];
  A[N-3+I]:=X;
End;

for I:=1 to N do Write(A[I],' ');
Readln; Readln;
End.


Сообщение отредактировал trust - Nov 1 2006, 18:25
Вернуться к началу страницы
 
+Цитировать сообщение
CumbeR-C
сообщение Nov 1 2006, 18:34
Сообщение #8


Супер постер
*****

Группа: Posters
Сообщений: 756
Регистрация: 23.9.2006
Из: Саратов
Пользователь №: 2,028



Пасиба те!


--------------------
спасем китов, maza f*cka! %)
Вернуться к началу страницы
 
+Цитировать сообщение
-flank
сообщение Nov 1 2006, 19:06
Сообщение #9


Супер постер
Иконка группы

Группа: Global moder
Сообщений: 718
Регистрация: 29.8.2005
Из: Чебоксары
Пользователь №: 54



Цитата(trust @ Nov 1 2006, 18:25) *
во второй задаче, ты имел ввиду 3 последних?
А вот и вторая: сырая, аналогично первой smile.gif :
Цитата
Program Pashka;
Const N=10;
Var A:Array[1..N] of Integer;
I,X:Integer;


за это бы у нас прогу не приняли, сказав что не эффективно используете ресурсы smile.gif

Сообщение отредактировал -flank - Nov 1 2006, 19:07
Вернуться к началу страницы
 
+Цитировать сообщение
Гость_unit47_*
сообщение Nov 1 2006, 19:27
Сообщение #10





Guests






Цитата(-flank @ Nov 1 2006, 19:06) *
за это бы у нас прогу не приняли, сказав что не эффективно используете ресурсы smile.gif

имеешь ввиду лучше было бы сделать I,X:^integer; ???
а с массивом сделать такую штукку раз речь пошла об этом!
TYPE
MASSIV:ARRAY[1..N] OF INTEGER(или BYTE smile.gif);
PMASSIV=^MASSIV;
VAR
A:Pmassiv; I:BYTE;

а патом всеместо if (I mod 2)<>0 then A[I]:=A[I]*A[I];
if (I mod 2)<>0 then A^[I]:=A^[I]*A^[I];
а патом где надо дописатьNEW(A) и DISPOSE(A); или еще попробовать фишку с SIZEOF
так Экономичней???
Вернуться к началу страницы
 
+Цитировать сообщение
-flank
сообщение Nov 1 2006, 19:42
Сообщение #11


Супер постер
Иконка группы

Группа: Global moder
Сообщений: 718
Регистрация: 29.8.2005
Из: Чебоксары
Пользователь №: 54



Цитата(unit47 @ Nov 1 2006, 19:27) *
имеешь ввиду лучше было бы сделать I,X:^integer; ???
а с массивом сделать такую штукку раз речь пошла об этом!

нет, I X никогда не будут отрицательными smile.gif
хотя я немножко не правильно сказал про ресурсы, жраться то они будут одинково, просто максимальный массивы будет разным smile.gif
Вернуться к началу страницы
 
+Цитировать сообщение
Гость_unit47_*
сообщение Nov 1 2006, 20:49
Сообщение #12





Guests






Следовательно I X можно было обявить типаом BYTE
Вернуться к началу страницы
 
+Цитировать сообщение
Гость_trust_*
сообщение Nov 1 2006, 21:03
Сообщение #13





Guests






X нельзя. массив из интегер же! а тип I такой же как у константы.
Вернуться к началу страницы
 
+Цитировать сообщение
Гость_DiFlax_*
сообщение Nov 12 2006, 15:44
Сообщение #14





Guests






так!
раз тут аткие гении
то решите мне задачи для олимпиады по информатике!!!!!!!!!
Вернуться к началу страницы
 
+Цитировать сообщение
F2F
сообщение Nov 12 2006, 15:57
Сообщение #15


Новичок
*

Группа: Posters
Сообщений: 33
Регистрация: 2.12.2005
Пользователь №: 173



Решитика задачку!
Условия задачки такие( biggrin.gif ): Злоумышленники варварски вбили в ни в чем неповинную плоскою поверхности N гвоздей, да так, что только шляпки остались. Мало того, они в своих подлых целях вбили все гвозди в вершины выпуклого многоугольника. После этого они ... страшно сказать... они натянули ниточку вокруг всех гвоздей, так, что поверхность стало совсем грустно! хахахаха, условия задачки не менял! прям так и было написано laugh.gif ) Дополнительно: 1<N<100; P-радиус шляпок.
ОПРЕДЕЛИТЬ ДЛИНУ НИТОЧКИ(S).


--------------------
Если человек счастлив больше одного дня, значит, от него что-то скрывают.
Жизнь коротка: но по сравнению с чем?
Вернуться к началу страницы
 
+Цитировать сообщение
pavel
сообщение Nov 12 2006, 23:40
Сообщение #16


Пользователь
**

Группа: Posters
Сообщений: 116
Регистрация: 22.5.2006
Из: Чебоксары
Пользователь №: 616



Цитата(F2F @ Nov 12 2006, 15:57) *
Решитика задачку!
http://g6prog.narod.ru/g6_1022.html
Цитата(F2F @ Nov 12 2006, 15:57) *
условия задачки не менял
опустили часть, без которой решение найти будет трудновато smile.gif
Вернуться к началу страницы
 
+Цитировать сообщение
F2F
сообщение Nov 13 2006, 07:55
Сообщение #17


Новичок
*

Группа: Posters
Сообщений: 33
Регистрация: 2.12.2005
Пользователь №: 173



Цитата


Вот спасибочки smile.gif


--------------------
Если человек счастлив больше одного дня, значит, от него что-то скрывают.
Жизнь коротка: но по сравнению с чем?
Вернуться к началу страницы
 
+Цитировать сообщение
GENNADIY
сообщение Dec 24 2006, 19:28
Сообщение #18


Настоящий ADSL'щик
****

Группа: Posters
Сообщений: 491
Регистрация: 31.8.2006
Из: Чебоксары
Пользователь №: 1,438



Вот вам ещё 3 задачи помогите плизз
1) Значение функции y=1-sin2x, при -Пи<=x<=Пи c шагом Пи/4.
2)Имеется 4 произвольных числа A,B,C,D. Эвм должна ответить на вопрос:Правда ли что ...? Ответ Эвм должна вывести в виде текста-слова "Правда" или "неправда".Последнее число несамое маленькое?
3)Имеется массив A из N произвольных чисел (А(N)), среди которых есть положительные, отрицательные и равные. Используя оператор цикла, оставить программу, выполняющую задачу в соответствии с вариантом. Выяснить есть ли одинаковые элементы в массиве. Ответ Да/нет. Например если А=2,4,3,0,2,5,4 результат:Да(одинаковые значения 2 и 2).
Заранее благодарен
Вернуться к началу страницы
 
+Цитировать сообщение
Cep]I[AHT
сообщение Dec 24 2006, 20:22
Сообщение #19


Продвинутый пользователь
***

Группа: Posters
Сообщений: 264
Регистрация: 14.12.2005
Пользователь №: 193



Помогите решить задачу smile.gif)

1.Вычислить сумму и разность двух заданных одномерных массивов размером 5. Результат напечатать в виде двух параллельных столбцов.
2. Дан массив целых чисел из 25 элементов. Заполняется случайным образом.Найдите сумму нечетных массивов. Определите, имеетя ли в данном массиве нечетные элементы.

заранее благодарен smile.gif


--------------------
9| geJIa|-O }I{eCTb
----------------------
Не верь, не бойся, не проси
Вернуться к началу страницы
 
+Цитировать сообщение
Amp
сообщение Dec 25 2006, 11:06
Сообщение #20


Мега постер
Иконка группы

Группа: Local moder
Сообщений: 1,712
Регистрация: 21.8.2006
Пользователь №: 1,269



Это из-за зачетной недели всем приспичило? smile.gif)


--------------------
irc-капец

#КартинкА#
Вернуться к началу страницы
 
+Цитировать сообщение

4 страниц V   1 2 3 > » 
ОтветитьСоздать новую тему
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



RSS Текстовая версия Сейчас: 29th March 2024 - 12:09