Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Задачи _ Задача на массив
Автор: sanion 20.12.2010 18:52
Задан массив фамилий C(20). ВЫДАТЬ НА ЭКРАН ФАМИЛИИ, СОДЕРЖАЩИЕ БУКВО СОЧЕТАНИЕ "МЕД" (Ахмедов, Самедов и т.д.)
Автор: TarasBer 20.12.2010 19:28
Ну и?
Вам запретили использовать функцию Pos, сказали самим написать алгоритм Кнута-Морриса-Пратта?
Автор: sanion 20.12.2010 19:37
Ну и?
Вам запретили использовать функцию Pos, сказали самим написать алгоритм Кнута-Морриса-Пратта?
Нет. Вы не могли бы написать эту прогу? а то я чё то не въежаю в этот паскаль(
Автор: TarasBer 20.12.2010 19:40
> Нет. Вы не могли бы написать эту прогу?
Не вопрос. 1000р. Админ, пересени в "задачи на заказ".
Автор: sanion 20.12.2010 19:47
> Нет. Вы не могли бы написать эту прогу?
Не вопрос. 1000р. Админ, пересени в "задачи на заказ".
Вы что с ума сошли? Какие 1000 рублей. Бизнес тут устроили, я подумал тут есть хорошие люди, которые просто помогут студенту. эхх
Добавлено через 1 мин.
Вы что с ума сошли? Какие 1000 рублей. Бизнес тут устроили, я подумал тут есть хорошие люди, которые просто помогут студенту. эхх
Автор: TarasBer 20.12.2010 19:54
А, ты хочешь помощи?
Тогда покажи хоть какие-то попытки что-то сделать самому.
Мы не помогаем (бесплатно) тем, кто говорит "сделайте всё за меня, я ничего не рублю".
Автор: sanion 20.12.2010 19:58
А, ты хочешь помощи?
Тогда покажи хоть какие-то попытки что-то сделать самому.
Мы не помогаем (бесплатно) тем, кто говорит "сделайте всё за меня, я ничего не рублю".
За 1000 рублей учительница за семестр мне все баллы выставит)))а чё вы тут гоните то...Не хотите помочь так не надо..На фиг вообще отписываетесь..блин идиотов полно по миру
Автор: TarasBer 20.12.2010 20:02
Нет, идиотов, которые будут всё делать за тебя, всё меньше и меньше как раз.
Не хочешь учиться - иди вон из профессии.
Мог бы хотя бы "begin end." написать, но ты даже этого не знаешь, несмотря на то, что целый семестр уже прошёл. Что ты делал во время этого семестра?
Следующие 2 семестра у таких, как ты, будут такими:
Автор: sanion 20.12.2010 20:05
Программа задания
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.
Вот это я сам писал! Довольны? я просто не знаю как на массивы писать. Я не виноват в том, что у нас в универах бардак! Не объясняют и нету книжек чтобы читать!
Автор: TarasBer 20.12.2010 20:17
Массив описывается так:
var
a: array [1 .. 20] of extended;
Это массив из 20 элементов типа extended, причём нумеруются они от 1 до 20.
Обращение к элементу по индексу i делается так: a[i]
Например, a[i] := 34;
Или a[5] := a[4];
В твоём случае нужен массив элементов типа string.
К каждому из них надо применить функцию Pos (в справке про неё всё есть).
Автор: sanion 20.12.2010 20:19
Массив описывается так:
var
a: array [1 .. 20] of extended;
Это массив из 20 элементов типа extended, причём нумеруются они от 1 до 20.
Обращение к элементу по индексу i делается так: a[i]
Например, a[i] := 34;
Или a[5] := a[4];
В твоём случае нужен массив элементов типа string.
К каждому из них надо применить функцию Pos (в справке про неё всё есть).
Спасибо вам огромное.Свои слова беру назад)
Автор: Lapp 21.12.2010 10:36
Интерпретирую это как просьбу увеличить репутацию (+1) TarasBer'у