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

лол)))



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

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

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

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

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

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

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

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

Пасиба те!

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

имеешь ввиду лучше было бы сделать 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
так Экономичней???

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

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

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

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

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

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

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

Вот вам ещё 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).
Заранее благодарен

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

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

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

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

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

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

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

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. Еще раз акцентирую внимание на словах "научится" и "самостоятельно"

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

ok передам

А это не прокатит, шаг не 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.

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

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

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

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 файла: исходный и результат, название сам введешь, когда прогу запустишь. Символ тоже! До запуска создай исходный файл с текстом. Лучше блокнотом!


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

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

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

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

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

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

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

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

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

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

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

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

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

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


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

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

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

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

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

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

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

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

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

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

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

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