/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Pascal

Выпуск № 630
от 12.04.2008, 08:35

Вопрос № 130.811

Уважаемые эксперты помогите решить задачи: Дана целочисленная прямоугольная матрица. Определить: 1) количество строк, не содержащих ни одного нулевого элемента (оформить в виде функции); 2) максимальное из чисел, встречающихся в заданной матрице более одного раза (оформить в виде процедуры) Приложение: Размерности массивов следует задать именованными константами. Все необходимые данные должны передаваться подпрограммам в качестве параметров; все величины, используемые только внутри подпрограмм, должны быть описаны как локальные. Использование глобальных переменных в подпрограммах не допускается. Вывод результатов работы подпрограмм должен выполняться в главной программе.

Отправлен: 06.04.2008, 15:15 Вопрос задал: Stamp (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Пупорев Юрий Борисович Здравствуйте, Stamp! Решение обоих задач в приложении. Постарался соблюсти все условия, если что не так, пишите. Приложение: program matrica1; uses crt; const n=6; m=4; type matr=array[1..n,1..m]of integer; var i,j:integer; a:matr; Function Kol(mas:matr):integer; {функция подсчета безнулевых строк} var i,j,k,p:integer; begin k:=0; for i:=1 to n do begin p:=0; for j:=1 to m do if mas[i,j]=0 then begin p:=p+1; {считаем ноли в строке} end; if p=0 then k:=k+1;{если их нет, считаем строку} end; Kol:=k; end; begin clrscr; for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(10); write(a[i,j]:3); end; writeln; end; writeln('Kolichestvo strok bez 0=',Kol(a)); readln; end. program matrica2; uses crt; const n=4; m=5; type matr=array[1..n,1..m]of integer; mass=array[1..n*m]of integer; var i,j,pov_max:integer; a:matr; Procedure Max2(ms:matr; var el:integer); {процедура, находящая первый повторяющийся максимальный элемент} var i,j,k,x:integer; b:mass; begin k:=0; for i:=1 to n do begin for j:=1 to m do begin k:=k+1; b[k]:=ms[i,j];{разворачиваем матрицу в линейный массив} end; end; for i:=1 to k-1 do for j:=1 to k-1 do if b[j]<b[j+1] {then сортируем его по убыванию} begin x:=b[j];b[j]:=b[j+1];b[j+1]:=x end; for i:=1 to k-1 do if b[i]=b[i+1] then begin el:=b[i]; {ищем первые два одинаковых элемента} break; end else if (i=k-1)and(b[i]<>b[i+1]) then begin writeln('Takogo elementa net'); readln; exit; {если их нет, завершаем программу} end; end; begin clrscr; randomize; for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(10); write(a[i,j]:3); end; writeln; end; Max2(a,pov_max); Writeln('Takoj element = ',pov_max); readln; end.

Ответ отправил: Пупорев Юрий Борисович (статус: Студент) Ответ отправлен: 06.04.2008, 17:06 Оценка за ответ: 5 Комментарий оценки: Огромное спасибо)

Вопрос № 130.815

Уважаемые эксперты !!! Помогите !!!мне в турбо Паскале надо написать программу по сортировке и поиску: выяснить является ли произвольная сивольная строка идентификатором ( мне сказали что прогамму писать надо использую какой-то String) . Заранее спасибо! Приложение: Если возможно , хотя бы примерно напишите текст программы ( я в этой теме полный дуб)

Отправлен: 06.04.2008, 15:24 Вопрос задал: Хмелев Андрей Борисович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Пупорев Юрий Борисович Здравствуйте, Хмелев Андрей Борисович! Идентификаторы в Турбо Паскале - это имена констант, переменных, меток, типов, объектов, процедур, функций, модулей, программ и полей в записях. Идентификаторы могут иметь произвольную длину, но значащими (уникальными в области определения) являются только первые 63 символа. Идентификатор всегда начинается буквой, за которой могут следовать буквы и цифры. Напомню, что буквой считается также символ подчеркивания, поэтому идентификатор может начинаться этим символом и даже состоять только из одного или нескольких символов подчеркивания. Пробелы и специальные символы алфавита не могут входить в идентификатор. Если уж до конца, то идентификаторами не могут быть зарезрвированные слова, их вроде 48 штук. Но как сравнивать строку еще и с ними, я не придумал. Если по условию это необходимо, значит программу нужно доделывать. То, что я написал, в приложении. Приложение: uses crt; const mnb=['A'..'z','_']; {буквы+знак подчеркивания} mnc=['0'..'9']; {цифры} var s:string[63]; {заданная строка} i,k:integer; begin clrscr; write('s:');readln(s); k:=0; for i:=1 to length(s) do {проверяем выполняются ли все условия, оговоренные в определении идентификатора} if (s[1] in mnb)and((s[i] in mnb) or(s[i] in mnc)) then k:=k+1; if k=length(s) then Writeln('Stroca-identifikator!') else Writeln('Stroca- ne identifikator!'); readln end.

Ответ отправил: Пупорев Юрий Борисович (статус: Студент) Ответ отправлен: 06.04.2008, 18:32 Оценка за ответ: 5 Комментарий оценки: Спасибо огромное!!! Без вас я бы пропал!

Вопрос № 130.830

Здравствуйте, уважаемые эксперты, помогите пожалуйста составить программу для этой задачи ( на Турбо Паскале) : Дана матрица размером M×N. Ввести исходные данные в первые M–1 строки и первые N–1 столбцов. Вычислить среднее арифме-тическое элементов каждой строки и записать его в N-й столбец, а также среднее арифметическое элементов каждого столбца и записать его в M-ю строку. Спасибо. Приложение: Если можно примерный текст программы

Отправлен: 06.04.2008, 16:22 Вопрос задал: Хмелев Андрей Борисович (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: SHERRY Здравствуйте, Хмелев Андрей Борисович! Код программы в приложении. Думаю пояснения излишни. Разбирайтесь! Приложение: const m=3; n=3; var ms: array[1..m, 1..n] of real; i,j,r: integer; a: real; begin randomize; for i:=1 to m-1 do {заполняем случайным образом} for j:=1 to n-1 do begin r:=random(10); ms[i,j]:=r; end; for i:=1 to m-1 do {считаем среднее арифметическое по строkам} begin a:=0; for j:=1 to n-1 do a:=a + ms[i,j]; ms[i,n]:= a / (n-1); end; for i:=1 to m-1 do {считаем среднее арифметическое по столбцам} begin a:=0; for j:=1 to n-1 do a:=a + ms[j,i]; ms[m,i]:= a / (n-1); end; for i:=1 to m do {вывести на экран результат} begin for j:=1 to n do write(ms[i,j]:6:2); writeln; end; readln; end. --------- Самурай без меча подобен самураю с мечём, только без меча..

Ответ отправил: SHERRY (статус: 8-ой класс) Ответ отправлен: 06.04.2008, 16:57 Оценка за ответ: 5 Комментарий оценки: Спасибо , кланюсь в ножки и бью челом!!!

Отвечает: Пупорев Юрий Борисович Здравствуйте, Хмелев Андрей Борисович! В предыдущем решении есть ошибка, там одинаково считается среднее и по строкам и по столбцам, а это не так, поэтому прилагаю свое решение. Приложение: uses crt; var a:array[1..50,1..50]of real; m,n,i,j:integer; sum:real; begin clrscr; write('m=');readln(m); write('n=');readln(n); writeln('Ishodnaia matrica:'); for i:=1 to m-1 do begin for j:=1 to n-1 do begin a[i,j]:=random(10)+random; write(a[i,j]:6:2); end; writeln; end; readln; for i:=1 to m-1 do {среднее по строкам} begin sum:=0; for j:=1 to n-1 do sum:=sum+a[i,j]; a[i,n]:=sum/(n-1);{заполняем последний столбец} end; for j:=1 to n do {счит.среднее по столбцам, их уже n, а не n-1} begin sum:=0; for i:=1 to m-1 do sum:=sum+a[i,j]; a[m,j]:=sum/(m-1);{заполняем последнюю строку} end; writeln('Rezultat:'); for i:=1 to m do begin for j:=1 to n do write(a[i,j]:6:2);{выводим полную матрицу} writeln; end; readln; end.

Ответ отправил: Пупорев Юрий Борисович (статус: Студент) Ответ отправлен: 06.04.2008, 19:17

Вопрос № 130.867

Здравствуйте...помогите пожалуйста решить задачки по одномерному массиву... 1)Задайте одномерному массиву из 10 элементов с помощью датчика случайных чисел. Все отрицательные элементы замените минимальным и подсчитайте количество замен. 2)Задайте одномерный массив из 10 элементво с помощью датчика случайных чисел. Поменяйте знаки всем элементам этого массива, стоящим на нечётных местах.Распечатайте исходный и полученный массивы. 3)Сформулируйте массив,содержащий 20 элементов,с помощью датчика случайных чисел. Получите новый массив, каждый отрицательный, четный элемент которого равен частному от деления соответствующего элемента исходного массива на значение его индекса. Выведите на экран исходные и полученные результаты. 4) В одномерном массиве масса багажа 20 пассажиров. Найдите массу почтового груза пассажирского самолёта. Сколько пассажиров имеют груз превышающий 20 кг . Ps:напишите плиз подробно от начала до конца...Заранее примногоблагодарен

Отправлен: 06.04.2008, 20:28 Вопрос задал: Danilka (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Пупорев Юрий Борисович Здравствуйте, Danilka! В приложении решение первой задачи с необходимыми комментариями. Приложение: uses crt; var a:array[1..10]of integer; i,min,k:integer; begin clrscr; randomize;{генератор псевдослучайных чисел} writeln('Ishodny massiv:'); for i:=1 to 10 do begin {заполняем массив случайными чмслами из диапазона [-3,6]} a[i]:=random(10)-3; {выводим его на экран через пробелы} write(a[i],' '); end; writeln; min:=a[1]; for i:=1 to 10 do if a[i]<min then min:=a[i]; {находим минимальный элемент} k:=0; for i:=1 to 10 do {числа меньше ноля и неравные минимальному, заменяем на }{минимальные} if (a[i]<0)and(a[i]<>min) then begin a[i]:=min; k:=k+1;{считаем количество замен} end; writeln('Rezultat:'); for i:=1 to 10 do write(a[i],' '); writeln; writeln('Kolichestvo zamen=',k); readln end.

Ответ отправил: Пупорев Юрий Борисович (статус: Студент) Ответ отправлен: 06.04.2008, 20:53 Оценка за ответ: 5

Отвечает: Marked One Здравствуйте, Danilka! Задачи №2, №3 и №4 в приложении. Удачи!!! Приложение: {№2} var MyArray: array [1..10] of integer; i:integer; begin randomize; {Включаем генератор случайных чисел} for i:=1 to 10 do begin MyArray[i]:=random(10)-5; {Заполняем и выводим через пробел исходные данные} Write(MyArray[i], ' '); end; WriteLn; {Для разделения исходных и конечнех данных} for i:=1 to 10 do if Odd(i) then {Если номер элемента нечетный, то меняем знак} MyArray[i]:=-MyArray[i]; for i:=1 to 10 do write(MyArray[i], ' '); {Выводим рез-тат через пробел} readln; {Дожидаемся нажатия Enter] end. {№3} var a:array [1..20] of integer; ANew:array [1..20] of real; i:integer; begin randomize; for i:=1 to 20 do begin a[i]:=random(20)-10; write(a[i], ' '); end; WriteLn; for i:=1 to 20 do if not Odd(a[i]) and (a[i]<0) then {Если число четное и меньше нуля то изменяем число и сохраняем в новый массив} ANew[i]:=a[i]/i else anew[i]:=a[i]; {Иначе просто сохраняем} for i:=1 to 20 do write(aNew[i]:0:2, ' '); {вывод} readln; end. {№3} var luggage: array [1..20] of integer; i, count, mass:integer; begin randomize; for i:=1 to 20 do begin luggage[i]:=random(30); write(luggage[i], ' '); end; writeln; mass:=0; {обнуляем счетчики массы и кол-ва багажей больше 20кг} count:=0; for i:=1 to 20 do begin if luggage[i]>20 then {Если масса больше 20 то увеличиваем счетчик на 1} inc(count); mass:=mass+luggage[i]; {Прибавляем к массе} end; WriteLn('Масса груза = ', mass); {Вывод} WriteLn('Кол-во багажа больше 20 кг = ', count); ReadLn; end.

Ответ отправил: Marked One (статус: Студент) Ответ отправлен: 06.04.2008, 22:15 Оценка за ответ: 5

Вопрос № 130.868

Напишите пожалуйста программу! Вот задание! (Знаю что она не сложная но у меня не получается). Дан массив x=(x1,x2,...,xn). Переписать первые 5 положительных элементов подряд в массив y=(y1,y2,...,y5). Найти max элемент массива.

Отправлен: 06.04.2008, 20:36 Вопрос задал: Spider777 (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Шемет Станислав Васильевич Здравствуйте, Spider777! Я не понял в каком массиве искать максимальный элемент поэтому написал 2 функции 1) Ищет в массиве Х максимальный элемент это MaxМ 2)Ищет в массиве У максимальный элемент это MaxУ Приложение: const n=100; Var m:array[1..n] of integer; Y:array[1..5] of integer; i:integer; Function MaxM:integer; Var Max:integer; Begin max:=m[1]; For i:=2 to n do If max<m[i] then Max:=m[i]; MaxM:=max; end; Function MaxY:integer; Var Max:integer; Begin Max:=y[1]; For i:=2 to 5 do if max<y[i] then max:=y[i]; maxy:=max; end; Begin for i:=1 to 5 do y[i]:=m[i]; Writeln(MAxM); Writeln(MAxY); Readln; end. --------- Любовь это прекрасно!!!

Ответ отправил: Шемет Станислав Васильевич (статус: 5-ый класс) Ответ отправлен: 07.04.2008, 01:03 Оценка за ответ: 5 Комментарий оценки: Громадное спасибо! Просто выручил, а то завтра информатика а д/з не сделано! Если что еще буду писать! Еще раз СПАСИБО!

Отвечает: Пупорев Юрий Борисович Здравствуйте, Spider777! В приведенном выше ответе задача в принципе не решена. Исходный массив не создан, а в массив Y перенесены первые пять элементов, хотя по условию нужно "первые 5 положительных элементов подряд". Поэтому прилагаю свой вариант решения. Приложение: uses crt; var a:array[1..50]of integer; y:array[1..5]of integer; n,i,j,max:integer; begin clrscr; randomize; {генератор псевдослучайных чисел} write('n=');readln(n); writeln('Massiv A:'); for i:=1 to n do begin a[i]:=random(10)-2;{числв из интервала [-2,7]} write(a[i],' '); end; j:=1;i:=1; while j<=5 do begin {если элемент положительный, переносим его в новый массив, если нет, переходим к следующему элементу и так пока не наберем 5 положительных элементов } if a[i]>0 then begin y[j]:=a[i]; i:=i+1; j:=j+1; end else inc(i); end; writeln; writeln('Massiv Y:'); for i:=1 to 5 do write(y[i],' '); writeln; {поиск максимального элемента в исходном массиве} max:=a[1]; for i:=2 to n do if a[i]>max then max:=a[i]; writeln('Max element=',max); readln; end.

Ответ отправил: Пупорев Юрий Борисович (статус: Студент) Ответ отправлен: 07.04.2008, 06:46 Оценка за ответ: 5 Комментарий оценки: Угу, спасибо! На самом деле инфы не было так что представить могу 2 варианта решения! БОЛЬШОЕ СПАСИБО!

Вопрос № 130.946

Здрасти, а помогите пож. с задачками=))) 1) Определить, во введенной строке есть десятичное число? Сколько чисел было введено? Какое из них наибольшее? 2) В двумерном массиве переставить местами элементы первой и по- следней строки. 3)Дана действительная матрица размера n*m, все элементы которой различны. В каждой строке выбирается элемент с наименьшим зна- чением. Затем среди этих чисел выбирается наибольшее, указать индексы элемента с найденным значением. Отсортировать матрицу по убыванию. Спасибо=)))

Отправлен: 07.04.2008, 08:10 Вопрос задала: Осипова Анна Олеговна (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Пупорев Юрий Борисович Здравствуйте, Осипова Анна Олеговна! В приложениии решение второй и третьей задач. В первой задаче действительно нужно найти конкретно десятичные числа,т.е. в десятеричной системе счисления или это просто само собой разумется. Просто отличать числа десятичные от чисел в ситемах с меньшим основанием довольно трудно. Если сможете, уточните условие. Комментарии ко второй задаче минимальны, там все ясно. К третьей задаче - более подробные, задача намногог сложнее. Удачи Вам! Приложение: Задача 2. program per_str; uses crt; var a:array[1..10,1..10] of integer; n,m,i,j,x:integer; begin clrscr; write('m= ');readln(m); write('n= ');readln(n); randomize; for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=random(10); write(a[i,j]:3); end; writeln; end; readln; for j:=1 to n do begin {меняем местами элементы первой и последней строк} x:=a[1,j];a[1,j]:=a[m,j];a[m,j]:=x; end; for i:=1 to m do begin for j:=1 to n do write(a[i,j]:3); writeln; end; readln; end. Задача 3. uses crt; const n=5; m=6; var a:array[1..n,1..m]of integer; mn:set of byte; {множество используем для получения неповторяющихся чисел} b:array[1..n*m]of integer; {вспомогательный линейный массив для сортировки матрицы} i,j,min,max,imin,jmin,imax,jmax,k,x:integer; begin clrscr; mn:=[]; randomize; writeln('Ishodnaia matrica:'); for i:=1 to n do begin for j:=1 to m do begin {заполняем матрицу случайными неповторяющимися числами от 1 до 30} repeat a[i,j]:=random(n*m)+1; until not (a[i,j] in mn); include(mn,a[i,j]); write(a[i,j]:4); end; writeln; end; readln; {Поиск максимального среди минимальных в строках} max:=0; for i:=1 to n do begin min:=a[i,1];jmin:=1; for j:=1 to m do if a[i,j]<min then begin min:=a[i,j];{минимальный в строке} jmin:=j; end; if min>max then begin max:=min; {если в сл.строке мин >, то max присваиваем ему} imax:=i;{номер строки} jmax:=jmin; {номер столбца} end; end; writeln('max=',max,' imax=',imax,' jmax=',jmax); readln; {разворачиваем матрицу в линейный массив} k:=0; for i:=1 to n do for j:=1 to m do begin k:=k+1; b[k]:=a[i,j]; end; {Сортируем массив по убыванию} for i:=1 to k-1 do for j:=1 to k-1 do if b[j]<b[j+1]then begin x:=b[j]; b[j]:=b[j+1]; b[j+1]:=x; end; {Сворачиваем массив обратно в матрицу в отсортированном виде} writeln('Sortironka:'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=b[j+m*(i-1)]; write(a[i,j]:3); end; writeln; end; readln; end.

Ответ отправил: Пупорев Юрий Борисович (статус: Студент) Ответ отправлен: 07.04.2008, 10:49

Отвечает: Denisss Здравствуйте, Осипова Анна Олеговна! Пример решения первой задачи находится в приложении. В данном примере ищутся все десятичные числа, даже если они являются частью слова (или, например, частью шестнадцатиричного числа), поскольку в задании не указано, что это запрещено (т.е. пользовался принципом: разрешено все, что не запрещено). Дополнительно в коде реализован поиск отрицательных десятичных чисел (начинающихся со знака "-"). Успехов! Приложение: program q130946_1; uses Crt; function isDigit(const ch: Char): Boolean; begin isDigit:= (ch in ['0'..'9']); end; var {Количество найденных десятичных чисел} dcount: Integer; {Строка} aText: String; {Наибольшее десятичное число} dMax: LongInt; {Дополнительные переменные} dBuff: LongInt; zero, i, sL: Byte; prevIsDigit: Boolean; prevIsMinus: Boolean; begin {Очистка экрана} ClrScr; {Ввод текста} write('Text:'); readln(aText); {Инициализация} dCount:= 0; zero:= ord('0'); dBuff:= 0; sL:= Length(aText); prevIsDigit:= False; prevIsMinus:= False; {Перебор символов строки} for i:= 1 to sL do begin if (isDigit(aText[i])) then begin if prevIsMinus then dBuff:= (dBuff * 10) - (ord(aText[i]) - zero) else dBuff:= (dBuff * 10) + ord(aText[i]) - zero; prevIsDigit:= True; end else begin if prevIsDigit then begin Inc(dCount); if ((dBuff > dMax) or (dCount = 1)) then dMax:= dBuff; dBuff:= 0; prevIsDigit:= False; end; prevIsMinus:= (aText[i] = '-'); end; end; if prevIsDigit then begin Inc(dCount); if ((dBuff > dMax) or (dCount = 1)) then dMax:= dBuff; end; {Вывод результата} writeln; if (dCount = 0) then writeln('Chisel ne obnaruzheno!') else Writeln('Naideno ', dCount, ' chisel, max = ', dMax); {Даем пользователю насладиться результатом} writeln; writeln('Press any key...'); readln; end. --------- Будь осторожен, когда молишься ради чего-то, потому что можешь это получить...

Ответ отправил: Denisss (статус: Профессионал) Россия, Москва ICQ: 281599577 ---- Ответ отправлен: 07.04.2008, 19:48

© 2001-2008, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале ∙ Версия системы: 4.90 от 11.04.2008
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru