--------------------------------------------------------------------------------------------------------------- I. Составить программу на языке Pascal, описывающую приведенную ниже проблемную ситуацию и реализующую следующие функции 1.1. Проблемная ситуация: В области прикладного программирования необходимо создать модуль (.ТРU). содержащий перечисленные ниже процедуры, функции и т.д.. а также тестирующую программу, наглядно демонстрирующую возможности этого модуля. 1.2.ФУНКЦИИ программы: Вычисление количества лексем в строке с возможностью задания списка символов-разделителей Выбор (и возврат в качестве результата функции) лексемы по ее номер} Замена лексемы с заданным номером на другую лексем} Проверка наличия подстроки в строке и возврат в качестве результата (в случае обнаружения) номера позиции, с которой начинается подстрока Преобразование символов из строчных в прописные и наоборот, включая символы кириллицы ---------------------------------------------------------------------------------------------------------------
Народ нужно действительно срочно а то меня из технаря на… вышибут. Войдите в положение, помогите кто знает. Я уже весь инет облазил и не чего подобного не нашёл.
не устраивает? Возможность задать список разделителей - есть, заносишь лексемы (они же - слова) в массив, следовательно, можешь обратиться к ним по порядковому номеру...
Цитата
Преобразование символов из строчных в прописные и наоборот, включая символы кириллицы
в том же топике, чуть ниже - функции StrUpper/StrLower...
Кибер Чёрт
19.06.2006 22:27
Большёе спасибо! Но я забыл упомянуть одно важное обстоятельство в поскале я полный ТУФРАН!!! и большая часть из того что там написано для меня «китайская грамота».
Мне нужен полностью готовый программный код этой и других(см. скриншот ниже) задач а не его обрывки которые нужна собирать как пазл.
Я понимаю что не кто проста так не будет заморачиваться с моими задачами, денег у меня к сожалению немного около 2 баксов на WebMoney Keeper осталось но я практически профи в раскрут сайтов, обладаю достаточно приличной коллекцией прог для раскрут в инете (от Page Promoter 6.4 до Smart Poster 2.35 и WWW.NAROD.RU) их собственно и предлагаю в качестве оплаты, эти проги подымут Ваш форум да и другие Ваши проекты на верхние строчки в поисковиках и привлекут толпу новых посетителей.
Программы нужны срочно в течении 2 дней крайней срок утро 22 числа. УМОЛЯЮ !!! помогите, проста у меня действительно критическая ситуация я пропустил в техноре почти месяц (попал в аварию лежал в больнице) я уже у всех просил кого мог Вы моя последняя надежда, если не сдам до четверга меня вышибут на…
Вот ещё несколько задач которые мне нужно позарез решить:
Zxzc
20.06.2006 4:11
Что понял - то сделал... Вот что понял: то что написано про ввод - это наверное для всех программ... Ввод я так понимаю с клавиатуры... Числа A b c d то бишь... Что не понял: что это за цифры вокруг матрицы??! Меню на какую хотя бы тему? Снеговик вообще ввел в ступор...
Цитата
Предусмотреть предупреждающие надписи на реакцию программы
Это еще что?
А пока:
var a,b,c,d,z:real; ok:boolean; {I think real 'cose we'll must counted digitals in thats variables} begin {$I-} ok:=false; repeat readln(a,b,c,d); case IOResult of 0: OK:=true; 106: writeln('To, chto vi vveli ne yavlyaetsya chislom tipa real... Povtorite vvod vsex chisel...'); end until Ok; {$I+} z:=sqrt(c+d)/sqrt(a+b)+sqrt(d+a)/sqrt(b+a); writeln(z); end.
Gregory512
20.06.2006 15:08
По поводу матрицы! запускаем прогу вводим размерность матрицы , далее вводим цифры.... если вводим буквы-то прога говорит что ошибка и требует ввод чисел снова... в матрице на N-местах как на рисунке должны быть двух значные числа...
далее прога запрашивает на какие числа поменять первую строку.. (пример чисел над матрицей..) и просит ввод именно таких зисел(точнее разрядность 2-х значные и 3-хзначние)
аналогично и с со столбцом...
и выводит на экран начальную матрицу строу столбец и конечную матрицу.....
Добавлено (через 8 минут) по поводу меню... Не обязательно снеговик!!! это может быть и меню типа --------------------------------------- прога 1 | прога 2 | прога 3 | --------------------------------------- | ------------ запуск | ------------ и место снеговика можно запустить алгоритм примера или матрицы.....
а точнее это 1 прога меню и при выборе определенного окошка меню открывается прога( :-) )...
Добавлено (через 6 минут)
Цитата(Zxzc @ 20.06.2006 0:11)
readln(a,b,c,d); case IOResult of 0: OK:=true; 106: writeln('To, chto vi vveli ne yavlyaetsya chislom tipa real... Povtorite vvod vsex chisel...'); end until Ok; {$I+} z:=sqrt(c+d)/sqrt(a+b)+sqrt(d+a)/sqrt(b+a); writeln(z); end.
но при задании а=4 в=-10 и в примере sqrt(a+b) корень из минуса не извлекается - ошибка... :-)
Добавлено (через 5 минут) народ понимающий в паскале! есть прога тест но надо ве время теста прога предлагает сохнаниться и выйти из теста при следующем запуске прога спрашиваетимя.. и предлагает закончить тест!!! подскажите такой алгоритм есть?? вот код проги..
Большёе спасибо Zxzc программу с формулой я доделал работает она отлично.
Код
Program I3; uses crt; Var ok:boolean; Z:real; A,B,C,D:integer; label 1; Begin 1:clrscr;textcolor(15); writeln ('//===========================================================\\'); writeln ('|| Z=sqrt(C+D)/sqrt(A+B)+sqrt(D+A)/sqrt(B+A) ||'); writeln ('|| Введите значение чисел A,B,C,D ||'); writeln ('|| Cуммы чисел A+B, A+D, C+D должны быть положительны. ||'); writeln ('\\===========================================================//');
case IOResult of 0: OK:=true; 106: writeln('Ошибка !!! Повторите ввод чисел'); end until Ok; {$I+} if C+D<0 then begin writeln('Ошибка !!! Нажмите "Enter" и повторите ввод чисел');readkey; goto 1 end; if A+B<0 then begin writeln('Ошибка !!! Нажмите "Enter" и повторите ввод чисел ');readkey; goto 1 end; if A+D<0 then begin writeln('Ошибка !!! Нажмите "Enter" и повторите ввод чисел');readkey; goto 1 end; Z:=0; Z:=sqrt(C+D)/sqrt(A+B)+sqrt(D+A)/sqrt(B+A); textcolor(5); write ('Ответ:'); write (Z:1:0); readkey; END.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.