|
|
Другие темы раздела | |
Pascal Определить сколько в файле f слов состоящих из одного, двух, трех и т.д. символов
https://www.cyberforum.ru/ pascal/ thread8205.html Дан символьный файл f Считая что количество символов в слове не превосходит 20 а)определить сколько в файле f слов состоящих из одного, двух, трех и т.д. символов б)сколько слов в файле вот я половину сделал, дальше не как, помогите пжалуста !!! Program alex; Uses crt; Var a:array of integer; f:text; |
Матрицы. Найти сумму элементов главной и побочной диагонали. Pascal Дана матрица вещественых чисел P(7,7). Вычислить сумму элементов главной диагонали и симметричной ей. program qwesadf; uses crt; var p:array of real;i,n,j:integer;s1,s2:real; begin clrscr; writeln('vvedite razmer matrici'); readln(n); writeln('vvedite elementi matrici'); |
Pascal Старый добрый тетрис Помогите вывести текущий результат и следующую фигуру. Заранее благодарен. { Программа Тетрис} uses crt, graph; type tFigure=array of byte; tFigures=array of tFigure; tColors=record workbox:byte; figures:array of byte; https://www.cyberforum.ru/ pascal/ thread8184.html | Pascal ПРОШУ ПОДМОГИ!!! Уважаемые гуру! Помогите пожалуйста подредактировать данную программу, для того, чтобы при построении графика не печатались лишние пикселы справа.:help: Текс проги: Program Grafik; uses graph, crt; var driver, mode, i: integer; x,y, S: real; cx,cy: word; {center} d1,d2: integer; {diapazon} mas: byte; {masshtab} https://www.cyberforum.ru/ pascal/ thread8182.html |
Pascal Перевод чисел из 16-ой в 10-ую систему счисления прграмма перевода чисел из 16-ой в 10-ую :huh::help::help: |
Pascal помогите программисты мудрые:)
https://www.cyberforum.ru/ pascal/ thread8145.html нужен код для: массив из целых чисел заполняемый случайными числами от 0 до 33 от 4 до 66 от 67 до 100 представить числа в процентном соотношении, массив 70 элементов :umnik: |
Pascal Прошу помощи в описании процесса решения задач по паскалю (задачи решены) program zad1; var q,x,y:real; begin Write('Q = ');Readln(Q); Write('X = ');Readln(X); y:=((sqr(x)*sqr(x))*(x+q)+sqr(q)*cos(x+q))/sqrt(abs(x+q)); Writeln('Y = ',y:3:3); readln; https://www.cyberforum.ru/ pascal/ thread8128.html |
Pascal Написать кейлоггер Ребят, помогите написать кейлоггер на pascal(fpc под win32) под XP. -если не трудно, накатайте код какого-нибудь простенького кейла. -дайте ссылку на инфу по системным прерываниям, портам ввода-вывода, каскадным включениям обработчиков. -как скрыть программу из диспетчера задач. -если есть люди, которые знают как обойти kis`ку (я уже в обычном чате писать не могу, каждую секунду вылазит... |
Pascal одна задача на множества, другая на динамический список
https://www.cyberforum.ru/ pascal/ thread8073.html Здравствуйте, помогите мне пожалуйста с решением этих двух задач: 1. (Задача на множества) Дана непустая последовательность слов из строчных букв; между соседними словами - запятая, за последним словом - точка. Построить множество, содержащее в алфавитном порядке все гласные буквы, которые входят в каждое слово. Вот этот код конечно программой назвать нельзя, но большего я не осилил (не... |
Pascal Паскаль, графический режим и ноутбук Добрый день! У нас такая проблема: есть комплекс программ, написанный более 10 лет назад еще под DOS на Borland Pascal 7.0. Программы очень нужные, исходники есть, но переписывать их новыми средствами (это в перспективе) пока нет ни людей, ни денежных средств. В свое время, когда переходили под Windows 2000/ХР, была проблема с русскими шрифтами в текстовом режиме, но мы ее решили с помощбю... https://www.cyberforum.ru/ pascal/ thread8072.html |
Задачи на TurboPascal Pascal Народ, хелп!! Помогите две задачки решить на Паскаел?? Очень благодарен буду!!! Первая задача: Одномерный символьный массив длиной 300 элементов заполнить из файла, начиная с начала, и распечатать по 60 символов в строке. С помощью процедур сосчитать и распечатать, сколько трех-, шести- и девяти- символьных слов в массиве. 1) Построить процедуру, которая в передаваемом ей исходном массиве... |
Pascal помогите, пожалуйста, решить задачу( оч.надо!) Уважаемые программисты, помогите, пожалуйста, решить задачу решить задачу, связанную с оценкой экономической деятельности группы предприятий на основе известных данных: -название предприятие; -среднесписочное количество работников; -фактический объем розничного товарооборота; Требуется определить: -объем товарооборота, приходящийся на одного работника(по каждому предприятию); -количество... https://www.cyberforum.ru/ pascal/ thread8010.html |
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
|
|
22.05.2008, 06:40 | 0 |
Задача на строки, немогу разобраться - Pascal - Ответ 3640122.05.2008, 06:40. Показов 1522. Ответов 8
Метки (Все метки)
Ответ
Переписывать тоже с умом надо. Переменная a это формальный параметр процедуры, а раз убрал процедуру, то вместо него нужно писать фактические переменные: сначала s1. когда для нее все сделаем, то второй раз s. И результат для каждой строки разный, значит нужно две переменных. Я сказал что писать нужно два раза, для каждой строки-формулы отдельно, как бы две программы, а не дословно переписывать процедуру два раза.
Код
[SIZE=2] uses crt; var s,s1:string; i,k,rez,rez1:integer; ss:string[2]; si:char; is,a1,a2,p1,p2:integer; begin clrscr; writeln('Vvedite vyrazenie:'); {делим строку на две} readln(S); for i:=1 to length(s)do if (s[i]=':')and(s[i+1]<>'=')then begin s1:=copy(s,1,i-1); delete(s,1,i); end; ss:='+-'; {обрабатываем певое выражение} for i:=1 to 2 do if pos(ss[i],s1)>0 then begin is:=pos(ss[i],s1); si:=ss[i] end; if si=''then writeln('Nevernoe vyrazenie!') else begin val(copy(s1,4,is-4),a1,p1); val(copy(s1,is+1,length(s1)-is),a2,p2); if (p1<>0) or (p2<>0) then writeln('Nevernoe vyrazenie!') else begin case si of '+': rez1:=a1+a2; '-': rez1:=a1-a2; end; end; end; for i:=1 to 2 do {обрабатываем второе выражение} if pos(ss[i],s)>0 then begin is:=pos(ss[i],s); si:=ss[i] end; if si=''then writeln('Nevernoe vyrazenie!') else begin val(copy(s,4,is-4),a1,p1); val(copy(s,is+1,length(s)-is),a2,p2); if (p1<>0) or (p2<>0) then writeln('Nevernoe vyrazenie!') else begin case si of '+': rez:=a1+a2; '-': rez:=a1-a2; end; end; end; writeln('Rezultat:'); writeln(s1[1]+'=',rez1); writeln(s[1]+'=',rez); readln; end. Procedure Rezult(a:string;var rz:integer); var ss:string[2]; si:char; is,a1,a2,p1,p2,res:integer; begin ss:='+-'; for i:=1 to 2 do if pos(ss[i],a)>0 then begin is:=pos(ss[i],a); si:=ss[i] end; if si=''then writeln('Nevernoe vyrazenie!') else begin val(copy(a,4,is-4),a1,p1); val(copy(a,is+1,length(s)-is),a2,p2); if (p1<>0) or (p2<>0) then writeln('Nevernoe vyrazenie!') else begin case si of '+': rz:=a1+a2; '-': rz:=a1-a2; end; end; end; end; begin clrscr; writeln('Vvedite vyrazenie:'); readln(S); for i:=1 to length(s)do if (s[i]=':')and(s[i+1]<>'=')then begin s1:=copy(s,1,i-1); delete(s,1,i); end; writeln('Rezultat:'); Rezult(s1,rez); writeln(s1[1]+'=',rez); Rezult(s,rez); writeln(s[1]+'=',rez); readln end. [/SIZE] Вернуться к обсуждению: Задача на строки, немогу разобраться Pascal
0
|
22.05.2008, 06:40 | |
Готовые ответы и решения:
8
Задача по теории вероятности, немогу разобраться Строки немогу найти решения или нехватает литературы чтоб самому разобраться Немогу разобраться Немогу разобраться с директивами |
22.05.2008, 06:40 | |
22.05.2008, 06:40 | |
Помогаю со студенческими работами здесь
0
немогу разобраться с переменной C++ Немогу разобраться с делегатом! Немогу разобраться с прогой Немогу разобраться с кодом.. |