Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 31.01.2009, 15:23   #1
Leks_1990
Новичок
Джуниор
 
Регистрация: 31.01.2009
Сообщений: 1
По умолчанию Помогите решить задачи

1)Составить программу нахождения минимального элемента одномерного массива.В массиве вставить после минимального элемента число,указанное пользователем.

2)Составить программу,определяющую,являются ли элементы одномерного массива из целых чисел делителями целого числа,заданного пользователем.

3)Написать программу,определяющую число хождений заданного слова в строку.Строка и слово вводятся пользователем.
Leks_1990 вне форума
Старый 31.01.2009, 15:38   #2
Sazary
В тени
Старожил
 
Аватар для Sazary
 
Регистрация: 19.12.2008
Сообщений: 5,788
По умолчанию

Первая:
Код:
uses crt;
const n=10;
var
mas : array[1..n+1] of integer;
i,min,el : integer;
begin
clrscr;
randomize;
for i:=1 to n do
 begin
 mas[i] := random(50);
 write(mas[i]:4);
 end;
writeln;
writeln('------');
write('Vvedite chislo: ');
readln(el);
min := 1;
for i:=1 to n do
  if mas[i]<mas[min] then min:=i;
for i:=n+1 downto min+2 do
 mas[i] := mas[i-1];
mas[min+1] := el;

for i:=1 to n+1 do
 write(mas[i]:4);
readln;
end.
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем.

___________________________________ ___________________________________ _______
[=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль]
Sazary вне форума
Старый 31.01.2009, 15:47   #3
Sazary
В тени
Старожил
 
Аватар для Sazary
 
Регистрация: 19.12.2008
Сообщений: 5,788
По умолчанию

Вторая:
Код:
uses crt;
const n=3;
var
mas : array[1..n] of integer;
i,el,k : integer;
begin
clrscr;
clrscr;
randomize;
for i:=1 to n do
 begin
 mas[i] := random(10)+1;
 write(mas[i]:4);
 end;
writeln;
writeln('------');
write('Vvedite chislo: ');
readln(el);
k := 0;
for i:=1 to n do
  if el mod mas[i] = 0 then inc(k);
if k = n then writeln('Vse elementy massiva yavlyayutsya delitelyami chisla ',el)
else
  begin
  writeln('Deliteli chisla ',el,':');
  for i:=1 to n do
   if el mod mas[i] = 0 then write(mas[i]:4);
  end;

readln;
end.
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем.

___________________________________ ___________________________________ _______
[=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль]
Sazary вне форума
Старый 31.01.2009, 15:54   #4
Sazary
В тени
Старожил
 
Аватар для Sazary
 
Регистрация: 19.12.2008
Сообщений: 5,788
По умолчанию

Третья:
Код:
uses crt;
var s,wrd : string;
i,k,n,len : integer;
begin
clrscr;
writeln('Vvedite stroku:');
readln(s);
write('Vvedite slovo: ');
readln(wrd);
k := 1;
n := 0;
len := length(s);
repeat
i := pos(wrd,copy(s,k,len-k+1));
if i <>0 then inc(n);
k := k + i;
until (i=0) or (k>len);
writeln('Chislo vhozhdenij: ',n);
readln;
end.
Ищет подстроки, а не слова. Правильное решение ниже.
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем.

___________________________________ ___________________________________ _______
[=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль]

Последний раз редактировалось Sazary; 31.01.2009 в 16:20.
Sazary вне форума
Старый 31.01.2009, 16:03   #5
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

Третья задача не соответствует условию. Нужно найти слова, а не подстроки. Напимер строка "стол столовая престол". Если ввести слово "сто" , которого нет в строке, ответ будет 3.
puporev вне форума
Старый 31.01.2009, 16:04   #6
5naip
Форумчанин
 
Аватар для 5naip
 
Регистрация: 05.10.2007
Сообщений: 536
По умолчанию

что-то capta1n сплоховал
rocklistener...
5naip вне форума
Старый 31.01.2009, 16:19   #7
Sazary
В тени
Старожил
 
Аватар для Sazary
 
Регистрация: 19.12.2008
Сообщений: 5,788
По умолчанию

puporev спасибо.. Видимо, не так понял условие.
Тогда третья так:

Код:
uses crt;
var s,wrd,tt : string;
i,n,len : integer;
begin
clrscr;
writeln('Vvedite stroku:');
readln(s);
write('Vvedite slovo: ');
readln(wrd);
i := 1;
n := 0;
len := length(s);
while i<=len do
  begin
  while (s[i]=' ') and (i<=len) do inc(i);
  tt :='';
  while (s[i] <> ' ') and (i<=len) do
   begin
   tt := tt + s[i];
   inc(i);
   end;
  if tt = wrd then inc(n);
  inc(i);
  end;

writeln('Chislo vhozhdenij: ',n);
readln;
end.
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем.

___________________________________ ___________________________________ _______
[=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль]
Sazary вне форума
Старый 31.01.2009, 16:45   #8
pomoshnic
Форумчанин
 
Аватар для pomoshnic
 
Регистрация: 16.11.2008
Сообщений: 192
По умолчанию

А можно задачу 3 вот так:
Код:
Var s,sl:string;i,r:byte;
begin
Writeln('Vvedite tekst');
readln(s);
writeln('Vvedite slovo');
readln(sl);
s:=' '+s+' ';
sl:=' '+sl+' ';
while true do
begin
inc(i);
if copy(s,i,length(sl))=sl then inc(r);
if i>=length(s) then break;
end;
Writeln(r,' raz');
readln
end.
pomoshnic вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите решить задачи modulrev Помощь студентам 8 11.01.2009 15:59
Помогите решить задачи на C++ Many man Помощь студентам 7 02.12.2008 20:41
Помогите решить задачи. (С++) Memfis_nya Помощь студентам 6 04.11.2008 17:44
Помогите решить 3 задачи VANOLORD Паскаль, Turbo Pascal, PascalABC.NET 16 12.05.2008 22:04
помогите решить задачи rusl12 Помощь студентам 2 21.06.2007 15:25