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

Выпуск № 493
от 19.11.2007, 22:05

Вопрос № 109.300

Уважаемые эксперты! Помогите, пожалуйста, решить задачи: 1. Вывести на экран латинский алфавит в таком виде: abcd...z zbcd...z zzcd...z zzzd..z ........... zzzz...z 2. Вывести на экран латинский алфавит в таком виде: abcd..z bcd...za cde...zab Заранее большое спасибо!

Отправлен: 13.11.2007, 22:52 Вопрос задала: Ласточка (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Gh0stik Здравствуйте, Ласточка! Вот листинги, комментарии я думаю излишни... Задача1. var xx,yy:char; s:string; begin s:=''; for xx:='a' to 'z' do begin write(s); for yy:=xx to 'z' do write(yy); s:=s+'z'; writeln; end; end. Задача2. var xx,yy,zz:char; begin for xx:='a' to 'z' do write(xx); writeln; for xx:='b' to 'z' do begin // write(s); for yy:=xx to 'z' do write(yy); for zz:='a' to chr(ord(xx)-1) do write(zz); writeln; end; end. Good Luck!!! Переменная S в коде второй задачи явно лишняя... :) ----- ∙ Отредактировал: sir henry (Академик) ∙ Дата редактирования: 14.11.2007, 15:45 --------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.

Ответ отправил: Gh0stik (статус: Профессор) Украина, Славянск Организация: Славянский государственный педагогический университет (Кафедра алгебры) ICQ: 289363162 ---- Ответ отправлен: 13.11.2007, 23:21 Оценка за ответ: 5 Комментарий оценки: Большое спасибо за помощь, Gh0stik!

Отвечает: Стома С.С. Здравствуйте, Ласточка! в первом задании просто удаляем в цикле первый символ и добавляем в начало z во втором примере во временную переменную в цикле копируем первый символ в основной строке удаляем первый символ и добавляем в конец содержимое временной строки Приложение: var str, temp: String; i: Integer; begin str:= 'abcdefghijklmnopqrstuvwxyz'; for i:= 1 to 25 do begin Delete(str, i, 1); str:= 'z' + str; end; str:= 'abcdefghijklmnopqrstuvwxyz'; for i:= 1 to 25 do begin temp:= Copy(str, 1, 1); Delete(str, 1, 1); str:= str + temp; end;

Ответ отправил: Стома С.С. (статус: 2-ой класс) Ответ отправлен: 14.11.2007, 00:41 Оценка за ответ: 5 Комментарий оценки: Большое спасибо за решения, Стома С.С.!

Отвечает: Зиновьев Дмитрий Владимирович !!! Здравствуйте, Ласточка! 1. for i := ord('a') to ord('z') do begin for j := ord('a') to ord('z') do begin if j < i then Write('z') ELSE Write(chr(j)) end; Writeln; end; 2. sm := 0; for i := ord('a') to ord('z') do begin for j := ord('a') to ord('z') do begin Write(chr((j + sm) div ord('a'))); end; Writeln; sm := sm + 1; end; Решение №2 не годится. Проверьте его у себя. ----- ∙ Отредактировал: sir henry (Академик) ∙ Дата редактирования: 14.11.2007, 15:38

Ответ отправил: Зиновьев Дмитрий Владимирович (статус: 6-ой класс) Ответ отправлен: 14.11.2007, 12:50 Оценка за ответ: 5 Комментарий оценки: Большое спасибо за решения!

Вопрос № 109.305

Здраствуйте Уважаемые эксперты, помогите пожалуйста написать програму: Создать односторонний список(используя указатели). Написать процедуру которая выбросит из списка найменьшый елемент и выведит на экран список без этого елемента, потом снова, с полученного елемента выбросит найменьший и выведит на экран, и так до тех пор пока в списку неостанется 1 елемент. Я сам начал писать, дошёл до того как найти найменьший елемент, как дальше незнаю :( в приложении то что я написал уже, возможно там не всё хорошо, мне самому ненравится моя процедура. Пожалуйста помогите дописать програму. Заранее Спасибо. С Уважением, Станислав. Приложение: Program asd; Type s=record g:integer; end; r=^s; // ukazatel na spisok tipa s Var n,i,h:integer; uk:array[1..MAXINT] of r; procedure min(); var i,w:integer; begin writeln('Vvedite skolko est cisel: '); readln(n); for i:= 1 to n do begin new(uk[i]); //sozdaem novyj spisok Writeln('Vvedite ', i, ' chislo: '); readln(uk[i]^.g); //citaem sleduscij element spiska end; w:=1; for i := 2 to n do //nacinaem ot 2 ctoby nesravnivat uk[1] i uk[1] begin if uk[i]^.g < uk[w]^.g then //smotrim ili bolshe begin w:=i; end; end; Writeln('Naimenshij: '); write(uk[w]^.g); //zapisujem rezultat end; begin min(); //vyzyvaem proceduru readln; end.

Отправлен: 13.11.2007, 23:58 Вопрос задал: Станислав (статус: 1-ый класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 23)

Отвечает: sir henry Здравствуйте, Станислав! В Паскале, в модуле Objects, есть очень хороший компонет, который идеально подходит для решения Вашей задачи - TSortedCollection. Это динамический массив указателей, который можно сортировать по указанному Вами алгоритму сортировки, тем самым автоматически решив проблему нахождения наименьшего элемента. Этот элемент всегда будет первым (или последним :) ). Код смотрите в приложении. Пример выполнен в FreePascal, если у Вас другой Паскаль и возникнут какие-то ошибки в связи с этим - напишите в мини-форум вопроса. Приложение: Program Myprog; Uses Objects; Type TList = object(TSortedCollection) Function Compare(Key1, Key2: Pointer): Integer; virtual; End; Var List: TList; //Это будет список p: ^integer; //Указатель на какое-то значение в элементе списка i: integer; //Определяем алгоритм сравнения элементов списка //Сделаем так, чтобы список сортировался по убыванию, //т.е. наименьший элемент - последний Function TList.Compare(Key1, Key2: Pointer): Integer; Var k1, k2: ^Integer; Begin k1:=Key1; k2:=Key2; If K1^>K2^ Then Compare:=-1 //Если возвращаемое значение функции меньше 0, то Key1 будет перед Key2 Else Compare:=1; //И наоборот... :) End; Begin Randomize; //Создаём список, в котором будет изначально 20 элементов и если такого кол-ва не хватит, то список будет прибавлятся по 10 элементов за раз List.Init(20, 10); //Заполняем список значениями For i:=1 To 20 Do Begin New(p); p^:=Random(20); List.Insert(p); End; //Теперь смотрим, что там у нас в списке For i:=0 To List.Count-1 Do //Count - количество реальных элементов в списке. Отсчёт начинается с нуля. Begin p:=List.At(i); WriteLn(i:4, '. ', p^); End; WriteLn('Нажмите клавишу ENTER для продолжения...'); ReadLn; //Теперь удаляем все элементы списка, кроме первого, наибольшего For i:=List.Count-1 DownTo 1 Do Begin p:=List.At(i); Dispose(p); //Освобождаем память, выделенную значению элемента List.AtDelete(i); //Теперь удаляем сам элемент End; //Смотрим, что у нас осталось в списке WriteLn; WriteLn; For i:=0 To List.Count-1 Do Begin p:=List.At(i); WriteLn(i:4, '. ', p^); End; End.

Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 14.11.2007, 11:19

Отвечает: Зиновьев Дмитрий Владимирович !!! Здравствуйте, Станислав! А если сделать массив динамическим? Тогда выбросить из массива А элемент под номером i можно так: for j := i to Length(A) - 2 do A[j] := A[j+1]; SetLength(A, Length(A)-1); //См. комментарий Надеюсь, данная идея поможет Если используется Turbo Pascal, то там, в отличие от FreePascal, нет динамических массивов в том виде, в котором они есть в Delphi или FreePascal. ----- ∙ Отредактировал: sir henry (Академик) ∙ Дата редактирования: 14.11.2007, 15:04

Ответ отправил: Зиновьев Дмитрий Владимирович (статус: 6-ой класс) Ответ отправлен: 14.11.2007, 12:45

Вопрос № 109.390

Снова я:-). Дано произвольное значение b и два произвольных массива G,V размера n,m соответственно. Найти сумму элементов массива G, меньших заданного b, а также сумму элементов массива V, меньших заданного b. Исходные данные взять самостоятельно.

Отправлен: 14.11.2007, 14:42 Вопрос задал: Артем Глушков (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 9)

Отвечает: Boriss Здравствуйте, Артем Глушков! Это нужно делать так, как в программе, приведенной в приложении Надеюсь, все понятно? Если нет, то спрашивайте в минофоруме Приложение: const n = 10; m = 20; function SumBelowB(ar: array of integer; bb: Integer): Real; var s: real; k: Integer; begin s:=0; for k:=0 to High(ar) do if ar[k] < bb then s:=s + ar[k]; SumBelowB:=s end; var g: array[1..n] of integer; v: array[1..m] of integer; i: Integer; b: Integer; BEGIN for i:=1 to n do g[i]:=Random(100); for i:=1 to m do v[i]:=Random(200); b:= random(300); WriteLn('Сумма элементов меньших ',b, ' в массиве G равна ',SumBelowB(g,b):10:0); WriteLn('Сумма элементов меньших ',b, ' в массиве V равна ',SumBelowB(v,b):10:0); END. --------- Вывод - то место в тексте, где вы устали думать

Ответ отправил: Boriss (статус: Профессор) Россия, Саранск Организация: mte WWW: Программирование на Паскале ---- Ответ отправлен: 14.11.2007, 15:57 Оценка за ответ: 5 Комментарий оценки: Спасибо

Отвечает: Артём1983 Здравствуйте, Артем Глушков! Размерность массивов определяется константами. R1 b R2. Для каждого массива я завёл свой тип. Код программы смотрите в приложении. Приложение: {109390} uses crt; const R1=6; R2=7; type vector1=array[1..R1]of integer; vector2=array[1..R2]of integer; matrix1=array[1..R1]of vector1; matrix2=array[1..R2]of vector2; var G:matrix1; V:matrix2; i,j,b,S1,S2:integer; procedure create_array(var X:matrix1;RANG:integer); var i,j:integer; begin end; begin clrscr; randomize; write('введите натуральное число b='); readln(b); for i:=1to R1 do begin for j:=1to R1 do begin G[i,j]:=1+random(10); if j=R1 then begin write(G[i,j]:3); writeln; end else begin write(G[i,j]:3); end; if G[i,j]<b then S1:=S1+G[i,j]; end; end; writeln; for i:=1to R2 do begin for j:=1to R2 do begin V[i,j]:=1+random(10); if j=R2 then begin write(V[i,j]:3); writeln; end else begin write(V[i,j]:3); end; if V[i,j]<b then S2:=S2+V[i,j]; end; end; writeln('в массиве G сумма чисел меньше ',b,' равна ',S1); writeln('в массиве V сумма чисел меньше ',b,' равна ',S2); writeln; readln; end. --------- Программирование - дело Путное!

Ответ отправил: Артём1983 (статус: 6-ой класс) Ответ отправлен: 14.11.2007, 23:20 Оценка за ответ: 5 Комментарий оценки: И вам спасибо!

Вопрос № 109.406

Здравствуйте, не могу задачу решить: Найти сумму элементов, принадлежащих промежутку от А до В (А и В вводить с клавиатуры). Знаю что надо искать с помощью цикла с предусловием, не заню как реализовать. Помогите пожалуйста

Отправлен: 14.11.2007, 17:04 Вопрос задал: Исаак Моисеевич (статус: 2-ой класс) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Исаак Моисеевич! Приблизительно так: var a,b,s:integer; begin write('a:');readln(a); write('b:');readln(b); s:=0; while a<=b do begin s:=s+a; inc(a); end; write('s:',s); end. Удачи! --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Специалист) Ответ отправлен: 14.11.2007, 17:36 Оценка за ответ: 5 Комментарий оценки: Спасибо, только программа чуть чуть неправильно считает, когда ввожу а=5 и b=8, выводится результат 26, ну это небольшая проблема

Отвечает: Артём1983 Здравствуйте, Исаак Моисеевич! Смотрите код программы в приложении. Приложение: {109406} uses crt; var a,b,S:integer; begin clrscr; S:=0; write('введите натуральное число A='); readln(a); write('введите натуральное число B='); readln(b); if a<b then begin while a<b-1 do begin a:=a+1; S:=S+a; end; end else begin while b<a-1 do begin b:=b+1; S:=S+b; end; end; write('сумма элементов S=',S); readln; end. --------- Программирование - дело Путное!

Ответ отправил: Артём1983 (статус: 6-ой класс) Ответ отправлен: 14.11.2007, 23:12 Оценка за ответ: 5

Отвечает: Зиновьев Дмитрий Владимирович Здравствуйте, Исаак Моисеевич! sum := 0; for i := a to b do sum := sum + i; Если под элементами понимаются целые числа.. Если элементы массива, то for i := a to b do sum := sum + a[i];

Ответ отправил: Зиновьев Дмитрий Владимирович (статус: 6-ой класс) Ответ отправлен: 15.11.2007, 13:45 Оценка за ответ: 5 Комментарий оценки: спасибо

Вопрос № 109.447

Здравствуйте.У меня проблема.3 часа писал программу и она вылетела О_о , остался только ехешник.Не подскажете как вытащить из него исходный код ? Заранее спасибо.С уважением,Андрей.

Отправлен: 14.11.2007, 21:30 Вопрос задал: Карягин Андрей Валерьевич (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 4)

Отвечает: Решетник Д Здравствуйте, Карягин Андрей Валерьевич! Если среда разработки не позаботилась об автосохранении копии программы, то это будет тяжело. Единственный вариант - дизассемблирование кода. Но этот вариант тяжелее того, если вы перепишите программу. думаю, это будет просто уроком. стоит периодически сохранять проект. НО. Все же можно просмотреть примерный ассембелрный код вашего приложения с помощью: Win32DASM, IDA Pro. --------- Жизнь коротка, чтобы писать на ассемблере

Ответ отправил: Решетник Д (статус: Студент) Ответ отправлен: 14.11.2007, 21:40

Отвечает: Зенченко Константин Николаевич Здравствуйте, Карягин Андрей Валерьевич! Даю ссылку на IDA free, спокойно распознает компиляторы С++ и Паскаль и выделяет основные функции. Пример работы: seg000:0035 call @ParamStr$qm6String4Word;ParamStr(index): String seg000:003A call @Assign$qm4Filem6String;Assign(var f: File; name: String) seg000:0074 call @Rewrite$qm4File4Word;Rewrite(var f: File; recsize: Word) Обратите внимание на информацию после " ; " думаю онa Вам знакомa. Таким образом Вы получите скелет программы, остальное нужно будет дописывать самому. Нет худа без добра: Вам предоставится возможность посмотреть на голый ассемблер или как "извращается" компилятор над текстом Вашей программы. Если задумаетесь над этим будет интересно. ps:Win32DASM- к сожалению только дисассемблирует. Удачи! --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Специалист) Ответ отправлен: 14.11.2007, 22:18

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