Хостинг Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг на Windows 2008

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

Чемпионы рейтинга экспертов в этой рассылке

Пупорев Юрий Борисович Статус: Специалист Рейтинг: 174 ∙ повысить рейтинг >>

Шичко Игорь Статус: Практикант Рейтинг: 144 ∙ повысить рейтинг >>

Зенченко Константин Николаевич Статус: Профессор Рейтинг: 115 ∙ повысить рейтинг >>

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

Выпуск № 758
от 18.12.2008, 06:05

Вопрос № 154076: Даны натуральное число n, символы s₁, ... , s_n. Преобразовать последовательность s₁, ... , s_n, удалив каждый символ * и повторив каждый символ, отличный от * ....

Вопрос № 154.076

Даны натуральное число n, символы s1, ... , sn. Преобразовать последовательность s1, ... , sn, удалив каждый символ * и повторив каждый символ, отличный от * .

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, Иванов Виктор! Программа в приложении. Последовательность S представлена как строка(максимум 255 символов), а результат работы записывается в массиве из 510 символов (есть вероятность, что символов "*" в последовательности S не будет). Удачи! Приложение: var s:string; a:array[1..500]of char; b,c:integer; begin {вводим строку как последовательногсть сисволов} write('Enter S:'); readln(s); {длина новой последовательности} c:=0; {формируем новую последовательность} for b:=1 to length(s)do if s[b]<>'*' then begin inc(c); a[c]:=s[b]; inc(c); a[c]:=s[b]; end; {выводим результат} write('Result:'); for b:=1 to c do write(a[b]); readln; end. --------- Итерация от человека, рекурсия — от Бога (Питер Дойч)

Ответ отправил: Зенченко Константин Николаевич (статус: Профессор) Украина, Киев Тел.: +380979536619 Адрес: Украина г.Киев ---- Ответ отправлен: 12.12.2008, 17:35 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 238435 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Огромное спасибо!!!

Вопрос № 154.077

Даны целые числа a1, ... , a10, b1, ... , b20. Получить действительную матрицу [cij]i=1, ... , 20; j=1, ... , 10, для которой cij=aj/(1+модуль bi)

Отправлен: 12.12.2008, 12:54 Вопрос задал: Иванов Виктор Олегович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Иванов Виктор! Программа в приложении. Удачи! Приложение: var a,b:array[1..10]of integer; c:array[1..10,1..10]of real; i,j:integer; begin {} randomize; {формируем массив А} for i:=1 to 10 do a[i]:=random(20)-10; {формируем массив В} for i:=1 to 10 do b[i]:=random(20)-10; {выравниваем вывод и выводим последовательность А} write(' ':3); for i:=1 to 10 do write(a[i]:6); writeln; for i:=1 to 10 do begin write(b[i]:3);{выводим последовательность В} for j:=1 to 10 do begin{формируем последовательность С и выводим её на экран} c[i,j]:=a[j]/(1+abs(b[i])); write(c[i,j]:6:2); end; writeln; end; readln; end. --------- Итерация от человека, рекурсия — от Бога (Питер Дойч)

Ответ отправил: Зенченко Константин Николаевич (статус: Профессор) Украина, Киев Тел.: +380979536619 Адрес: Украина г.Киев ---- Ответ отправлен: 12.12.2008, 16:45 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 238428 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Огромное спасибо!!!

Вопрос № 154.078

Дано натуральное число n. Получить последовательность b1, ... , bn, где при i=1, 2, ... , n значение bi равно 2i + 3i+1

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, Иванов Виктор! Программа в приложении. Последовательность формируется на экране. Удачи! Приложение: var a:integer; begin {вводим N} repeat write('Enter N:'); readln(a); until a>0; {выводим результат} while a>0 do begin writeln('b[',a,']:=',round(exp(ln(2)*a)+exp(ln(3)*(a+1)))); dec(a); end; readln; end. --------- Итерация от человека, рекурсия — от Бога (Питер Дойч)

Ответ отправил: Зенченко Константин Николаевич (статус: Профессор) Украина, Киев Тел.: +380979536619 Адрес: Украина г.Киев ---- Ответ отправлен: 12.12.2008, 16:22 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 238424 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Огромное спасибо!!!

Вопрос № 154.083

Здравствуйте уважаемые Эксперты,помогите пожалуйста с решением простой задачки: Составить программу,проверяющую,верно ли утверждение,что сумма цифр введённого вами целого числа является чётной. Заранее спасибо

Отправлен: 12.12.2008, 13:43 Вопрос задал: Mosskva Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Mosskva! Смотрите приложение. Удачи! Приложение: var a,b:integer; begin {вводим число} write('Enter A:'); readln(a); {суммируем цифры} b:=0; while a>0 do begin b:=b+(a mod 10); a:=a div 10; end; {выводим результат} write('Result:',not(odd(b))); readln; end. --------- Итерация от человека, рекурсия — от Бога (Питер Дойч)

Ответ отправил: Зенченко Константин Николаевич (статус: Профессор) Украина, Киев Тел.: +380979536619 Адрес: Украина г.Киев ---- Ответ отправлен: 12.12.2008, 15:51 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 238416 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 154.107

Здравствуйте!Уважаемые эксперты помогите! нужно составить программу на Turbo Pascal. Вот условие:Составить схему алгоритма и программу определения суммы всех нечетных чисел массива T={tj}, j=1,s, s - число элементов в массиве T (s<=40). Вывести на экран найденное значение суммы, а также все нечетные числа и их адреса.Заранее спасибо!

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

Отвечает: Пупорев Юрий Борисович Здравствуйте, Skin14! Решение с пояснениями в приложении. Приложение: uses crt; const s=40; {максимальный размер массива} var t:array [1..s] of integer;{тип массива} n,j,sm:integer; begin clrscr; randomize; repeat write('Vvedite razmer massiva n=');{вводим размер массива с проверкой на диапазон} readln(n); until (n>0)and(n<=s); writeln('Massiv T:'); sm:=0; for j:=1 to n do begin t[j]:=random(20); if odd(t[j]) then sm:=sm+t[j];[если нечетные, суммируем} write(t[j],' '); end; writeln; writeln('Nechetnye chisla i ih nomera:'); for j:=1 to n do if odd(t[j]) then {если нечетные, выводим номер и значение} writeln('Chislo # ',j,' =',t[j]); writeln; writeln('Summa nechetnyh = ',sm); {выводим сумму} readln end.

Ответ отправил: Пупорев Юрий Борисович (статус: Специалист) Ответ отправлен: 13.12.2008, 16:37 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 238519 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 154.124

Здравствуйте уважаемые эксперты!!! Помогите пожалуйста с задачей: Вычислить K-тое число последовательности целых простых чисел (где K>1). Только решите без процедур и функций и особых наворотов))) С уважанием, Женя.

Отправлен: 12.12.2008, 21:41 Вопрос задал: Thuglifer Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 4)

Отвечает: Пупорев Юрий Борисович Здравствуйте, Thuglifer! Вот вроде без особых наворотов. Решение в приложении. Приложение: uses crt; var k,i,j,l,n,t:integer; begin clrscr; write('k=');readln(k); if k=1 then n:=2; {первое простое} if k=2 then n:=3; {второе простое} if k>2 then begin n:=4;j:=3; {начнем с четырех, очередное простое будет иметь номер j=3} while j<=k do {пока не дойдем до к будем проверять все числа подряд} begin n:=n+1;{следующее число} t:=0; for l:=2 to round(sqrt(n))do{проверяем делители до корня из числа, дальше нет смысла} if n mod l=0 then t:=t+1; {считаем делители} if t=0 then j:=j+1; {если их нет, считаем простое число} end; end; write('Kn=',n); {когда j дойдет до k получим нужное простое число.} readln end.

Ответ отправил: Пупорев Юрий Борисович (статус: Специалист) Ответ отправлен: 14.12.2008, 14:29 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 238593 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 154.127

Составить программу на языке Паскаль, которая выводит в текстовой файл data1.txt в два столбца значения переменной x и функции f(x)=√x-2cos^2(0.5Пx). (√ - это квадратный корень, шаг изменения аргумента следует принять постоянным). Спасибо!

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

Отвечает: Абельхарисов Руслан/Marked One Здравствуйте, Kater! Код с комментариями в приложении. Функция sqrt() вычисляет квадратный корень. Функция sqr() возвращает квадрат числа. Удачи!!! Приложение: const {шаг изменеия атрибута} step = 0.5; {вычисляем функцию до 10} last = 10; {функция} function func(x: real): real; begin func := sqrt(x) - 2 * sqr(cos(0.5 * Pi * x)); end; var {файловая переменная} f: text; {переменная счетчик} i: real; begin {назначаем переменной файл} Assign(f, 'data1.txt'); {открываем для перезаписи} Rewrite(f); {начинаем вычислять с 0} i := 0; {повторяем пока не вычислим послелнее значение атрибута} repeat {выводим x} Write(f, i:6:2); {теперь y и переход на новую строку} WriteLn(f, func(i):6:2); i := i + 0.5; until i > last; {закрываем файл} flush(f); close(f); end.

Ответ отправил: Абельхарисов Руслан/Marked One (статус: Практикант) Ответ отправлен: 13.12.2008, 11:02 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 238492 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 154.165

Здравствуйте! Подскажите, как можно написать программу, точнее даже не программу, а описать record`s по вот такому заданию: "Описать массив записей, содержащий сведения о должностях, их количествах, разрядах и окладах для конкретной фирмы." Т.е. дело не в написании программы, а просто подскажите как по вашему правильно (задание не совсем мне например понятно) описать массив записей, содержащий сведения о должностях, их количествах, разрядах и окладах для конкретной фирмы. В дальнейшем в программе будут забиваться все эти данные, отобранные выводиться, но это уже не важно, вопрос в другом.

Отправлен: 13.12.2008, 03:56 Вопрос задал: Upgrader (статус: Студент) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Layer Здравствуйте, Upgrader! Не уверен что в вашем случае применимы вариантные записи... См. мой вариант в приложении Приложение: type TPosts = record //Запись, содержащая необходимую информацию post: string; //должность postcount: integer; //их количество category: intefer; //разряд tariff: extended; //оклад end; var Firm: array[1..10] of TPosts; //массив записей, содержащих необходимую информацию

Ответ отправил: Layer (статус: 3-й класс) Ответ отправлен: 13.12.2008, 11:05 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 238493 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Cпасибо! :)

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