Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 06.02.2010, 20:12   #1 (permalink)
Justinn
Member
 
Регистрация: 12.01.2010
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Post Я надеюсь на вас.

Однажды мне очень сильно помогли на этом форуме за что я ещё раз вас всех благодарютак вот мне на днях позвонил одногруппник и просил очень помочь ему с этими заданиями поскольку он сейчас здаёт на права то очень много пропускает я ему сказал что я не шпарю в паскале но знаю один форум где очень хорошие люди помогли мнеи я надеюсь на вашу помощь и в этих задачах:
1
В целочисленном массиве найти максимальный элемент и вывести его индекс. Если он встречается несколько раз, вывести все соответствующие индексы и подсчитать количество вхождений максимума в массив
2
Вычислите значения функции x^3-x^2+16x-43 для x изменяющегося в диапазоне от -4 до 4 с шагом 0,5
Justinn вне форума   Ответить с цитированием

Старый 06.02.2010, 20:12
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Я думаю, что было бы очень полезно почитать аналогичные обсуждения

Надеюсь на подсказку

Старый 06.02.2010, 20:21   #2 (permalink)
MrSTEP
一步一步地会到目的
 
Аватар для MrSTEP
 
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,920
Записей в дневнике: 10
Сказал(а) спасибо: 139
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28107
По умолчанию

ну так задачи же элементарные.. пробуйте сами, а мы уже подскажем, что исправить
MrSTEP вне форума   Ответить с цитированием
Старый 06.02.2010, 20:26   #3 (permalink)
Justinn
Member
 
Регистрация: 12.01.2010
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Бы ли бы они для нас элементарные я бы навряд ли бы к вам обратился,но за совет спасибохоть у меня и наврядли получиться им воспользоваться я в самом описание темы уже объяснял на коком у меня уровень знания в турбо паскале
Justinn вне форума   Ответить с цитированием
Старый 06.02.2010, 20:32   #4 (permalink)
MrSTEP
一步一步地会到目的
 
Аватар для MrSTEP
 
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,920
Записей в дневнике: 10
Сказал(а) спасибо: 139
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28107
По умолчанию

ээхх.. сейчас сделаю
MrSTEP вне форума   Ответить с цитированием
Старый 06.02.2010, 20:34   #5 (permalink)
Justinn
Member
 
Регистрация: 12.01.2010
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Спасибо за понимание
Justinn вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 06.02.2010, 20:49   #6 (permalink)
MrSTEP
一步一步地会到目的
 
Аватар для MrSTEP
 
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,920
Записей в дневнике: 10
Сказал(а) спасибо: 139
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28107
По умолчанию

1.
Код:
uses crt;
var n,i,max,nmax,kmax:integer;
    a:array [1..50] of integer;
begin clrscr;
      write ('Vvedi kol-vo elementov: ');
      readln (n);
      writeln ('Vvodi massiv: ');
      for i:=1 to n do
       read (a[i]);
      max:=a[1];
      nmax:=1;
      for i:=2 to n do
       if a[i]>max then begin
        max:=a[i];
        nmax:=i;
       end;
      for i:=1 to n do
       if a[i]=max then
        inc(kmax,1);
      writeln ('max=', max, '; kolichestvo=', kmax);
      readkey;
end.
MrSTEP вне форума   Ответить с цитированием
Старый 06.02.2010, 20:58   #7 (permalink)
MrSTEP
一步一步地会到目的
 
Аватар для MrSTEP
 
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,920
Записей в дневнике: 10
Сказал(а) спасибо: 139
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28107
По умолчанию

2.
Код:
uses crt;
var x,y:real;
begin clrscr;
      x:=-4;
      writeln ('  x     y');
      repeat
       x:=x+0.5;
       y:=x*sqr(x)-sqr(x)+16*x-43;
       writeln (x:4:1, y:8:2);
      until x=4;
      readkey;
end.
MrSTEP вне форума   Ответить с цитированием
Старый 06.02.2010, 21:04   #8 (permalink)
Justinn
Member
 
Регистрация: 12.01.2010
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Я очень благодарю вас за оказанною вами помощь для меня и моего друга. как я уже говорил вы ребята делаете людей счастливыми
Justinn вне форума   Ответить с цитированием
Старый 06.02.2010, 21:14   #9 (permalink)
MrSTEP
一步一步地会到目的
 
Аватар для MrSTEP
 
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,920
Записей в дневнике: 10
Сказал(а) спасибо: 139
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28107
По умолчанию

разбирайтесь
MrSTEP вне форума   Ответить с цитированием
Старый 06.02.2010, 21:33   #10 (permalink)
Justinn
Member
 
Регистрация: 12.01.2010
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Окей вот это уже в наших силах.Ещё раз спасибо
Justinn вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 21:34.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.