![]() |
Здравствуйте, гость ( Вход | Регистрация )
![]() |
![]()
Сообщение
#1
|
|
![]() Супер постер ![]() ![]() ![]() ![]() ![]() Группа: Posters Сообщений: 756 Регистрация: 23.9.2006 Из: Саратов Пользователь №: 2,028 ![]() |
помогите решить задачку!
Определить минимальный элемент массива и его порядковый номер. -------------------- спасем китов, maza f*cka! %)
|
|
|
![]() |
![]()
Сообщение
#2
|
|
![]() Настоящий ADSL'щик ![]() ![]() ![]() ![]() Группа: Posters Сообщений: 491 Регистрация: 31.8.2006 Из: Чебоксары Пользователь №: 1,438 ![]() |
Вот вам ещё 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). Заранее благодарен |
|
|
![]()
Сообщение
#3
|
|
Пользователь ![]() ![]() Группа: 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. Еще раз акцентирую внимание на словах "научится" и "самостоятельно" ![]() |
|
|
Гость_redHunter_* |
![]()
Сообщение
#4
|
Guests ![]() |
|
|
|
![]() ![]() |
![]() |
Текстовая версия | Сейчас: 17th June 2025 - 02:16 |