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

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

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

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

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

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

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

Выпуск № 744
от 03.12.2008, 09:05

Вопрос № 152042: Эксперты, помогите пожалуйста...ничего в этом не смыслю, а очень надо иначе не получить мне зачёт по инфе!!!!в паскале, с помощью функции "рандом" получить массив размерностью[0..20].Представить элементы так, что бы сначала были расположенн...

Вопрос № 152.042

Эксперты, помогите пожалуйста...ничего в этом не смыслю, а очень надо иначе не получить мне зачёт по инфе!!!!в паскале, с помощью функции "рандом" получить массив размерностью[0..20].Представить элементы так, что бы сначала были расположенны все элементы с чётными, а затем с нечётными номерами в порядке их следования в исходном массиве.Нулевой номер считать чётным!!!!плиииззз, срочно нужно, заранее благодарен!!!!!

Отправлен: 27.11.2008, 16:29 Вопрос задал: Новацкий Евгений (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 21)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Новацкий Евгений! Программа в приложении, нечетные номера в массиве подсвечиваются. Удачи! Приложение: uses crt; var a:array[0..20]of integer; b,i,j:integer; begin {создаем массив и выводим} for i:=0 to 20 do begin textColor(7+7*ord(odd(i))); a[i]:=random(50); write(a[i]:3); Textcolor(7); end; writeln; {сортируем массив в нужном прорядке} i:=1; repeat j:=0; b:=a[i+j]; {в цикле перестановки} while (i+j)<20 do begin a[i+j]:=a[i+j+1]; inc(j); end; a[i+j]:=b; {контрольный вывод} for j:=0 to 20 do write(a[j]:3); writeln; inc(i); until i=11; {выводим массив} readln; end. --------- Итерация от человека, рекурсия — от Бога (Питер Дойч)

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

Вопрос № 152.047

Здравствуйте! Совсем, наверное, легкий вопрос, но меня поставил в тупик! Имеется число, необходимо его записать в переменную типа string. Как это сделать?

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

Отвечает: Foxbox Здравствуйте, X_Joud_x! Есть функции преобразования FloatToStr / FloatToStrF для вещественных чисел IntToStr для целых чисел В Pascal нет таких функций. Правильный ответ: Str (процедура) Преобразовывает число в строку. Объявление: Procedure Str(X [ : Width [ : Decimals ]]; Var S : String); Замечания: Преобразовывает числовое значение X в строковое представление этого числа, которое можно выводить операторами типа Write и OutText. -------- ∙ Отредактировал: Зенченко Константин Николаевич, Профессор ∙ Дата редактирования: 28.11.2008, 14:13 (время московское) Приложение: например: var i: Integer; s: String; begin i := 10; s := IntToStr(i); end;

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

Вопрос № 152.049

Помогите решить!!! Дана строка S1, S2...Sn. Группы символов, разделенные пробелами и не содержащие пробелов внутри себя, будем называть словами. Найти длину самого короткого слова. Считывать по символу...если текущий не пробел и следущий не пробел, то считать длину слова... А как? совсем не могу врубиться...И еще, удалять ничего нельзя

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

Отвечает: Foxbox Здравствуйте, Mariyavo! Ответ см ниже. Как альтернатива циклу - использование функции posex. Приложение: var s: string; // исходная строка i: Integer; CurrentLength, // длина текущего найденного слова MinLength // длина самого короткого слова : Integer; begin .. Заполнить строку s .. MinLength := length(s); // Если не найдем слов, то наша строка и будет самое большое слово CurrentLength := 0; for i := 1 to length(s) do begin if s[i] = #32 then // Нашли конец слова begin if (CurrentLength > 0) and (CurrentLength < MinLength) then // Нашли строку, которая короче всех до сих пор найденных MinLength := CurrentLength; CurrentLength := 0; end else begin inc(CurrentLength); end end if (CurrentLength > 0) and (CurrentLength < MinLength) then // Проверяем остаток строки после выхода из цикла MinLength := CurrentLength; .. end;

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

Вопрос № 152.056

Здравствуйте эксперты, помогите пожалуйста решить задачи, связанные с ЯП Pascal. Заранее благодарен!!! 1) Вычислить сумму цифр четных разрядов и сумму цифр нечетных раз- рядов в заданном целом числе (разряды начинаются нумероваться с нуля) 2) Вычислить K-тое число последовательности целых простых чисел (где K>1) 3) Заполнить массив из N элементов с начальным значением задан- ным A0<>0, по принципу A(N)=A(N DIV 2)+A(N-1) 4) Определить один из седловых элементов матрицы (наибольший в строке и наименьший в столбце)

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

Отвечает: Шевченко Дмитрий Здравствуйте, Thuglifer! В приложении код программы со всеми пояснениями для решения задачи № 2. (1 < K < 65536) С уважением, Дмитрий. Приложение: program z152056_2; Function prostoe(ch:LongWord):boolean;{определяем, простое ли данное число} var prosto:boolean; i:LongWord; begin prosto:=true;{считаем это число простым} i:=3;{т.к. мы проверяем только нечётные числа - на 2 они не делятся, поэтому начинаем проверку с трёх} While prosto and (i <= trunc(sqrt(ch))+1) do{ищем делитель числа отличный от единицы} {"i <= trunc(sqrt(ch))+1" - Если дошли до корня из числа - дальше проверять не имеет смысла} begin IF (ch mod i) = 0 then{если данное число делится на i - оно не является простым} prosto:=false; i:=i+2; end; prostoe:=prosto; end; var k,kol:Word; ch:LongWord; begin Write('Enter K: ');{ввод данных} ReadLn(k); ch := 3;{текущее число} kol := 2;{количество простых чисел до текущего} While kol < k do{пока не нашли k-тое простое число} begin ch := ch+2;{проверяем следующее нечётное число(чётные делятся на 2 => не являются простыми)} IF prostoe(ch) then{если это число простое - } kol := kol+1;{считаем его} end; WriteLn('Eto prostoe chislo: ',ch); ReadLn(); end.

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

Отвечает: Пупорев Юрий Борисович Здравствуйте, Thuglifer! Решение задач 1,3,4 с пояснениями в приложении. Приложение: 1) Вычислить сумму цифр четных разрядов и сумму цифр нечетных раз- рядов в заданном целом числе (разряды начинаются нумероваться с нуля) uses crt; var n:Longint; i,k,s1,s2:byte; begin clrscr; write('n=');readln(n); s1:=0; s2:=0;i:=0; while n>0 do {пока число не равно 0} begin k:=n mod 10;{отделяем по 1 цифре справа} i:=i+1; {считаем разряды} if odd(i) then s1:=s1+k {суммируем нечетные} else s2:=s2+k; {суммируем четные} n:=n div 10; {записываем число без последней цифры и все повторяем} end; writeln('Summa nechetnyh razryadov=',s2); writeln('Summa chetnyh razryadov=',s1); readln end. 3) Заполнить массив из N элементов с начальным значением задан- ным A0<>0, по принципу A(N)=A(N DIV 2)+A(N-1) uses crt; const n=20; var a:array[1..n] of integer; nz,i:integer; begin clrscr; write('Nachalnoe znachenie nz='); readln(a[1]); {заданное значение прсваиваем первому элементу массива} for i:=2 to n do a[i]:=a[i div 2]+a[i-1]; {начиная со второго считаем по формуле} for i:=1 to n do write(a[i],' '); readln end. 4) Определить один из седловых элементов матрицы (наибольший в строке и наименьший в столбце) uses crt; const n=3; m=4; var a:array[1..n,1..m]of integer; i,j,k,max,jmax,min,imin:integer; begin clrscr; randomize; writeln('Vvedite elementy matricy:'); for i:=1 to n do for j:=1 to m do read(a[i,j]); clrscr; writeln('Ishodnaia matrica:'); for i:=1 to n do begin for j:=1 to m do write(a[i,j]:3); writeln; end; readln; for i:=1 to n do begin max:=a[i,1];jmax:=1; {ищем максимальный в строке} for j:=1 to m do if a[i,j]>max then begin max:=a[i,j]; {запоминаем его значение} jmax:=j; {запоминаем номер столбца} end; min:=a[1,jmax];imin:=1; {в этом столбце ищем минимальный} for k:=1 to n do if a[i,jmax]<min then begin min:=a[i,jmax]; {запоминам его значение} imin:=i; {запоминаем номер строки} end; if min=max then {если макс в строке совпал с мин в столбце} begin writeln('Znacenie elementa=',a[imin,jmax]); writeln('#stroki=',imin); {выводим номера на экран} writeln('#stolbca=',jmax); readln; exit; {выходим из программы} end; end; if (j=m)and(min<>max) then {если дошли до конца и не нашли совпадения} writeln('Takogo stolbca net.'); readln end.

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

Вопрос № 152.070

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

Отправлен: 27.11.2008, 19:32 Вопрос задал: Боев Константин Геннадиевич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Пупорев Юрий Борисович Здравствуйте, Боев Константин Геннадиевич! Решение задачи в приложении, так как я его понял. Приложение: uses crt; type Ttel=record {тип запись с полями по условию} fam:string[20]; {фамилия} inc:string[4]; {инициалы} adr:string[20]; {адрес} tel:string[20]; {телефон} end; var sp,sf,sfi:array[1..100]of Ttel; {массивы записей, исходный, по фамилии, по фамилии+инициалы} n,i,k,m,f:integer; z_f,z_i:string[20]; begin clrscr; write('Введите количество абонентрв n='); {создаем исходный массив} readln(n); writeln('Введите данные об абонентах:'); for i:=1 to n do begin writeln('Абонент ',i); write('Фамилия: ');readln(sp[i].fam); write('Инициалы: ');readln(sp[i].inc); write('Адрес: ');readln(sp[i].adr); write('Телефон: ');readln(sp[i].tel); end; clrscr; repeat writeln('Введите фамилию для поиска:'); {создаем массив по заданной фамилии} readln(z_f); k:=0;f:=0; for i:=1 to n do if sp[i].fam=z_f then begin inc(k);f:=1; sf[k].fam:=sp[i].fam; sf[k].inc:=sp[i].inc; sf[k].adr:=sp[i].adr; sf[k].tel:=sp[i].tel; end; if f=0 then begin writeln('Такой фамилии нет. Повторите ввод.'); readln; end; until f=1; writeln; writeln('Массив по фамилии ',z_f); {выводим его на экран} for i:=1 to k do writeln(sf[i].fam,' ',sf[i].inc,' ',sf[i].adr,' ',sf[i].tel); writeln; readln; repeat write('Введите фамилию для поиска:'); {создаем массив по фамилии и инициалам} readln(z_f); write('Введите инициалы для поиска:'); readln(z_i); m:=0;f:=0; for i:=1 to n do if (sp[i].fam=z_f)and(sp[i].inc=z_i) then begin inc(m);f:=1; sfi[m].fam:=sp[i].fam; sfi[m].inc:=sp[i].inc; sfi[m].adr:=sp[i].adr; sfi[m].tel:=sp[i].tel; end; if f=0 then begin writeln('Таких фамилии+инициалы нет. Повторите ввод.'); readln; end; until f=1; writeln; writeln('Массив по фамилии ',z_f,' и инициалам ',z_i); {выводим его} for i:=1 to m do writeln(sfi[i].fam,' ',sfi[i].inc,' ',sfi[i].adr,' ',sfi[i].tel); readln end.

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

© 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