IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Задача на массив, Легкая задача на массив
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 6
Пол: Мужской
Реальное имя: Эльвин

Репутация: -  0  +


Задан массив фамилий C(20). ВЫДАТЬ НА ЭКРАН ФАМИЛИИ, СОДЕРЖАЩИЕ БУКВО СОЧЕТАНИЕ "МЕД" (Ахмедов, Самедов и т.д.)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Злостный любитель
*****

Группа: Пользователи
Сообщений: 1 755
Пол: Мужской

Репутация: -  62  +


Ну и?
Вам запретили использовать функцию Pos, сказали самим написать алгоритм Кнута-Морриса-Пратта?


--------------------
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3





Группа: Пользователи
Сообщений: 6
Пол: Мужской
Реальное имя: Эльвин

Репутация: -  0  +


Цитата(TarasBer @ 20.12.2010 16:28) *

Ну и?
Вам запретили использовать функцию Pos, сказали самим написать алгоритм Кнута-Морриса-Пратта?


Нет. Вы не могли бы написать эту прогу? а то я чё то не въежаю в этот паскаль(
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Злостный любитель
*****

Группа: Пользователи
Сообщений: 1 755
Пол: Мужской

Репутация: -  62  +


> Нет. Вы не могли бы написать эту прогу?

Не вопрос. 1000р. Админ, пересени в "задачи на заказ".


--------------------
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5





Группа: Пользователи
Сообщений: 6
Пол: Мужской
Реальное имя: Эльвин

Репутация: -  0  +


Цитата(TarasBer @ 20.12.2010 16:40) *

> Нет. Вы не могли бы написать эту прогу?

Не вопрос. 1000р. Админ, пересени в "задачи на заказ".


Вы что с ума сошли? Какие 1000 рублей. Бизнес тут устроили, я подумал тут есть хорошие люди, которые просто помогут студенту. эхх

Добавлено через 1 мин.
Цитата(sanion @ 20.12.2010 16:47) *

Вы что с ума сошли? Какие 1000 рублей. Бизнес тут устроили, я подумал тут есть хорошие люди, которые просто помогут студенту. эхх

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Злостный любитель
*****

Группа: Пользователи
Сообщений: 1 755
Пол: Мужской

Репутация: -  62  +


А, ты хочешь помощи?
Тогда покажи хоть какие-то попытки что-то сделать самому.
Мы не помогаем (бесплатно) тем, кто говорит "сделайте всё за меня, я ничего не рублю".


--------------------
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7





Группа: Пользователи
Сообщений: 6
Пол: Мужской
Реальное имя: Эльвин

Репутация: -  0  +


Цитата(TarasBer @ 20.12.2010 16:54) *

А, ты хочешь помощи?
Тогда покажи хоть какие-то попытки что-то сделать самому.
Мы не помогаем (бесплатно) тем, кто говорит "сделайте всё за меня, я ничего не рублю".


За 1000 рублей учительница за семестр мне все баллы выставит)))а чё вы тут гоните то...Не хотите помочь так не надо..На фиг вообще отписываетесь..блин идиотов полно по миру
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Злостный любитель
*****

Группа: Пользователи
Сообщений: 1 755
Пол: Мужской

Репутация: -  62  +


Нет, идиотов, которые будут всё делать за тебя, всё меньше и меньше как раз.
Не хочешь учиться - иди вон из профессии.
Мог бы хотя бы "begin end." написать, но ты даже этого не знаешь, несмотря на то, что целый семестр уже прошёл. Что ты делал во время этого семестра?

Следующие 2 семестра у таких, как ты, будут такими:

Изображение


--------------------
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9





Группа: Пользователи
Сообщений: 6
Пол: Мужской
Реальное имя: Эльвин

Репутация: -  0  +



Программа задания
 Program first;	                       z=(c2-b2)/(2sinx-a4)*ab	a=2;  b=2,2
Var a :Integer y=lnx+2ln(sinx) c=10,51; x=0,2
b,c,x,z,y :Real
Begin
Writeln (‘Введите значение a,b,c,x’ );
Read (a,b,c,x);
y:=ln*x+2*ln(sin*x)
z:=(c*c-b*b)/(2*sin*x-a*a*a*a)*a*b
Writeln(‘y=’,y:10:6,’z=’,z:10:6);
End.



Вот это я сам писал! Довольны? я просто не знаю как на массивы писать. Я не виноват в том, что у нас в универах бардак! Не объясняют и нету книжек чтобы читать!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


Злостный любитель
*****

Группа: Пользователи
Сообщений: 1 755
Пол: Мужской

Репутация: -  62  +


Массив описывается так:

var
a: array [1 .. 20] of extended;

Это массив из 20 элементов типа extended, причём нумеруются они от 1 до 20.
Обращение к элементу по индексу i делается так: a[i]
Например, a[i] := 34;
Или a[5] := a[4];

В твоём случае нужен массив элементов типа string.
К каждому из них надо применить функцию Pos (в справке про неё всё есть).


--------------------
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #11





Группа: Пользователи
Сообщений: 6
Пол: Мужской
Реальное имя: Эльвин

Репутация: -  0  +


Цитата(TarasBer @ 20.12.2010 17:17) *

Массив описывается так:

var
a: array [1 .. 20] of extended;

Это массив из 20 элементов типа extended, причём нумеруются они от 1 до 20.
Обращение к элементу по индексу i делается так: a[i]
Например, a[i] := 34;
Или a[5] := a[4];

В твоём случае нужен массив элементов типа string.
К каждому из них надо применить функцию Pos (в справке про неё всё есть).


Спасибо вам огромное.Свои слова беру назад)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #12


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


Цитата(sanion @ 20.12.2010 16:19) *
Спасибо вам огромное.Свои слова беру назад)

Интерпретирую это как просьбу увеличить репутацию (+1) TarasBer'у


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 19.04.2024 0:43
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name