помогите решить пару задач на паскале! 1.Описaть функцию, кoторая вoзвращает знaчение TRUЕ ,если в стрoке буква А встречaется чаще, чем буква Б, и FALSE в противнoм случае. 2.Задaн текст, сoстоящий из слoв, разделенных одним или несколькими пробелами. Описaть прoцедуру, фoрмирующую новый текст, включив в него слoва заданного, разделенные только одним прoбелом. про +++ не забуду
PHP: function Sravn(s:string):Boolean; var i,a,b:integer; begin a:=1; b:=1; For i:=1 to Length(s) do begin if s[i]='a' then inc(a); if s[i]='b' then inc(b); end; if a>b then result:=True else result:=False; end;
PHP: var H:array[1..10,1..30] of integer; i,j:integer; begin for i:=1 to 10 do for j:=1 to 30 do begin write('Vvedite ocenku s predmeta # ',i,' studentu # ',j,' '); readln(H[i,j]); end; for i:=1 to 10 do for j:=1 to 30 do if H[i,j]<3 then Writeln('U studenta # ',j,' problemi s predmetom # ',i); readln; end. Так как-то...
Еще один быдлокодере в топике > - оператор "возвращающий" значние типа Boolean Скомпилируй это Code: function Ololo(a, b: Integer): Boolean; begin Result := a > b; end; Компилируется? Что такое "условие"? Есть только операторы. Такие как >, < и .п. а в конструкции while, repeat, if и т.п. передаются выражения, которые в частности могут быть операторами. И забудь про кодинг навсегда
Люди попросили помочь - я помогаю, программа работает. Код не єталон идеала, но робит. Не думаю, что ошибка настолько критична. Не лезь в личности.
Только начала изучать программирование, помогите кто-нибудь пожалуйста разобраться...Что значит "необъявленный идентификатор n", если я его объявила в var. почему всё равно выдаёт ошибку?
Доброй ночи всем, Собственно нужна помощь людей шарящих в паскале, дабы из меня программист никудышный, вот и рассчитываю на вас. Нужно решить следующее: Отблагодарю как смогу
var - это скорее всего паскаль-таки. Код покажите полностью, вам скажут что неправильно с переменной вашей.
Вот первая: Code: program MinFromMas; type mas=array[1..10] of integer; function Min(x,y:mas; count:integer):integer; var i,cur:integer; begin cur:=x[1]; for i:=2 to count do if x[i]<cur then cur:=x[i]; for i:=1 to count do if y[i]<cur then cur:=y[i]; Min:=cur; end; procedure GenMas(var a:mas; count:integer); var i:integer; begin randomize; for i:=1 to count do a[i]:=random(100)-50; end; procedure WriteMas(a:mas; count:integer); var i:integer; begin for i:=1 to count do write(a[i]:4); end; var A,B,C,D:mas; i,m:integer; begin GenMas(A, 5); GenMas(B, 5); writeln('Masiv A:'); WriteMas(A, 5); writeln; writeln('Masiv B:'); WriteMas(B, 5); writeln; m:=Min(A, B, 5); writeln('Minimalnoye znacheniye sredi elementov massivov: ', m); readln; GenMas(C, 4); GenMas(D, 4); writeln('Masiv C:'); WriteMas(C, 4); writeln; writeln('Masiv D:'); WriteMas(D, 4); writeln; m:=Min(C, D, 6); writeln('Minimalnoye znacheniye sredi elementov massivov: ', m); readln; end. Вторую сейчас накалякаю и тоже выложу
Как и обещал, вторая: Code: program Raznost; const n=10; type mat=array[1..n,1..n] of integer; function GetRaz(A:mat; count:integer):integer; var i,j:integer; sum1,sum2:integer; begin sum1:=0; sum2:=0; for i:=1 to count-1 do for j:=i+1 to count do sum1:=sum1+A[i,j]; for i:=count downto 1 do for j:=i-1 downto 1 do sum2:=sum2+A[i,j]; GetRaz:=sum1-sum2; end; procedure GenMas(var A:mat; count:integer); var i,j:integer; begin randomize; for i:=1 to count do for j:=1 to count do A[i,j]:=random(100)-50; end; procedure WriteMas(A:mat; count:integer); var i,j:integer; begin for i:=1 to count do begin for j:=1 to count do write(A[i,j]:4); writeln; end; end; var Z:mat; begin GenMas(Z, 4); WriteMas(Z, 4); writeln('Raznost summ: ', GetRaz(Z, 4)); readln; end.
Помогите написать на Delphi программу - она легкая по нажатию на пробел начать выводить в форму слова (по одному), причем каждое слово должно отображаться в форме 2 секунд, а знаки - и + 1 секунду слово машина голова + дверь - число точка книга + школа месяц рынок дом земля глава лампа - газета стена завод плечо вещь гость фильм линия здание журнал берег угол голос музыка - палец текст
По событию OnKeyPress проверяешь был ли нажат пробел (код его 32), и если да начинаешь выводить слова (в мемо, эдит, непосредственно на канвас) и делать задержку с помощью sleep. Если хочешь чтобы небыло зависания формы запускай код добавления слов и задержки в отдельном потоке.
"Разработать Нестандартные тип данных QMATRIX, что соответствует понятию квадратная матрица. Для него определить конструкторы, деструктор, а также функции, которы реализуют доступ к элементам матрицы и определяют знак операции "=" и действие с матрицей по варианту задания" - сами функции я напишу, а вот как будет выглядеть структура в общем... Сориентируйте кто-то, а то я не силен в ООП.
Помогите решить задачу (А3 по информатике) Всем привет! помогите пожалуйста решить задачу! где то уже час думаю как найти решение но не как не могу найти! Условия: а=А3_16 ( снизу написано 16), b=301_8 (снизу написано 8). Выберите число с, записанное в двоичной системе, который отвечает условию a<c<b Очень прошу помогите решить...не просто решить, а объяснить как это решается! если можно подробное решение и подробно объяснить!
