Pascal, помогите Опции

[CumbeR-C]

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

[AndrewDragon]

лол)))

Код

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

[CumbeR-C]

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

[Гость_trust_*]

Код

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.

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

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

[Amp]

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

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

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

[CumbeR-C]

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

[Гость_trust_*]

Код

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.

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

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

А вот и вторая: сырая, аналогично первой :

Код

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]

Пасиба те!

[-flank]

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

Program Pashka;
Const N=10;
Var A:Array[1..N] of Integer;
I,X:Integer;

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

Сообщение отредактировал -flank - Nov 1 2006, 19:07

[Гость_unit47_*]

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

имеешь ввиду лучше было бы сделать I,X:^integer; ???
а с массивом сделать такую штукку раз речь пошла об этом!
TYPE
MASSIV:ARRAY[1..N] OF INTEGER(или BYTE );
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]

имеешь ввиду лучше было бы сделать I,X:^integer; ???
а с массивом сделать такую штукку раз речь пошла об этом!

нет, I X никогда не будут отрицательными
хотя я немножко не правильно сказал про ресурсы, жраться то они будут одинково, просто максимальный массивы будет разным

[Гость_unit47_*]

Следовательно I X можно было обявить типаом BYTE

[Гость_trust_*]

X нельзя. массив из интегер же! а тип I такой же как у константы.

[Гость_DiFlax_*]

так!
раз тут аткие гении
то решите мне задачи для олимпиады по информатике!!!!!!!!!

[F2F]

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

[pavel]

Решитика задачку!

http://g6prog.narod.ru/g6_1022.html

условия задачки не менял

опустили часть, без которой решение найти будет трудновато

[F2F]

http://g6prog.narod.ru/g6_1022.html

Вот спасибочки

[GENNADIY]

Вот вам ещё 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]

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

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

заранее благодарен

[Amp]

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

[GENNADIY]

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

Да ну помогите же

[Гость_DAN_MSU_*]

мда)) у нас такие задачи в начале семестра были, в конце уже решали списки и деревья

[Daniilka]

Это сон у мну такой страшный?
... гениальные задачки ... гениальные придирки?

[Daniilka]

Вот вам ещё 3 задачи помогите плизз
1) Значение функции y=1-sin2x, при -Пи<=x<=Пи c шагом Пи/4.

var i:integer;
begin
for i:=-4 to 4 do Writeln('y=',sin(pi*x/2));
end;

Как-то так...

2)Имеется 4 произвольных числа A,B,C,D. Эвм должна ответить на вопрос:Правда ли что ...? Ответ Эвм должна вывести в виде текста-слова "Правда" или "неправда".Последнее число несамое маленькое?

var i,m:integer; c:char;

begin
m:= 32767;

for c:='a' to 'c' do
begin
write(c,'= /? ');
Readln(i);
if i<m then m:=i;
end;

writeln ('d= /?');
readln(i);
writeln('Правда ли, что последнее число не самое маленькое ?');
if i < m then Write('правда')
else write('неправда');
end.

3)Имеется массив A из N произвольных чисел (А(N)), среди которых есть положительные, отрицательные и равные. Используя оператор цикла, оставить программу, выполняющую задачу в соответствии с вариантом. Выяснить есть ли одинаковые элементы в массиве. Ответ Да/нет. Например если А=2,4,3,0,2,5,4 результат:Да(одинаковые значения 2 и 2).

const n:=5; // Нужно делать от 1 до 255, иначе менять переменные с типа byte на другой...
var a:array[1..n] of integer; i,j:byte; t:boolean;
begin
if n>1 then begin
Readln(a[1]);
for i:=2 to n do
begin
readln(a[i]); f:=false;
for j:=1 to (i-1) do if a[j] = a[i] then begin t:=true; break; end;
end;

Writeln;
if f then Writeln('Результат: да') else Writeln('Результат: нет')
end
else
Writeln('Результат: нет')

end.


В принципе лажовенько, но под задание прокатывает....

Заранее благодарен

Полагаю, что уже не за что.
Желаю тебе в следующем году научится решать эти и другие задачки в пол плевка самостоятельно...
Передай от меня своему преподу, что он долб@@б, му@@к и полный кр@@@н. ок ?
P.S. Еще раз акцентирую внимание на словах "научится" и "самостоятельно"

[GENNADIY]

Полагаю, что уже не за что.
Желаю тебе в следующем году научится решать эти и другие задачки в пол плевка самостоятельно...
Передай от меня своему преподу, что он долб@@б, му@@к и полный кр@@@н. ок ? tongue.gif
P.S. Еще раз акцентирую внимание на словах "научится" и "самостоятельно" smile.gif

ok передам

[Гость_redHunter_*]

var i:integer;
begin
for i:=-4 to 4 do Writeln('y=',sin(pi*x/2));
end;

А это не прокатит, шаг не pi/4, да и x не определен! Вот так попробуй
var x.y:real;
begin
x:=-pi;
repeat
y:=1-sin(2*pi);
writeln(x:5:2,y:6:2);
x:=x+pi/4;
until x>pi;
end.

[Гость_J-Fank_*]

кто из НЧК был на Олимпиаде?
и какое место занел? ( и какая школа?)

[Гость_-=Alex=-_*]

народ, помощь нужна...
Если кому не трудно напишете пожалуйста прогу:
есть входной файл с текстом(несколько строк), надо чтобы прога удаляла из каждой строки последовательность символов, ограниченных с обеих сторон заданным символом.

Заранее благодарен.

[Гость_redHunter_*]

народ, помощь нужна...
Если кому не трудно напишете пожалуйста прогу:
есть входной файл с текстом(несколько строк), надо чтобы прога удаляла из каждой строки последовательность символов, ограниченных с обеих сторон заданным символом.

Заранее благодарен.

program forU;
var finp,fout:text;
nameI,nameO:string;
bor:char;
simb:char;
yes:boolean;
begin
write('name input file?');readln(nameI);
write('name output file?');readln(nameO);
write('border simbol?');readln(bor);
assign(finp,nameI);assign(fout,nameO);
reset(finp); rewrite(fout);
yes:= true;
repeat
read(finp,simb);
if simb=bor then yes:=not yes else
begin
if yes then write(fout,simb);
end;
until eof(finp);
close(finp);close(fout);
end.
Тут 2 файла: исходный и результат, название сам введешь, когда прогу запустишь. Символ тоже! До запуска создай исходный файл с текстом. Лучше блокнотом!

народ, помощь нужна...
Если кому не трудно напишете пожалуйста прогу:
есть входной файл с текстом(несколько строк), надо чтобы прога удаляла из каждой строки последовательность символов, ограниченных с обеих сторон заданным символом.

Заранее благодарен.

Проверил, у меня работает пользуйся Кстати, где учишься?

[MadDog.er]

program forU;
var finp,fout:text;
nameI,nameO:string;
bor:char;
simb:char;
yes:boolean;
begin
write('name input file?');readln(nameI);
write('name output file?');readln(nameO);
write('border simbol?');readln(bor);
assign(finp,nameI);assign(fout,nameO);
reset(finp); rewrite(fout);
yes:= true;
repeat
read(finp,simb);
if simb=bor then yes:=not yes else
begin
if yes then write(fout,simb);
end;
until eof(finp);
close(finp);close(fout);
end.
Тут 2 файла: исходный и результат, название сам введешь, когда прогу запустишь. Символ тоже! До запуска создай исходный файл с текстом. Лучше блокнотом!
Проверил, у меня работает пользуйся Кстати, где учишься?

хех ети штуки дрюки мы ещё на прошлом курсе проходили

[Гость_redHunter_*]

хех ети штуки дрюки мы ещё на прошлом курсе проходили

Ну-ну, на экзаменах докажете

[Гость_-=Alex=-_*]

вроде работает, спасибо. вообще-то это я не для себя... попросил один чувак с ээ11-06 (чгу). я-то сам из эт, и паскаль у нас только во втором семестре будет. но я до этого только qbasic знал, сейчас постепенно к паскалю привыкаю

[Gobbs]

вроде работает, спасибо. вообще-то это я не для себя... попросил один чувак с ээ11-06 (чгу). я-то сам из эт, и паскаль у нас только во втором семестре будет. но я до этого только qbasic знал, сейчас постепенно к паскалю привыкаю

снабженцы опять халтурят?

[Lenin]

дада Gobbs, 11-06 это вроде специальность системных администраторов...

[Гость_redHunter_*]

вроде работает, спасибо. вообще-то это я не для себя... попросил один чувак с ээ11-06 (чгу). я-то сам из эт, и паскаль у нас только во втором семестре будет. но я до этого только qbasic знал, сейчас постепенно к паскалю привыкаю

Не за что Обращайся

[Gobbs]

дада Gobbs, 11-06 это вроде специальность системных администраторов...

не, это ЭЭ, не ИВТ

[Amp]

Ну и не совсем системных администраторов ), если уж применять к ИВТ

Сообщение отредактировал Amp - Jan 7 2007, 01:09

[Гость_frakciya_*]

Привет всем! Решите плз задачки...хоть одну, пожалуйста.

Сегодня день рождения Тэда (Ted). Ему исполнилось 100 лет. Вам нужно составить список его потомков, упорядоченный по убыванию из возраста. Но для составления списка имеется только список, содержащий имя отца, имя ребёнка и возраст отца в момент рождения ребёнка.
В первой строке входного файла содержится одно целое число N (1<=N<100) - количество потомков Тэда. Далее следует N строк, в каждой строке содержатся два имени ( не более 20 букв) и одно целое число, разделённые пробелами - имя отца, имя ребёнка и возраст отца в момент рождения ребёнка. Все имена уникальны и не содержат пробелов.
В выходной файл вывести N строк, в каждой строке нужно вывести имя потомка и его возраст в 100-й юбилей Тэда через пробел. Потомки должны быть выведенны в порядке уменьшения их возраста. Потомки с одинаковым возрастом выводятся в афавитном порядке.

Решите плз. Никого задачка не раззадорила?

[JokkoS]

А вот мне оч оч нада ....... спасите !!...ааа!!!..хыхы...вошем вам если примите задачка..не сложная...

Необходимо построить линию равного градиента для нелинейной функции двух переменных в некоторой точке. Чтоб выводился на экран полученный график. Функции задаются по индивидуальным вариантам. Кроме всего етого, необходимо составить таблицу на основе опытных данных, каково будет кол-во итераций программы в зависимости от заданной точности.
Данные:
Исходная точка x,y (2/3, 3π/4)
функция sqrt(x²y+0,2y²x+2)-0,2y¹ּ¹
Примичание:
sqrt - квалратный корень степени вычесляется по формуле xª=exp(a*ln(x)), где exp-экспонента, ln-натуральный логарифм
grad=d²(f(x,y))/dxdy


Ну как кто смогёт?...оч нуно как стакан воды в пустыне....
Никто навен не возьмется ет так сложно..ухх..хыхы..

Сообщение отредактировал JokkoS - Jan 20 2007, 12:50

[Гость_CBAPOr_*]

Я вроде отмучился с программированием, на время. В ближайшие полгода его небудет... Честно говоря ну ненравится мнеоно, блин ни грамма, не понимаю я зачем все это нужно.

[Temp1ar]

Я вроде отмучился с программированием, на время. В ближайшие полгода его небудет... Честно говоря ну ненравится мнеоно, блин ни грамма, не понимаю я зачем все это нужно.

А ты когда загружаешь Internet Explorer чтобы залезть на любимый паук, или при загрузке непосредственно виндовса тоже не задумывался зачем нужно программирование?

[Гость_CBAPOr_*]

я имел ввиду что МНЕ это ненужно, ибо я неандестенд ничерта

[SiMM]

я имел ввиду что МНЕ это ненужно, ибо я неандестенд ничерта

Тем не менее это не мешает тебе пользоваться алгоритмами в повседневной жизни. И, даже более того, без них ты и шагу не ступишь, и кофею не заваришь.

[Гость_CBAPOr_*]

Только умничать ненада. Я в програмировании самую малость шарю, если напрячься, но считаю что мне это ненужно. Я же сказал

[SiMM]

мне это ненужно

Тогда зачем ты пользуешься алгоритмами в повседневной жизни?

[Гость_CBAPOr_*]

На то она повседневная жизнь, а не програмирование. Слушай можт не стоит меня напрягать по этому вопросу? меня в универе достают с програмированием

[spartak_lp]

У меня ща в универе тоже проблемы с этим программированием начались. Нихрена не шарю я в нем. В школе не было предмета "Основы прогрммирования", а в универе нам начинают объяснять с оговоркой, что в школах мы должны были базу всю знать.

[Гость_m@ch_s0_*]

http://g6prog.narod.ru/g6_1022.html

Прикольные задачки

[Bjorndalen]

приколы только в тексте... а сами задачки эх-хххх......

[uTopiA]

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

Ну как решили задачку?

[Amp]

Ну как решили задачку?

Банально

[Bjorndalen]

Простите, может не совсем в тему говорю. Хотел задать вопрос: где в Чебокасарах учат программированию (в смысле в каких ВУЗах)? Про ЧГУ я уже знаю....

[Amp]

Тут в болтологии всплывал филиал не помню какого Московского университета/института.

[Gobbs]

Простите, может не совсем в тему говорю. Хотел задать вопрос: где в Чебокасарах учат программированию (в смысле в каких ВУЗах)? Про ЧГУ я уже знаю....

МГОУ - специальность "программирование".

[Amp]

МГОУ - специальность "программирование".

Номер-то специальности назвать наверно можно?

[Gobbs]

Номер-то специальности назвать наверно можно?

если знаешь - называй

[Amp]

если знаешь - называй

Я такой о такой специальности, как "программирование" слышу впервые, потому и спрашиваю.

Сообщение отредактировал Amp - Mar 7 2007, 19:01

[Gobbs]

точно не знаю, но в самом МГОУ в Москве есть вот это
http://www.msou.ru/articles/575/
Не факт, что в филиале то же самое.

[Bjorndalen]

точно не знаю, но в самом МГОУ в Москве есть вот это
http://www.msou.ru/articles/575/
Не факт, что в филиале то же самое.

ясно, может ещё какие места знаете?

[Amp]

Выбор все равно небольшой. Не узнавал, но посмотри еще в копере.
Бюджетная форма обучения роль играет?

[Bjorndalen]

Выбор все равно небольшой. Не узнавал, но посмотри еще в копере.
Бюджетная форма обучения роль играет?

да. копер для меня пока не вариант....

[MadDog.er]

не пацаны счаз по идее на любой тех/инфо специальности есть програмирование!
ну конешно во всех разный уровень гдето начинают с самого что не наесть начального Pascal
как к примеру у нас что не есть хорошо т.к. в школе я уж ето проходил и 1 год ничё нового не узнал, щас Delfi но ето блин тоже самое за исключение ООП
зы хотелосы бы C++ и более новые программы нежели Pascal и вооообще было бы не плохо ввести Pascal в школах т.к. ето вс таки основа!

Я вроде отмучился с программированием, на время. В ближайшие полгода его небудет... Честно говоря ну ненравится мнеоно, блин ни грамма, не понимаю я зачем все это нужно.

эээгыгыгы пашан обезян
надо надо надо!

Ну как решили задачку?

вот ето такая задачка типо 2+2 или 3+3

[Amp]

вооообще было бы не плохо ввести Pascal в школах т.к. ето вс таки основа!

В школах с углубленным изучением чего-либо есть (например, когда я учился во 2-м лицее, нам давали паскаль. хорошо давали). А в средних школах толку от паскаля, если большинство тамошних учеников бейсик освоить не могут (и им он на фиг не сдался)

[Bjorndalen]

В школах с углубленным изучением чего-либо есть (например, когда я учился во 2-м лицее, нам давали паскаль. хорошо давали). А в средних школах толку от паскаля, если большинство тамошних учеников бейсик освоить не могут (и им он на фиг не сдался)

да, пацаны, вам в лицеях дают паскаль, а мы так внеклассно с училкой по информатике разбираем.... понятно, что мало информации усваивается...

[uTopiA]

да, пацаны, вам в лицеях дают паскаль, а мы так внеклассно с училкой по информатике разбираем.... понятно, что мало информации усваивается...

Если очень хотеть, то все усвоится.

[Bjorndalen]

Если очень хотеть, то все усвоится.

хочется, то хочется, да времени на разгон не хватает, всё только в пожарном порядке, типа завтра олимпиада...

[Гость_Lady_Melamory_*]

Это все лень..)

[Диана]

Обращаюсь к тем, кто хорошо разбирается в паскале
прошу помочь решить задачу.... очень прошу вас, пожалуйста

В массиве целых чисел с количеством элементов N найти наиболее часто встречаемое число. Если таких чисел несколько, то определить наименьшее из них.

[Modest]

Диана, задачка несложная, хороший повод начать думать самостоятельно.
Советую разбить в 2 этапа, сначала "найти наиболее часто встречаемое число", а потом уже остальное.

[shaker]

Чувствую себя полнейшим идиотом, обращаясь с просьбой решить эту задачку:

На вход программе подаётся текстовый файл. Необходимо удалить из него все строки, содержащие заданный символ.

Буду очень благодарен, если кто-то напишет код

[Rus_lan]

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

[Rus_lan]

Уже не надо

[shaker]

Мне тоже )

[Татьяна]

Народ, уважаемые форумчане! помогите пожалуйста!
есть такая задача: Вычислить сумму и разность двух заданных одномерных массивов А и В размером 5. Результат напечатать в виде двух параллельных столбцов.
сумму и разность посчитала а со столбцами делать? все что знала перепробавала ничего не получается! кто знает помогите!
вот листинг моей программы:

Program simple;
uses CRT;
const n=5;
var a,b,c,d:array[1..5]of real;
i:integer;
begin
writeln('ishodny massiv');
for i:=1 to n do
for i:=1 to n do
c[i]:=a[i]+b[i];
for i:=1 to n do
write(c[i],'');
end.
begin
for i:=1 to n do
for i:=1 to n do
for i:=1 to n do
d[i]:=a[i]-b[i];
for i:=1 to n do
writeln(d[i],'');
end;
readln
end.

может где ошибку найдете.
заранее спасибо!

[AgatA]

Не знаю, насколько актуально. Но, Татьяна, задачка простейшая
Ошибки:
* вы не задаете исходные массивы: А и В (либо random'ом, либо ввод с клавы, либо задайте в теле кода);
* куча for'ов и точка после end'a

[Татьяна]

спасибо, конечно, но я уже разобралась, про random, for и пр. я знаю просто это была первых версий, а интересовало меня не это а вывод в столбик. но и в этом я уже разобралась.
все равно спасибо за внимание.

[roman007]

Помогите решить задачу Имеется четыре произвольных числа: A,B,C,D. При вводе их в ЭВМ, она должна ответить на вопрос: Правда ли что первое число не самое маленькое? Ответ ЭВМ должна вывести в виде текста - слов "Правда" или "Неправда".