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

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

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

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

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

Verena Статус: Специалист Рейтинг: 110 ∙ повысить рейтинг >>

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

Выпуск № 752
от 11.12.2008, 21:05

Вопрос № 153135: подскажите пожалуйста как можно переделать прогу чтобы она удаляла элемент списка номер которого задается пользователем с клавиатуры? программа ниже <img src="http://rusfaq.ru/images/Forum/1.gif" border="0"> ...

Вопрос № 153.135

подскажите пожалуйста как можно переделать прогу чтобы она удаляла элемент списка номер которого задается пользователем с клавиатуры? программа ниже Приложение: type Pnod=^TNode; Tnode=record key:integer; next:pnod; end; var n,i:integer; head,tail,p:Pnod; begin randomize; readln(n); new(head); head^.key:=random(10); head^.next:= nil; tail:= head; for i:=1 to n-1 do begin new(tail^.next); tail:=tail^.next; tail^.key:= random(10); tail^.next:= nil; end; p:=head; while p <> nil do begin write(' ',p^.key); p:=p^.next; end; end.

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

Отвечает: Verena Здравствуйте, Otherside! Можно добавить процедуру, которая будет выполнять эту задачу. Процедура эта может выглядеть, например, так: Код: Procedure Del_to (var first: Pnod; k: integer); {Удаление k-ого элемента списка} Var p, q: Pnod; h: integer; Begin If k<>1 then {Если это не первый элемент} Begin q:= first; {Начиная с первого, отсчитываем элементы до k-1-ого} For h:= 1 to k-2 do q:= q^.next; p:= q^.next; {Сохраняем ссылку} q^.next:= p^.next; {Меняем ссылку на следующую ссылку} Dispose (p); {Освобождаем память} End else {Если это первый} Begin p:= first; {Запоминаем} first:= first^.next; {Переписываем} Dispose (p); {Освобожаем память} End; End; Алгоритм работы та кой - доходим до элемента, предшествующего удаляемому, перекидываем его ссылку next на элемент, следующий за удаляемым. Таким образом, элемент исключается из списка и остаётся только освободить память из-под него функцией dispose (не лишним будет, кстати, вообще очищать память из-под списка после работы с ним). Вызов процедуры будет выглядеть так: Del_to (head, k); где k - номер удаляемого элемента, нумерация с 1. Пример добавления данной процедруры к Вашему коду в приложении. Удачи! Приложение: type Pnod=^TNode; Tnode=record key:integer; next:pnod; end; Procedure Del_to (var first: Pnod; k: integer); {Удаление k-ого элемента списка} Var p, q: Pnod; h: integer; Begin If k<>1 then {Если это не первый элемент} Begin q:= first; {Начиная с первого, отсчитываем элементы до k-1-ого} For h:= 1 to k-2 do q:= q^.next; p:= q^.next; {Сохраняем ссылку} q^.next:= p^.next; {Меняем ссылку на следующую ссылку} Dispose (p); {Освобождаем память} End else {Если это первый} Begin p:= first; {Запоминаем} first:= first^.next; {Переписываем} Dispose (p); {Освобожаем память} End; End; var n,i, k:integer; head,tail,p:Pnod; begin randomize; readln(n); new(head); head^.key:=random(10); head^.next:= nil; tail:= head; for i:=1 to n-1 do begin new(tail^.next); tail:=tail^.next; tail^.key:= random(10); tail^.next:= nil; end; writeln; p:=head; while p <> nil do begin write(' ',p^.key); p:= p^.next; end; writeln; writeln ('Vvedite k:'); readln (k); Del_to (head, k); writeln; p:=head; while p <> nil do begin write(' ',p^.key); p:= p^.next; end; end. --------- Эта история - не для истории, понимаешь?

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

Вопрос № 153.168

Здравствуйте...Помогите,пожалуйста, с решением задачи: Дано слово. Найти сколько раз буква"а" встречается в этом слове. Будет ли это число простым.

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

Отвечает: SHERRY Здравствуйте, Annsi Salmela! Число является простым, если оно имеет в качестве делителей (без остатка) единицу и само себя. В результате работы, программа выдаст число - количество букв 'a' (латинских) в слове, а также TRUE, если это число простое или FALSE в противном случае. Код: var word: string; {слово} count,i: integer; {счётчик и переменная-индекс} prost: boolean; {признак "простоты" числа} begin readln(word); {считываем слово с клаиатуры} count := 0; {обнуляем счётчик} {подсчитываем количество букв 'a' в слове при помощи функции pos()} Repeat Delete(word, pos('a', word), 1); {удаляем из переменной word 1 символ, с позиции pos('a', word)} inc(c ount); Until pos('a', word)=0; prost := true; {предположим, что число простое} for i:=2 to (count div 2) do {проверяем числа, на которые число в переменной count может делиться без остатка} prost := prost and not (count mod i = 0); writeln(count, prost:6); {выводим результат на экран} readln; end. Возможные вопросы: 1) pos('a', word) - определяем позицию символа 'a' в переменной word. Если позиция равна нулю, то символ 'a' в строке отсутствует. 2) inc(count) - увеличиваем переменную count на единичку (аналогично count := count + 1) Best regard's! --------- Самурай без меча подобен самураю с мечом, только без меча..

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

Вопрос № 153.184

Здравствуйте эксперты! Помогите решить задачу: Составить программу вычисления максимального произведения одноименных компонент векторов x и y размерностью n.

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

Отвечает: Абельхарисов Руслан/Marked One Здравствуйте, Петров Иван Сергеевич! Ответ с комментариями в приложении. Удачи!!! Приложение: uses CRT; const {Размерность} N = 5; var {Массивы} X, Y: array [1..N] of real; {Максимальное произведение} max: real; {Для For} i: integer; begin {Очищаем экран} Clrscr; {Инициализируем генератор случю чисел} randomize; {Заполняем и выводим массивы случайными числами (-4; 5)} Write('Массив X: '); for i := 1 to N do begin X[i] := random(10) - 5 + random; Write(X[i]:6:2); end; WriteLn; Write('Массив Y: '); for i := 1 to N do begin Y[i] := random(10) - 5 + random; Write(Y[i]:6:2); end; WriteLn; {Вначеле максимальное это произведение первых элементов} max := X[1] * Y[1]; {Передираем массивы} for i := 2 to N do {Если произведение польше максимального, то сохраняем его} if X[i] * Y[i] > max then max := X[i] * Y[i]; {Выводим ответ} Write('Ответ: ', max:6:2); ReadLn; end.

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

Вопрос № 153.203

Помогите пожалуйста. Решение задач в паскале.Если можно с блок схемами. №1.Координаты диагоналей прямоугольника.Найти его площадь. №2. Дан текст.Определить все слова,оканчивающиеся на "ая". Заранее спасибо.

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

Отвечает: Костя Симанович Здравствуйте, Medbedbnofear! Привожу вариан решения второй задачи. Предполагается, что разделитель пробел. Код с пояснениями, что не понятно в минифорум. Надеюсь помог. Удачи. Приложение: program stroki; procedure podstr(st : string); var b : integer; begin b := pos('ая', st); //ищем подстроку if b <> 0 then // есть искомая подстрока, проверяем, что if b = length(st) - 1 then //подстр.в конце слова writeln(st); end; var s, s1 : string; i : integer; begin writeln('введите строку.'); readln(s); if length(s) > 0 then begin i := 1; repeat if s[i] = ' ' then begin delete(s1, i, 1); // удаляем пробел podstr(s1); // выз. процедуру delete(s, 1, i); // удаляем слово i := 0; s1 := ''; end else s1 := s1 + s[i]; // ищем слово до пробела inc(i); // увеличиваем i на еденицу until (i = length(s)+1); podstr(s1); //последнее слово end else writeln('Вы не ввели строку.'); readln; end.

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

Вопрос № 153.219

Уважаемые эксперты помогите мне пожалуста в решение этой задачи:Упорядочить по возрастанию элементыв каждой строке матрицы A(K,L),K≤80,L≤50

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

Отвечает: Шевченко Дмитрий Здравствуйте, Rufus6669! В приложении код программы со всеми пояснениями. С уважением, Дмитрий. Приложение: program z153219; const K = 8;{кол-во строк} L = 11;{кол-во столбцов} type elem = Real;{тип елементов массива} tmas = array[1..L] of elem; mas = array[1..K] of tmas; Function FMin(m:tmas; x:byte):byte;{нахождение min элемента строки} var i,min:byte; begin min:=x;{считаем текущий элемент за минимальный} For i := x+1 to L do IF m[i] < m[min] then{Если следи последующих элементов нашли меньший - } min:=i;{считаем его за минимальный} FMin:=min; end; Procedure sort(var m:tmas);{сортируем строку} var tmp:elem; i,min:byte; begin For i := 1 to L-1 do begin min:=FMin(m,i);{ищем минимальный} tmp:=m[i];{меняем его местами с текущим} m[i]:=m[min]; m[min]:=tmp; end; end; procedure vivod(m:mas);{вывод массива} var i,j:byte; begin For j:= 1 to K do begin For i:= 1 to L-1 do Write(m[j][i]:4:1,' '); WriteLn(m[j][L]:4:1); end; end; var m:mas; i,j,num:byte; begin //Если надо вводить массив вручную: For j := 1 to K do For i := 1 to L do begin Write('Enter m[',j,',',i,']: '); ReadLn(m[j][i]); end; vivod(m); //Если произвольно заполнить: Randomize; For j := 1 to K do For i := 1 to L do m[j][i]:=Random(1001)/10 - 50;{заполняем числами от -50.0 до +50.0} vivod(m); //основная часть: For j := 1 to K do sort(m[j]);//сортируем k-тую строку WriteLn('Sorted mas: '); vivod(m);//выводим отсортированный end.

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

Вопрос № 153.220

Уважаемые эксперты помогите мне пожалуста в решение этой задачи:Составить программу проверки есть ли в тексте буква "s"

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

Отвечает: Абельхарисов Руслан/Marked One Здравствуйте, Rufus6669! Первый способ: Код: var {Строка} str: string; begin {Получаем строку} Write('Введите текст: '); ReadLn(str); {Если функция вернет 0, то s в строке нет, иначе есть} if Pos('s', str) = 0 then Write('В тексте нет буквы s') else Write('В тексте есть буква s'); ReadLn; end. Второй способ: Код: var {стока} str: string; {Для цикла For} i: integer; begin {Получаем стр оку} Write('Введите строку: '); ReadLn(str); {Перебираем строку} for i :=1 to Length(str) do {Если символ s, то выводим сообщение и завершаем работу программы} if str[i] = 's' then begin write('В тексте есть буква s'); ReadLn; exit; end; {Если выполнение программы дошло досюда, то значит s в иексте нет} Write('В тексте нет буквы s'); ReadLn; end. Удачи!!!

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

Вопрос № 153.236

Уважаемые специалисты, пожалуйста помогите мне решить задачу по Paskal. За ранее спасибо!!! Приложение: 9. Задача №2. Записать +1 вместо максимального элемента и -1 вместо минимального элемента каждого столбца матрицы A(K,L), К < 50,L<30. 1. Задача №1. Разработать алгоритм и составить программу вычисления таблицы значений функции, заданной в виде разложения в ряд. Значение функции вычислять с точностью е>0, т.е. вычисление суммы членов ряда необходимо прекратить, когда абсолютная величина очередного члена ряда разложения окажется меньше е: I ак | <s. При где ак - некоторый к-ый член ряда; aK+i - следующий к+1-ый член ряда; ск - коэффициент, определяемый номером к. При составлении программы необходимо по возможности воспользоваться операторами организации циклов WHILE, REPEAT, FOR. Границы интервала вычислений функций а и Ь, величина шага изменения аргумента h и точность вычисления функции s задаются при вводе. На печать выводятся номер по порядку, значение аргумента, соответствующие ему, значение функции и номер члена ряда, на котором закончилось вычисление значение функции, в форме таблицы: № X f(x) Ncp.4 1 2 f(x)=1+2x+2^2*x^2/2!+...+2^k*x^k/k!+...

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

Отвечает: Пупорев Юрий Борисович Здравствуйте, Здор Максим Вальрьевич! Решение задачи 9-2 в приложении. Приложение: uses crt; var a:array[1..100,1..100]of integer; k,l,i,j,min,imin,max,imax:integer; begin clrscr; randomize; repeat {вводим размер матрицы с проверкой диапазона} write('K=');readln(k); until (k>0)and(k<50); repeat write('L=');readln(L); until (l>0)and(l<30); writeln('Ishodnaya matrica:'); for i:=1 to k do begin for j:=1 to l do begin a[i,j]:=random(10)+2;{заполняем матрицу случайными числами в инт. [2,11]} write(a[i,j]:4); end; writeln; end; writeln; for j:=1 to l do {идем по столбцам} begin min:=a[1,j];max:=a[1,j];imin:=1;imax:=1;{начальные значения} for i:=1 to k do begin if a[i,j]<min then {если очередной элемент в столбце меньше минмального} begin min:=a[i,j];{он минимальный} imin:=i; {запоминаем в какой он строке} end; if a[i,j]>max then {то же с максимальным} begin max:=a[i,j]; {производим замену по условию} imax:=i; end; end; a[imin,j]:=-1; a[imax,j]:=1; end; writeln('Rezultat:'); for i:=1 to k do begin for j:=1 to l do write(a[i,j]:4); writeln; end; readln end.

Ответ отправил: Пупорев Юрий Борисович (статус: Специалист) Ответ отправлен: 09.12.2008, 13:26 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 238150 на номер 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