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

Выпуск № 552
от 22.01.2008, 11:05

Вопрос № 118.761

1) Для какого наибольшего N можно вычислить значение (2n!) (это производение всех четных натуральных чисел, не превышающих 2n), пользуясь типом Integer? 2) Напишите программу, которая считывает текстовый файл и определяет, есть ли в нем символ z. 3) Создайте массив из N элементов. Определите Max (используя функцию). Отсортируйте массив с помощью процедуры по возрастанию.

Отправлен: 16.01.2008, 12:21 Вопрос задал: Городцов Павел (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Delph Здравствуйте, Городцов Павел ! Отвечу на первый вопрос. Для стандартного типа Integer максимальное значение составляет 32767. Теперь посмотрим значения факториалов: 6! = 720, 7! = 5040, 8! = 40320 - уже выходит за рамки допустимого диапазона. Значит под функцией факториала должен находиться аргумент не более 7. Поскольку мы считаем факториал от (2*n), то максимальным допустимым значением для n имеем 3 (исхожу из предположения, что n - целое, хотя факториал от вещественного значения - это уже совсем другая история, посложнее). Если использовать тип Word (диапазон [0..65535]), то можно уже рассчитать 8!, т.е. для n максимальное значение возрастает до 4. --------- Сомневайся во всём! Реальность часто бывает не такой, как мы о ней думаем.

Ответ отправил: Delph (статус: Студент) Ответ отправлен: 16.01.2008, 13:08 Оценка за ответ: 5

Отвечает: Артём1983 Здравствуйте, Городцов Павел ! Отвечу на оставшиеся два вопрса. Смотрите код программ в приложении. Приложение: {118761_2} uses crt; var f:text; s:string; begin clrscr; assign(f,'input.txt'); reset(f); while not eof (f)do begin readln(f,s); if pos('z',s)=0 then writeln('нет буквы z') else writeln('есть буква z'); end; close(f); readln; end. {118761_3} uses crt; const n=10; type massiv=array[1..n]of integer; var a:massiv; i,numb:integer; function max(a:massiv):integer; var tm:integer; begin tm:=a[1]; for i:=1to n do begin if a[i]>=tm then tm:=a[i]; end; max:=tm; end; procedure sort(var x:massiv); var swp:integer; begin while numb < n-1 do begin numb:=0; for i:=1to n-1do begin if x[i]>x[i+1] then begin swp:=x[i]; x[i]:=x[i+1]; x[i+1]:=swp; end else numb:=numb+1; end; end; end; begin clrscr; textmode(co80+font8x8); randomize; for i:=1to n do begin a[i]:=1+random(10); write(a[i]:3); end; writeln; writeln('максимальный элемент =',max(a)); sort(a); write; for i:=1to n do begin write(a[i]:3); end; readln; end. --------- Программирование - дело Путное!

Ответ отправил: Артём1983 (статус: 8-ой класс) Ответ отправлен: 16.01.2008, 21:11 Оценка за ответ: 5 Комментарий оценки: Спасибо!

Вопрос № 118.763

дан одномерный массив N=15 посчитать количество отрицаетльных элементов массива Заранее спасибо

Отправлен: 16.01.2008, 12:44 Вопрос задал: Голиков Алексей Николаевич (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: sergesus Здравствуйте, Голиков Алексей Николаевич! const N=15; var A:array [1..N] of double; S:double; {количество отрицательных элементов} i:integer; begin S:=0; for i := 1 to 15 do if A[i]<0 then S:=S+1; end. Приложение: const N=15; var A:array [1..N] of double; S:double; {количество отрицательных элементов} i:integer; begin S:=0; for i := 1 to 15 do if A[i]<0 then S:=S+1; end.

Ответ отправил: sergesus (статус: 2-ой класс) Ответ отправлен: 16.01.2008, 12:57

Отвечает: Djec Здравствуйте, Голиков Алексей Николаевич! В приложении решении вашей задачи. Удачи! Приложение: program q118763; uses CRT; var A : Array [1..15] of integer; i, k : integer; begin ClrScr; WriteLn( 'Введите 15 элементов массива A:' ); for i := 1 to 15 do ReadLn( A[i] ); WriteLn; WriteLn( 'Исходный массив A:' ); for i := 1 to 15 do Write( A[i]:3 ); WriteLn; k := 0; for i := 1 to 15 do if A[i] < 0 then k := k + 1; if k <> 0 then WriteLn( 'Количесвто отрицательных элементов равно ', k ) else WriteLn( 'Отрицательных нет' ); ReadLn; end. --------- "Если ты что-то делаешь, делай это хорошо. если же ты не можешь или не хочешь делать хорошо, лчуше совсем не делай" © Л.Н.Толстой"

Ответ отправил: Djec (статус: 7-ой класс) Ответ отправлен: 16.01.2008, 20:59 Оценка за ответ: 5

Вопрос № 118.791

Как решить эту задачу! Найти произведение положительных элементов каждой строки матрицы А(6,5). Результат записать в вектор Р(6).

Отправлен: 16.01.2008, 14:34 Вопрос задал: Лавицкас Ярослав Сергеевич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Николай Владимирович / Н.В. Здравствуйте, Лавицкас Ярослав Сергеевич! Программа в приложении. Удачи! Приложение: var A : array[1..6,1..5] of integer; P : array[1..6] of integer; i, j : integer; function proizv(l:integer):integer; var i, result : integer; begin result := 1; for i := 1 to 5 do if A[l,i] > 0 then result := result*A[l,i]; proizv := result; end; begin randomize; for i := 1 to 6 do begin for j := 1 to 5 do begin A[i,j] := random(10); Write(A[i,j],' '); end; WriteLn; end; WriteLn; for i := 1 to 6 do P[i] := proizv(i); for i := 1 to 6 do writeLn(P[i]); ReadLn; end.

Ответ отправил: Николай Владимирович / Н.В. (статус: Практикант) Ответ отправлен: 16.01.2008, 18:49 Оценка за ответ: 5 Комментарий оценки: хорошая работа. единственно коментарии иногда бы не помешали бы.... а так отлично)))

Вопрос № 118.795

ни как не могу решить задачу! Определить среднее геометрическое минимальных элементов массивов Х(10) и Y(15).

Отправлен: 16.01.2008, 14:36 Вопрос задал: Лавицкас Ярослав Сергеевич (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Vassea Здравствуйте, Лавицкас Ярослав Сергеевич! Задача состоит из двух частей. Во первых, необходимо найти минимальные элементы массивов. После чего можно по формуле находить среднее геометрическое. Сначала необходимо ввести оба массива (я думаю, Вы можете написать это сами). Дале находим минимальные элементы. Делать это будем в цикле for (так как нам уже известны длины массивов (10 и 15)) Сначала возьмем первый элемент в качестве минимального. Потом будем сравнивать его со всеми остальными. min1:=X[1]; for i:=2 to 10 do if X[i] Такие же действия выполняем для массива Y (но минимальное значение уже записываем в min2). Далее вычислим среднее геометрическое по фрмуле sqrt(min1*min2) Надо помнить, что произведение должно быть >= 0. Если Вы хотите избежать сбоя работы программы при введенных отрицательных числах, поставьте условие выполнения вычисления среднего геометрического (if min1*min2>=0) Надеюсь, что смог Вам помочь.

Ответ отправил: Vassea (статус: Студент) Ответ отправлен: 16.01.2008, 19:04 Оценка за ответ: 4 Комментарий оценки: мне нравится что вы хотите что бы я сам подумал над задачей конечно с вашей помощью) но единственный минус... я в двумерных масивах полный нуб....я конечно могу написать... тперь с вашими подсказками всё сам.... но у меня проблема с самим построением программы в начале....

Отвечает: Djec Здравствуйте, Лавицкас Ярослав Сергеевич! Решение задачи в приложении. Удачи! Приложение: program q118795; uses CRT; var X : Array [1..10] of integer; Y : Array [1..15] of integer; i, X_Min, Y_Min : integer; begin ClrScr; WriteLn( 'Введите 10 элементов массива X:' ); for i := 1 to 10 do ReadLn( X[i] ); WriteLn( 'Введите 15 элементов массива Y:' ); for i := 1 to 15 do ReadLn( Y[i] ); WriteLn( 'Исходный массив X:' ); for i := 1 to 10 do Write( X[i]:3 ); WriteLn; WriteLn( 'Исходный массив Y:' ); for i := 1 to 15 do Write( Y[i]:3 ); WriteLn; X_Min := X[1]; for i := 2 to 10 do if X[i] < X_Min then X_Min := X[i]; Y_Min := Y[1]; for i := 2 to 15 do if Y[i] < Y_Min then Y_Min := Y[i]; if X_Min*Y_Min >= 0 then WriteLn ( 'Среднее геометрическое равно ', sqrt( X_Min*Y_Min ):4:2 ) else WriteLn( 'Ошибка! Произведение минимальных элементов отрицательно' ); ReadLn; end. --------- "Если ты что-то делаешь, делай это хорошо. если же ты не можешь или не хочешь делать хорошо, лчуше совсем не делай" © Л.Н.Толстой"

Ответ отправил: Djec (статус: 7-ой класс) Ответ отправлен: 16.01.2008, 20:52 Оценка за ответ: 5 Комментарий оценки: ВОТ СПАСИБО)

Вопрос № 118.819

Нужна срочно программа!я новичек в этом деле,еще мало что знаю) Создать числовой массив T [1..S].Значение S вводится с клавиатуры.Отобразить на экране сумму и среднее арифметическое всех положительных элементов. Заранее благодарен!))

Отправлен: 16.01.2008, 15:49 Вопрос задал: AHAPX (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 7)

Отвечает: sergesus Здравствуйте, AHAPX! Вот с динамическим массивом. в приложении со статическим,(задаем длинный массив и S - до каково элемента производятся расчеты); var i,S,k:integer; Aref,Sum:double; T:array of double; begin Sum:=0; Writeln('Vvedite S'); readln(S); SetLength(T, S); for i := Low(T) to High(S) do if T[i]>0 then begin Sum:=Sum+T[i]; inc(k); Aref:=Sum/k; end; writeln('Sum=',Sum); writeln('Aref',Aref); end. Приложение: var i,S,k:integer; Aref,Sum:double; T:array [1..100] of double; begin Sum:=0; Writeln('Vvedite S'); readln(S); for i := 1 to S do if T[i]>0 then begin Sum:=Sum+T[i]; inc(k); Aref:=Sum/k; end; writeln('Sum=',Sum); writeln('Aref',Aref); end.

Ответ отправил: sergesus (статус: 2-ой класс) Ответ отправлен: 16.01.2008, 17:12 Оценка за ответ: 4

Отвечает: Николай Владимирович / Н.В. Здравствуйте, AHAPX! Мой вариант решения в приложении. Удачи! Приложение: var T : array[1..1000] of integer; S, i, summ : integer; begin WriteLn('Enter S:'); ReadLn(S); { заполняете массив числами } summ := 0; for i := 1 to S do if T[i] > 0 then summ := summ + T[i]; WriteLn('Summa: ',summ); WriteLn('Srednee arifmeticheskoe: ', (summ/S)); ReadLn; end.

Ответ отправил: Николай Владимирович / Н.В. (статус: Практикант) Ответ отправлен: 16.01.2008, 17:44 Оценка за ответ: 5

Вопрос № 118.847

Здравствуйте уважаемые знатоки! Очень нужна ваша помощь. Помогите написать программу на тему "строки". Строка текста - слова, пробелы, знаки препинания. Текст размещен в одной или нескольких строках без переноса слов со строки на следующую строку. Необходимо определить количество слов, количество предложений в тексте, среднюю длинну слов (общая длина слов, деленная на количество слов), наибольшее и наименьшее количество слов в предложениях текста. Жду ваших ответов!

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

Отвечает: Николай Владимирович / Н.В. Здравствуйте, Nadenka! Программа в приложении. Хочу обратить Ваше внимание на следующие особенности программы: 1. предложение заканчивается одним знаком, входящим в константу endofsentense. 2. Для предложений вроде "hello!!!!!!!!!!!" я не гарантирую правильность выполнения - это экзотика и в условии о таком случае ничего не сказано. 3. Знаков препинания и пробелов подряд может идти любое количество. Удачи! Приложение: uses crt; function Trim(const S: string): string; var I, L: Integer; res : string; begin L := Length(S); I := 1; while (I <= L) and (S[I] <= ' ') do Inc(I); if I > L then res := '' else begin while S[L] <= ' ' do Dec(L); Res := Copy(S, I, L - I + 1); end; Trim := res; end; Function CountWords(s : String) : Integer; var res : integer; begin {delete double spaces} s := Trim(s); While pos(' ', s) > 0 do delete(s, pos(' ',s), 1); res := 0; s := Trim(s); While pos(' ',s)>0 do begin s := copy(s, pos(' ',s)+1, Length(s) - pos(' ', s)); s := Trim(s); inc(res) end; CountWords := res+1; End; Function GetWord(s : String; i : Integer) : String; var s1 : string; k : integer; begin s1 := s; For k := 1 To i - 1 do s1 := copy(s1, pos(' ',s)+1, Length(s1) - pos(' ', s1)); If pos(' ', s1) > 0 Then GetWord := copy(s1, 1, pos(' ',s1) - 1) Else GetWord := Trim(s1); End; const symbols = ',:;'; { znaki prepinaniya } endofsentense = '.!?'; {znaki oboznachayushie konec predlozheniya} var s, s0 : string; words, min, max, fulllength, sentenses, i : integer; {min - минимальное кол-во слов, max - максимально кол-во слов, fulllength - общая длина всех слов, sentenses - количество предложений } begin min := 0; max := 0; fulllength := 0; sentenses := 0; words := 0; repeat WriteLn('Vvedite stroku:'); ReadLn(s); if trim(s) <> '' then begin { change all symbols to spaces } for i := 1 to length(s) do if (pos(copy(s,i,1),symbols)>0) then begin insert(' ',s,i); delete(s,i+1,1); end; { change all end symbols to spaces and count sentenses} for i := 1 to length(endofsentense) do if (pos(copy(endofsentense,i,1),s)>0) then begin {count words in sentense} s0 := copy(s,1,pos(copy(endofsentense,i,1),s)-1)+' '; if countwords(s0) > max then max := countwords(s0); if (countwords(s0) < min)or(min=0) then min := countwords(s0); insert(' ',s,pos(copy(endofsentense,i,1),s)); delete(s,pos(copy(endofsentense,i,1),s),1); inc(sentenses); end; {delete double spaces} s := Trim(s); While pos(' ', s) > 0 do delete(s, pos(' ',s), 1); words := words + countwords(s); for i := 1 to countwords(s) do fulllength := fulllength + length(getWord(s,i)); end; Until trim(s) = ''; WriteLn; WriteLn('Sentenses: ', sentenses); WriteLn('Words: ', words); WriteLn('Min count of words: ', min); WriteLn('Max count of words: ', max); WriteLn('Average length:', fulllength/words); ReadLn; end.

Ответ отправил: Николай Владимирович / Н.В. (статус: Практикант) Ответ отправлен: 19.01.2008, 22:46 Оценка за ответ: 5 Комментарий оценки: Сасибо, а то я уже потеряла надежду.

Отвечает: Зенченко Константин Николаевич Здравствуйте, Nadenka! В приложении программа, которая обрабатывает многоточие как одну точку. Пердложения могут переносится в другие строки и последнее предложение может не заканчиватся точкой. Все сделано без строковых функций. Удачи! Приложение: program q118847; var a,b,c,d,e,f,h,i:integer; s:string; begin a:=0;{все слова} b:=0;{все предложения} c:=0;{длина всех слов} d:=0;{максимум слов в предложении} e:=255;{минимум слов в предложении} f:=0;{текущее значение слов в предложении} h:=0;{длина текущего слова} repeat write('Enter String:'); readln(s); if length(s)>0then for i:=1 to length(s)do {посимвольный анализ строки} case s[i]of {это слова} 'A'..'Z','a'..'z': begin inc(h);{увеличиваем длину текущего слова} inc(c);{увеличиваем общую длину слов} end; {это предложение} '.','?','!': begin {есть ли слова в предложжении} if f>0 then begin inc(f);{увеличиваем число слов в предложении} inc(a); inc(b);{увеличиваем число предложений} {проверяем максимум минимум слов в предложении} if f>d then d:=f; if f<e then e:=f; end; f:=0;{сбрасываем счетчик слов в предложении} h:=0; end; {разделители слов} ':',' ',',','-','(',')','/','','|': begin if h>0 then begin inc(f);{увеличиваем счетчик слов} inc(a); end; h:=0;{сбрасываем текущую длину слова} end; end; if h>0 then begin inc(f); inc(a); h:=0; end; until length(s)=0; if f>0 then begin {увеличиваем число слов} inc(a); inc(b);{увеличиваем число предложений} {проверяем максимум минимум слов в предложении} if f>d then d:=f; if f<e then e:=f; end; writeln('всего слов:',a,' предложений:',b,' средняя длина:',(c/a):7:4,' максимум:',d,' минимум:',e); end. --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал) Украина, Киев Тел.: +380958380164 Адрес: Украина г.Киев ---- Ответ отправлен: 21.01.2008, 19:10 Оценка за ответ: 5 Комментарий оценки: Здорово! Все так подробно,с комментариями. Сразу все понятно. Огромное спасибо!!!

Вопрос № 118.904

Здравствуйте, Эксперты! Помогите с задачкой! Есть текстовый файл, имеющий n строк. Каждая строка представляет собой 8-ми значное число. Необходимо отобрать числа удовлетворяющие нескольким условиям и записать их в новый файл, также, по одному на строку. Итак, насколько я понимаю, необходимо 1) создать n мерный массив типа string и записать в него все числа из первого файла. (вопрос1: как присвоить n-ой ячейке значение n-ой строки?) 2) каждую ячейку этого массива проверить на удовлетворение условиям. При положительном результате записать значение ячейки в новый текстовый файл. (вопрос2: как записать в другой файл отобранные значения?)

Отправлен: 17.01.2008, 01:28 Вопрос задал: VinnyPuh (статус: 1-ый класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Николай Владимирович / Н.В. Здравствуйте, VinnyPuh! Можно сделать проще (без массива). Циклом for считываете n чисел из первого файла и сразу же проверяете их на выполнение условий. Если условие выполняется, записываете число во второй файл. Чтобы открыть второй файл для записи, надо написать следующий код: Assign(file2, 'название файла'); ReWrite(file2); Для записи в файл числа а надо написать: WriteLn(file2, a); В конце обязательно надо закрыть второй файл: Close(file2) Если будут вопросы, пишите в мини-форум. Удачи!

Ответ отправил: Николай Владимирович / Н.В. (статус: Практикант) Ответ отправлен: 17.01.2008, 10:19 Оценка за ответ: 5 Комментарий оценки: Спасибо!

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