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

Выпуск № 520
от 18.12.2007, 17:05

Вопрос № 113.761

1)Даны натуральное число n, действительные числа a1,..., an. Вычислить: 2)Дано натуральное число n. Получить последовательность b1, ..., bn, где при i = 1, 2, ..., n значение bi равно i*i (i в квадрате). 3)Последовательность x1, x2, ...образована по закону: Получить x1, x2, ..., x20. (сложные формулы, поэтому ссылки) Большое спасибо! Картинки вставлены в текст вопроса ----- ∙ Отредактировал: Устинов С.Е. (Профессионал) ∙ Дата редактирования: 13.12.2007, 13:09

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

Отвечает: SHERRY Здравствуйте, Аксенов Антон! Не охота было тягаться с факториалами :) а остальное - в приолжении Удачи! Приложение: 2. const n=5; // zadaem kol-vo elementov var b: array[1..n] of integer; // chisla hranim v massive i: integer; /// index massiva begin for i:=1 to n do b[i]:=sqr(i); /// sobstvenno zapolnenie massuva end. 3. const n=10; var x: array [1..n] of integer; i: integer; begin x[1]:=1; x[2]:=x[1]; x[3]:=x[1]; // pervie 3 elemente ravni megdu soboj i ravni 1 (po usloviju) for i:=4 to n do x[i]:=(i+3)*(x[i-2] -1) + (i+4)*x[i-3]; // zapolnenie massiva po formule end. --------- Наши программисты самые программистые программисты!..

Ответ отправил: SHERRY (статус: 5-ый класс) Ответ отправлен: 13.12.2007, 11:30

Вопрос № 113.770

Здравствуйте, уважаемые эксперты! Помогите, пожалуйста, с решением вот этих задачек(и, если можно, объясните вкратце): (заранее спасибо!) 1. Дан линейный массив из 15 целых чисел. Пересортировать массив по закону: первый меняется с последним, второй с предпоследним и т.д. 2. Дана непустая последовательность слов из строчных русских букв; между соседними словами - запятая, за последним словом - точка. Напечатать в алфавитном порядке: все звонкие согласные буквы, которые входят хотя бы в одно слово.

Отправлен: 13.12.2007, 11:39 Вопрос задал: Набатчиков Денис Анатольевич (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: SHERRY Здравствуйте, Набатчиков Денис Анатольевич! Листинг вашей первой задачи в приложении. Разбирайтесь.. Приложение: const n=15; // zadaem kol=vo elementov var a: array [1..n] of integer; // hranim 4isla v massive b,i,c: integer; // vspomogat.peremennie begin c:=0; for i:=1 to n do a[i]:=random(66); // zapolnyaem massiv slu4ajnymi 4islami (0; 66) for i:=1 to (n div 2) do // sortiruem po zadannomu zakonu begin b:=a[i]; // zapominaem tekushee zna4enie a[i]:=a[n-c]; // prisvaivaem tekushemu elementu zna4enie s kontsa a[n-c]:=b; // inc(c); end; end. --------- Наши программисты самые программистые программисты!..

Ответ отправил: SHERRY (статус: 5-ый класс) Ответ отправлен: 13.12.2007, 12:08 Оценка за ответ: 5 Комментарий оценки: Большое Вам спасибо! Очень рад, что наконец смогу сдать хвост по программированию!

Отвечает: Зенченко Константин Николаевич Здравствуйте, Набатчиков Денис Анатольевич! Вторая программа в приложении. Удачи! Приложение: program q113770; var a,b:packed array[0..255]of integer; c:string; d,e:integer; h:set of char; begin {ставим множествo:звонкие согласные} h:=['б','в','г','д','ж','з','й','л','м','н','р']; write('Enter string:');readln(c); {принудительно ставим точку} c:=c+'.'; {сброс счетчиков} for d:=0 to 255 do a[d]:=0; b:=a; {перебираем всю строку} for d:=1 to length(c)do {если не точка или запятая то это буква} if(c[d]='.')or(c[d]=',')then begin {проверяем все встреченные символы в слове} for e:=0 to 255 do {если символ встретился} if b[e]>0 then begin {увеличиваем счетчик слов} inc(a[e]); {сбрасываем счетчик символов} b[e]:=0; end; {если точка выход} if c[d]='.' then break; end else {увеличиваем счетчик букв в слове} inc(b[ord(c[d])]); {вывод результата} writeln('result:'); for d:=0 to 255 do if (chr(d)in h)and(a[d]>0)then writeln(chr(d),' - ',a[d]:3); end. --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал) Украина, Киев Тел.: +380958380164 Адрес: Украина г.Киев ---- Ответ отправлен: 13.12.2007, 12:38

Вопрос № 113.777

Здраствуйте, глубоко уважаемые эксперты!!!! Поможите чем сможите!!! 1)Дана последовательность слов, заканчивающаяся точкой. Группы символов, разделенные пробелами и не содержащие пробелы внутри себя, бу-дем называть словами.Подсчитать количество слов в данной последовательности. 2).Дана непустая последовательность слов из строчных русских букв; между со-седними словами - запятая, за последним словом - точка. Напечатать в алфа-витном порядке:все глухие согласные буквы, которые не входят хотя бы в одно слово

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, Kristi-ag! Смотрите приложение. 2-я задача за ней 1-я. ps:вопросы по задачам задавайте в мини-форум, он Вам доступен как автору вопроса Удачи! Приложение: program q113777; var a,b:packed array[0..255]of integer; c:string; d,e:integer; h:set of char; begin {I} {ставим множествo:глухие согласные} h:=['к','п','с','т','ф','х','ц','ч','ш','щ']; {гласные буквы - а, е, и, о, у, ы, э, ю, я; звонкие согласные буквы - б, в, г, д, ж, з, л, м, н, р; глухие согласные буквы - к, п, с, т, ф, х, ц, ч, ш, щ.} write('Enter string I:');readln(c); {принудительно ставим точку} c:=c+'.'; {сброс счетчиков} for d:=0 to 255 do a[d]:=0; b:=a; {перебираем всю строку} for d:=1 to length(c)do {если не точка или запятая то это буква} if(c[d]='.')or(c[d]=',')then begin {проверяем все встреченные символы в слове} for e:=0 to 255 do {если символ встретился} if b[e]>0 then begin {увеличиваем счетчик слов} inc(a[e]); {сбрасываем счетчик символов} b[e]:=0; end; {если точка выход} if c[d]='.' then break; end else {увеличиваем счетчик букв в слове} inc(b[ord(c[d])]); {вывод результата} writeln('result:'); for d:=0 to 255 do if (chr(d)in h)and(a[d]=0)then writeln(chr(d)); {II} {вводим строку} write('Enter string II:');readln(c); e:=0; d:=1; while (d<=length(c))do begin {ищем начало слова} while(c[d]=' ')and(d<=length(c))do begin inc(d); end; {если не достиги конца строки увеличиваем счетчик слов} if(d<=length(c))then inc(e); {ищем конец слова} while(c[d]<>' ')and(d<=length(c))do begin inc(d); end; end; {выводим результат} writeln('Word :',e); end. --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал) Украина, Киев Тел.: +380958380164 Адрес: Украина г.Киев ---- Ответ отправлен: 13.12.2007, 15:38 Оценка за ответ: 5 Комментарий оценки: Уважаемый Зенченко Константин Николаевич, хочу сказать Вам Большое спасибо, за то что Вы мне не отказали, если бы Вы мне не помогли я бы не смогла решить эти программки!!! Особое спасибо за объяснения, они помогут мне объяснить все моему преподу, я рассчитываю на дальнейшую Вашу поддержку(т.к. Ваша работа мне очень понравилась)!!! :):):)

Вопрос № 113.788

Привет всем! Помогите решить задачку! Help! В матрице (без разницы в какой) найти МАКСИМАЛЬНЫЙ ЭЛЕМЕНТ в каждой строке и в каждем столбце. Зарание спасиб.

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, Лесников! Смотрите приложение. Удачи! Приложение: program q113788; const n=10; var a:array[1..n,1..n]of integer; i,j,x:integer; begin randomize; {создаем случайную матрицу} for i:=1 to n do for j:=1 to n do a[i,j]:=random(1000); {выводим и сразу ищем максимум в строке} for i:=1 to n do begin x:=a[i,1]; for j:=1 to n do begin write(a[i,j]:6); if a[i,j]>x then x:=a[i,j]; end; writeln(' maxLine:',x); end; {ищем и выводим максимум в колонке} writeln('maxColum'); for i:=1 to n do begin x:=a[1,i]; for j:=1 to n do if a[j,i]>x then x:=a[j,i]; write(x:6); end; end. --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал) Украина, Киев Тел.: +380958380164 Адрес: Украина г.Киев ---- Ответ отправлен: 13.12.2007, 16:00 Оценка за ответ: 2 Комментарий оценки: Прога работает тока с косяком. Она выводит максим.элемент каждой строки,а макс.элемент столбца она выводит на экран общий :-(

Вопрос № 113.798

Помогите плиз... завал... 1. Заданы два вектора Х=(Х1, Х2,...Хm) и Y=(Y1,Y2,...Yn). Сравнить их длины и напечатать большую из них. Длину вектора вычислять в подпрограмме

Отправлен: 13.12.2007, 14:05 Вопрос задал: Volkov Mihail (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: SHERRY !!! Здравствуйте, Volkov Mihail! если я не ошибаюсь, длина вектора - это есть его модуль: __ длина AB = |AB| Листинг в приложении. Длина вектора находится неверно!!! a{a1, a2, a3, ... ,an} |a| = √(a1² + a2² + ... + an²). Перед ответом рекомендую изучать соответствующую литературу. ----- ∙ Отредактировал: Gh0stik (Академик) ∙ Дата редактирования: 13.12.2007, 23:23 Приложение: const n=10; {kol-vo koordinat vektora} type Q = array [1..n] of integer; {koordinaty vektora hranim v massive} var x,y: Q; i: integer; {index massiva} ans, ans2: real; {vspomog. peremennie} function GetRez(var a: Q): real; {podprogramma dlya vy4isleniya dliny} var rez: integer; begin rez := 0; for i:=1 to n do rez:=rez+a[i]; GetRez := sqrt(rez); end; begin randomize; { !!!! } for i:=1 to n do {slu4ajnim obrazom zapolnili} begin x[i]:= random(20); write(x[i]:5); end; writeln; for i:=1 to n do begin y[i]:=random(20); write(y[i]:5); end; writeln; ans := GetRez(x); ans2 := GetRez(y); {vivodim rezul`tat} if ans > ans2 then writeln('x>y') else if ans < ans2 then writeln('x<y') else writeln('x=y'); readln; end. --------- Наши программисты самые программистые программисты!..

Ответ отправил: SHERRY (статус: 5-ый класс) Ответ отправлен: 13.12.2007, 14:35

Отвечает: Boriss Здравствуйте, Volkov Mihail! Вот в приложении программа с функцией определения длины произвольного вектора С ее помощью Ваша задача легко решается Если будут проблемы - пишите в минифоруме Приложение: function VectorLen(vec: Array of Real): Real; var len: Real; i: Integer; begin len:=0; for i:=0 to High(vec) do len := len + vec[i]*vec[i]; VectorLen := SQRT(len) end; const a: Array[1..10] of Real = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10); BEGIN WriteLn(VectorLen(a)); END. --------- Вывод - то место в тексте, где вы устали думать

Ответ отправил: Boriss (статус: Профессор) Россия, Саранск Организация: Мордовский госуниверситет, Саранск Факультет Электронной Техники WWW: Программирование на Паскале ---- Ответ отправлен: 13.12.2007, 14:35

Вопрос № 113.800

Как узнать время выполнения некоторого куска кода программы на Pascal ?

Отправлен: 13.12.2007, 14:12 Вопрос задал: Юрий Анатольевич (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Юрий Анатольевич! Нужно использовать функцию GetTime перед кодом и после него разница времени будет то, что Вам нужно. Удачи! Приложение: GetTime (процедура) (модуль WinDos) Возвращает текущее время, установленное в операционной системе. Объявление: Procedure GetTime(Var Hour, Minute, Second, Sec100 : Word); Режим: Windows, Real, Protected Замечания: Диапазоны возвращаемых значений: Hour 0 .. 23 (часы) Minute 0 .. 59 (минуты) Second 0 .. 59 (секунды) Sec100 0 .. 99 (сотые доли секунды) --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал) Украина, Киев Тел.: +380958380164 Адрес: Украина г.Киев ---- Ответ отправлен: 13.12.2007, 14:43 Оценка за ответ: 5

Отвечает: Gh0stik Здравствуйте, Юрий Анатольевич! Вот давно писал программу которая подсчитывает время выполнения кода и выдает результат в таком виде: Начальное время 22 час(ов) 01 мин 04 сек 24 сотые Конечное время 22 час(ов) 01 мин 08 сек 36 сотые Время исполнения 00 час(ов) 00 мин 04 сек 12 сотые Сама программа: program vremay; uses dos,crt; type vrem=record h,m,s,ms:word; end; var o1,o2,raz,n: integer;     st:string;     tn,tk:vrem;     i:longint; procedure vid(w:vrem; var ss:string); var s:array [1..4] of string;     i:integer; begin   str(w.h:0, s[1]); if length(s[1])=1 then s[1]:='0'+s[1];   str(w.m:0, s[2]); if length(s[2])=1 then s[2]:='0'+s[2];   str(w.s:0, s[3]); if length(s[3])=1 then s[3]:='0'+s[3];   str(w.ms:0, s[4]); if length(s[4])=1 then s[4]:='0'+s[4];   ss:=s[1]+' час(ов) '+s[2]+' мин '+s[3]+' сек '+s[4]+' сотые'; end; begin with tn do begin      GetTime(h,m,s,ms);      o1:=h*360000+m*6000+s*100+ms; end; vid(tn,st); writeLn('Начальное  время '+st); {-----------------------------} {-------ТЕЛО ПРОГРАММЫ--------} {-----------------------------} with tk do begin      GetTime(h,m,s,ms);      o2:=h*360000+m*6000+s*100+ms; end; vid(tk,st); writeln('Конечное   время ',st); raz:=o2-o1; with tn do begin      h:=raz div 360000;      m:=(raz-h*360000) div 6000;      s:=(raz-h*360000-m*6000) div 100;      ms:=raz-h*360000-m*6000-s*100; end; vid(tn,st); writeln('Время исполнения '+st); readln; end. Good Luck!!! --------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.

Ответ отправил: Gh0stik (статус: Академик) Украина, Славянск Организация: Славянский государственный педагогический университет (Кафедра алгебры) WWW: http://gh0stik.rusfaq.ru/ ICQ: 289363162 ---- Ответ отправлен: 13.12.2007, 23:06

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