Pascal, помогите |
Здравствуйте, гость ( Вход | Регистрация )
Pascal, помогите |
Oct 29 2006, 14:27
Сообщение
#1
|
|
Супер постер Группа: Posters Сообщений: 756 Регистрация: 23.9.2006 Из: Саратов Пользователь №: 2,028 |
помогите решить задачку!
Определить минимальный элемент массива и его порядковый номер. -------------------- спасем китов, maza f*cka! %)
|
|
|
Dec 25 2006, 13:57
Сообщение
#21
|
|
Настоящий ADSL'щик Группа: Posters Сообщений: 491 Регистрация: 31.8.2006 Из: Чебоксары Пользователь №: 1,438 |
|
|
|
Гость_DAN_MSU_* |
Dec 28 2006, 13:53
Сообщение
#22
|
Guests |
мда)) у нас такие задачи в начале семестра были, в конце уже решали списки и деревья
|
|
|
Dec 30 2006, 02:42
Сообщение
#23
|
|
Пользователь Группа: Posters Сообщений: 53 Регистрация: 29.9.2006 Пользователь №: 2,126 |
Это сон у мну такой страшный?
... гениальные задачки ... гениальные придирки? |
|
|
Dec 30 2006, 03:37
Сообщение
#24
|
|
Пользователь Группа: Posters Сообщений: 53 Регистрация: 29.9.2006 Пользователь №: 2,126 |
Вот вам ещё 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. Еще раз акцентирую внимание на словах "научится" и "самостоятельно" |
|
|
Dec 30 2006, 11:15
Сообщение
#25
|
|
Настоящий ADSL'щик Группа: Posters Сообщений: 491 Регистрация: 31.8.2006 Из: Чебоксары Пользователь №: 1,438 |
Полагаю, что уже не за что.
Желаю тебе в следующем году научится решать эти и другие задачки в пол плевка самостоятельно... Передай от меня своему преподу, что он долб@@б, му@@к и полный кр@@@н. ок ? tongue.gif P.S. Еще раз акцентирую внимание на словах "научится" и "самостоятельно" smile.gif ok передам |
|
|
Гость_redHunter_* |
Dec 30 2006, 22:23
Сообщение
#26
|
Guests |
|
|
|
Гость_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 |
народ, помощь нужна... Если кому не трудно напишете пожалуйста прогу: есть входной файл с текстом(несколько строк), надо чтобы прога удаляла из каждой строки последовательность символов, ограниченных с обеих сторон заданным символом. Заранее благодарен. 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 файла: исходный и результат, название сам введешь, когда прогу запустишь. Символ тоже! До запуска создай исходный файл с текстом. Лучше блокнотом! народ, помощь нужна... Если кому не трудно напишете пожалуйста прогу: есть входной файл с текстом(несколько строк), надо чтобы прога удаляла из каждой строки последовательность символов, ограниченных с обеих сторон заданным символом. Заранее благодарен. Проверил, у меня работает пользуйся Кстати, где учишься? |
|
|
Jan 5 2007, 01:00
Сообщение
#30
|
|
Продвинутый пользователь Группа: Posters Сообщений: 177 Регистрация: 1.12.2006 Пользователь №: 3,584 |
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_* |
Jan 5 2007, 19:39
Сообщение
#31
|
Guests |
|
|
|
Гость_-=Alex=-_* |
Jan 5 2007, 23:53
Сообщение
#32
|
Guests |
вроде работает, спасибо. вообще-то это я не для себя... попросил один чувак с ээ11-06 (чгу). я-то сам из эт, и паскаль у нас только во втором семестре будет. но я до этого только qbasic знал, сейчас постепенно к паскалю привыкаю
|
|
|
Jan 6 2007, 01:37
Сообщение
#33
|
|
Супер постер Группа: Local moder Сообщений: 888 Регистрация: 23.10.2005 Из: п.Кугеси Пользователь №: 106 |
|
|
|
Jan 6 2007, 19:37
Сообщение
#34
|
|
Продвинутый пользователь Группа: Local moder Сообщений: 274 Регистрация: 22.12.2005 Из: КУГЕСИ Пользователь №: 215 |
дада Gobbs, 11-06 это вроде специальность системных администраторов...
-------------------- Товарищи, юноши, взгляд — на Москву,
на русский вострите уши! Да будь я и негром преклонных годов, и то без унынья и лени я русский бы выучил только за то, что им разговаривал ЛенинВладимир Маяковский |
|
|
Гость_redHunter_* |
Jan 6 2007, 20:24
Сообщение
#35
|
Guests |
|
|
|
Jan 7 2007, 01:05
Сообщение
#36
|
|
Супер постер Группа: Local moder Сообщений: 888 Регистрация: 23.10.2005 Из: п.Кугеси Пользователь №: 106 |
|
|
|
Jan 7 2007, 01:08
Сообщение
#37
|
|
Мега постер Группа: Local moder Сообщений: 1,712 Регистрация: 21.8.2006 Пользователь №: 1,269 |
Ну и не совсем системных администраторов ), если уж применять к ИВТ
Сообщение отредактировал Amp - Jan 7 2007, 01:09 -------------------- |
|
|
Гость_frakciya_* |
Jan 20 2007, 11:28
Сообщение
#38
|
Guests |
Привет всем! Решите плз задачки...хоть одну, пожалуйста.
Сегодня день рождения Тэда (Ted). Ему исполнилось 100 лет. Вам нужно составить список его потомков, упорядоченный по убыванию из возраста. Но для составления списка имеется только список, содержащий имя отца, имя ребёнка и возраст отца в момент рождения ребёнка. В первой строке входного файла содержится одно целое число N (1<=N<100) - количество потомков Тэда. Далее следует N строк, в каждой строке содержатся два имени ( не более 20 букв) и одно целое число, разделённые пробелами - имя отца, имя ребёнка и возраст отца в момент рождения ребёнка. Все имена уникальны и не содержат пробелов. В выходной файл вывести N строк, в каждой строке нужно вывести имя потомка и его возраст в 100-й юбилей Тэда через пробел. Потомки должны быть выведенны в порядке уменьшения их возраста. Потомки с одинаковым возрастом выводятся в афавитном порядке. Решите плз. Никого задачка не раззадорила? |
|
|
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 Ну как кто смогёт?...оч нуно как стакан воды в пустыне.... Никто навен не возьмется ет так сложно..ухх..хыхы.. Сообщение отредактировал JokkoS - Jan 20 2007, 12:50 -------------------- jetune - зайди и удивись музыке, мне приятно и вам =]
http://jokkosvop.blogspot.com - дух Я В КОнтаКТЕ =]] |
|
|
Гость_CBAPOr_* |
Feb 14 2007, 10:52
Сообщение
#40
|
Guests |
Я вроде отмучился с программированием, на время. В ближайшие полгода его небудет... Честно говоря ну ненравится мнеоно, блин ни грамма, не понимаю я зачем все это нужно.
|
|
|
Текстовая версия | Сейчас: 13th May 2024 - 11:39 |