Версия для печати темы

Автор: CumbeR-C Oct 29 2006, 14:27

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

Автор: AndrewDragon Oct 29 2006, 15:09

лол)))

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

Автор: CumbeR-C Oct 29 2006, 16:01

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

Автор: trust Oct 29 2006, 18:25

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

Автор: Amp Oct 29 2006, 18:51

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

Автор: CumbeR-C Nov 1 2006, 18:02

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

Автор: trust Nov 1 2006, 18:25

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

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

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

Автор: CumbeR-C Nov 1 2006, 18:34

Пасиба те!

Автор: -flank Nov 1 2006, 19:06

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

Автор: unit47 Nov 1 2006, 19:27

имеешь ввиду лучше было бы сделать 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 Nov 1 2006, 19:42

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

Автор: unit47 Nov 1 2006, 20:49

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

Автор: trust Nov 1 2006, 21:03

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

Автор: DiFlax Nov 12 2006, 15:44

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

Автор: F2F Nov 12 2006, 15:57

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

Автор: pavel Nov 12 2006, 23:40

http://g6prog.narod.ru/g6_1022.html
опустили часть, без которой решение найти будет трудновато

Автор: F2F Nov 13 2006, 07:55

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

Автор: GENNADIY Dec 24 2006, 19:28

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

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

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

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

Автор: Amp Dec 25 2006, 11:06

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

Автор: GENNADIY Dec 25 2006, 13:57

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

Автор: DAN_MSU Dec 28 2006, 13:53

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

Автор: Daniilka Dec 30 2006, 02:42

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

Автор: Daniilka Dec 30 2006, 03:37

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

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




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.



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 Dec 30 2006, 11:15

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

ok передам

Автор: redHunter Dec 30 2006, 22:23

А это не прокатит, шаг не 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 Dec 31 2006, 21:52

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

Автор: -=Alex=- Jan 4 2007, 14:28

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

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

Автор: redHunter Jan 4 2007, 21:37

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 Jan 5 2007, 01:00

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

Автор: redHunter Jan 5 2007, 19:39

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

Автор: -=Alex=- Jan 5 2007, 23:53

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

Автор: Gobbs Jan 6 2007, 01:37

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

Автор: Lenin Jan 6 2007, 19:37

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

Автор: redHunter Jan 6 2007, 20:24

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

Автор: Gobbs Jan 7 2007, 01:05

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

Автор: Amp Jan 7 2007, 01:08

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

Автор: frakciya Jan 20 2007, 11:28

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

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

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

Автор: JokkoS Jan 20 2007, 12:43

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

Необходимо построить линию равного градиента для нелинейной функции двух переменных в некоторой точке. Чтоб выводился на экран полученный график. Функции задаются по индивидуальным вариантам. Кроме всего етого, необходимо составить таблицу на основе опытных данных, каково будет кол-во итераций программы в зависимости от заданной точности.
Данные:
Исходная точка 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


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

Автор: CBAPOr Feb 14 2007, 10:52

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

Автор: Temp1ar Feb 14 2007, 23:27

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

Автор: CBAPOr Feb 15 2007, 10:04

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

Автор: SiMM Feb 15 2007, 10:34

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

Автор: CBAPOr Feb 16 2007, 21:14

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

Автор: SiMM Feb 17 2007, 09:54

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

Автор: CBAPOr Feb 17 2007, 23:20

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

Автор: spartak_lp Feb 18 2007, 10:01

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

Автор: m@ch_s0 Feb 18 2007, 17:43

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

Автор: Bjorndalen Mar 6 2007, 18:41

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

Автор: uTopiA Mar 6 2007, 21:19

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

Автор: Amp Mar 6 2007, 22:28

Банально

Автор: Bjorndalen Mar 7 2007, 18:14

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

Автор: Amp Mar 7 2007, 18:41

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

Автор: Gobbs Mar 7 2007, 18:44

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

Автор: Amp Mar 7 2007, 18:47

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

Автор: Gobbs Mar 7 2007, 18:47

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

Автор: Amp Mar 7 2007, 18:57

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

Автор: Gobbs Mar 7 2007, 19:03

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

Автор: Bjorndalen Mar 8 2007, 18:09

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

Автор: Amp Mar 8 2007, 18:17

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

Автор: Bjorndalen Mar 8 2007, 18:43

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

Автор: MadDog.er Mar 10 2007, 08:28

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

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


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

Автор: Amp Mar 10 2007, 13:33

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

Автор: Bjorndalen Mar 10 2007, 14:48

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

Автор: uTopiA Mar 12 2007, 00:20

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

Автор: Bjorndalen Mar 12 2007, 17:18

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

Автор: Lady_Melamory Jun 14 2007, 23:37

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

Автор: Диана Apr 29 2008, 20:14

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

Автор: Modest May 1 2008, 20:19

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

Автор: shaker Dec 6 2008, 23:45

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

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

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

Автор: Rus_lan Dec 25 2008, 22:26

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

Автор: Rus_lan Dec 30 2008, 11:01

Уже не надо

Автор: shaker Dec 30 2008, 21:38

Мне тоже )

Автор: Татьяна Dec 8 2009, 16:41

Народ, уважаемые форумчане! помогите пожалуйста!
есть такая задача: Вычислить сумму и разность двух заданных одномерных массивов А и В размером 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 Dec 9 2009, 22:32

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

Автор: Татьяна Dec 11 2009, 09:29

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

Автор: roman007 Mar 14 2010, 16:53

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