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 4 >  
Создать новую тему
Ответов (20 - 39)
GENNADIY
сообщение Dec 25 2006, 13:57
Сообщение #21


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

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



Цитата(Amp @ Dec 25 2006, 11:06) *
Это из-за зачетной недели всем приспичило? smile.gif)

Да ну помогите же ohmy.gif
Вернуться к началу страницы
 
+Цитировать сообщение
Гость_DAN_MSU_*
сообщение Dec 28 2006, 13:53
Сообщение #22





Guests






мда)) у нас такие задачи в начале семестра были, в конце уже решали списки и деревья
Вернуться к началу страницы
 
+Цитировать сообщение
Daniilka
сообщение Dec 30 2006, 02:42
Сообщение #23


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

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



Это сон у мну такой страшный? ohmy.gif
... гениальные задачки ... гениальные придирки?
Вернуться к началу страницы
 
+Цитировать сообщение
Daniilka
сообщение Dec 30 2006, 03:37
Сообщение #24


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

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



Цитата(GENNADIY @ Dec 24 2006, 19:28) *
Вот вам ещё 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;

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


Цитата(GENNADIY @ Dec 24 2006, 19:28) *
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.

Цитата(GENNADIY @ Dec 24 2006, 19:28) *
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.


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

Цитата(GENNADIY @ Dec 24 2006, 19:28) *
Заранее благодарен


Полагаю, что уже не за что.
Желаю тебе в следующем году научится решать эти и другие задачки в пол плевка самостоятельно...
Передай от меня своему преподу, что он долб@@б, му@@к и полный кр@@@н. ок ? tongue.gif
P.S. Еще раз акцентирую внимание на словах "научится" и "самостоятельно" smile.gif
Вернуться к началу страницы
 
+Цитировать сообщение
GENNADIY
сообщение Dec 30 2006, 11:15
Сообщение #25


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

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



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

ok передам smile.gif
Вернуться к началу страницы
 
+Цитировать сообщение
Гость_redHunter_*
сообщение Dec 30 2006, 22:23
Сообщение #26





Guests






Цитата(Daniilka @ Dec 30 2006, 03:37) *
var i:integer;
begin
for i:=-4 to 4 do Writeln('y=',sin(pi*x/2));
end;

А это не прокатитsmile.gif, шаг не 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
Сообщение #27





Guests






кто из НЧК был на Олимпиаде?
и какое место занел? ( и какая школа?)
Вернуться к началу страницы
 
+Цитировать сообщение
Гость_-=Alex=-_*
сообщение Jan 4 2007, 14:28
Сообщение #28





Guests






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

Заранее благодарен.
Вернуться к началу страницы
 
+Цитировать сообщение
Гость_redHunter_*
сообщение Jan 4 2007, 21:37
Сообщение #29





Guests






Цитата(-=Alex=- @ Jan 4 2007, 14:28) *
народ, помощь нужна...
Если кому не трудно напишете пожалуйста прогу:
есть входной файл с текстом(несколько строк), надо чтобы прога удаляла из каждой строки последовательность символов, ограниченных с обеих сторон заданным символом.

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

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

Цитата(-=Alex=- @ Jan 4 2007, 14:28) *
народ, помощь нужна...
Если кому не трудно напишете пожалуйста прогу:
есть входной файл с текстом(несколько строк), надо чтобы прога удаляла из каждой строки последовательность символов, ограниченных с обеих сторон заданным символом.

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

Проверил, у меня работаетsmile.gif пользуйсяsmile.gif Кстати, где учишься?
Вернуться к началу страницы
 
+Цитировать сообщение
MadDog.er
сообщение Jan 5 2007, 01:00
Сообщение #30


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

Группа: Posters
Сообщений: 177
Регистрация: 1.12.2006
Пользователь №: 3,584



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

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


--------------------
Жизнь такая штука........ от неё умерают!!!
Вернуться к началу страницы
 
+Цитировать сообщение
Гость_redHunter_*
сообщение Jan 5 2007, 19:39
Сообщение #31





Guests






Цитата(MadDog.er @ Jan 5 2007, 01:00) *
хех ети штуки дрюки мы ещё на прошлом курсе проходили biggrin.gif

Ну-ну, на экзаменах докажетеsmile.gif
Вернуться к началу страницы
 
+Цитировать сообщение
Гость_-=Alex=-_*
сообщение Jan 5 2007, 23:53
Сообщение #32





Guests






вроде работает, спасибо. вообще-то это я не для себя... попросил один чувак с ээ11-06 (чгу). я-то сам из эт, и паскаль у нас только во втором семестре будет. но я до этого только qbasic знал, сейчас постепенно к паскалю привыкаю smile.gif
Вернуться к началу страницы
 
+Цитировать сообщение
Gobbs
сообщение Jan 6 2007, 01:37
Сообщение #33


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

Группа: Local moder
Сообщений: 888
Регистрация: 23.10.2005
Из: п.Кугеси
Пользователь №: 106



Цитата(-=Alex=- @ Jan 5 2007, 23:53) *
вроде работает, спасибо. вообще-то это я не для себя... попросил один чувак с ээ11-06 (чгу). я-то сам из эт, и паскаль у нас только во втором семестре будет. но я до этого только qbasic знал, сейчас постепенно к паскалю привыкаю smile.gif

снабженцы опять халтурят? smile.gif
Вернуться к началу страницы
 
+Цитировать сообщение
Lenin
сообщение Jan 6 2007, 19:37
Сообщение #34


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

Группа: Local moder
Сообщений: 274
Регистрация: 22.12.2005
Из: КУГЕСИ
Пользователь №: 215



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


--------------------
Товарищи, юноши, взгляд — на Москву,
на русский вострите уши!

Да будь я и негром преклонных годов,
и то без унынья и лени
я русский бы выучил только за то,
что им разговаривал Ленин
Владимир Маяковский
Вернуться к началу страницы
 
+Цитировать сообщение
Гость_redHunter_*
сообщение Jan 6 2007, 20:24
Сообщение #35





Guests






Цитата(-=Alex=- @ Jan 5 2007, 23:53) *
вроде работает, спасибо. вообще-то это я не для себя... попросил один чувак с ээ11-06 (чгу). я-то сам из эт, и паскаль у нас только во втором семестре будет. но я до этого только qbasic знал, сейчас постепенно к паскалю привыкаю smile.gif

Не за чтоsmile.gif Обращайсяsmile.gif
Вернуться к началу страницы
 
+Цитировать сообщение
Gobbs
сообщение Jan 7 2007, 01:05
Сообщение #36


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

Группа: Local moder
Сообщений: 888
Регистрация: 23.10.2005
Из: п.Кугеси
Пользователь №: 106



Цитата(Lenin @ Jan 6 2007, 19:37) *
дада Gobbs, 11-06 это вроде специальность системных администраторов...

не, это ЭЭ, не ИВТ smile.gif
Вернуться к началу страницы
 
+Цитировать сообщение
Amp
сообщение Jan 7 2007, 01:08
Сообщение #37


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

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



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

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


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

#КартинкА#
Вернуться к началу страницы
 
+Цитировать сообщение
Гость_frakciya_*
сообщение Jan 20 2007, 11:28
Сообщение #38





Guests






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

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

Решите плз. Никого задачка не раззадорила?
Вернуться к началу страницы
 
+Цитировать сообщение
JokkoS
сообщение Jan 20 2007, 12:43
Сообщение #39


...духиньян...
******

Группа: Posters
Сообщений: 1,483
Регистрация: 25.10.2006
Из: бессконечность, вселенная...
Пользователь №: 2,704



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

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


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


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


--------------------
jetune - зайди и удивись музыке, мне приятно и вам =]
http://jokkosvop.blogspot.com - дух
Я В КОнтаКТЕ =]]
Вернуться к началу страницы
 
+Цитировать сообщение
Гость_CBAPOr_*
сообщение Feb 14 2007, 10:52
Сообщение #40





Guests






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

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

 



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