Хостинг портала RFpro.ru:
Московский хостер
Профессиональный платный хостинг на базе Windows 2008

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

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

lamed Статус: Практикант Рейтинг: 2188 ∙ повысить рейтинг »

Boriss Статус: Академик Рейтинг: 1892 ∙ повысить рейтинг »

_Ayl_ Статус: Практикант Рейтинг: 1811 ∙ повысить рейтинг »

Вопрос № 177244: Здравствуйте эксперты. Помогите решить задачу по программированию. Тема динамические струстуры данных. Условия задачи : Дано неотрицательное число N и набор из N чисел. Создать стек, содержащий исходные числа (последнее число будет вершиной стека...

Здравствуйте эксперты. Помогите решить задачу по программированию. Тема динамические струстуры данных. Условия задачи :
Дано неотрицательное число N и набор из N чисел. Создать стек, содержащий исходные числа (последнее число будет вершиной стека). Если N = 0, то положить P1 = nil. Вывести все четные значения всех элементов стека, начиная с вершины.

Отправлен: 14.03.2010, 16:33
Вопрос задал: Яруллина Ирина Булатовна, Посетитель
Всего ответов: 1
Страница вопроса »

Приложение:
Program P1; type S=^TS; TS=record c:integer; next:S; end; var P,R:S; n:integer; i:integer; begin P:=nil; write(\'n=\'); readln(n); for i:=1 to n do begin new(R); write(\'A\',i,\'=\'); readln(R^.c); R^.next:=P; P:=R; end; R:=P; while R<>nil do begin if not odd(R^.c) then writeln(R^.c); R:=R^.next; end; readln; end.

Ответ отправил: Vassea, Профессионал
Ответ отправлен: 14.03.2010, 17:09
Номер ответа: 260109

Вам помог ответ? Пожалуйста, поблагодарите эксперта за это! Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 260109 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.)

Здравствуйте!
Найти max{min(a, b) , min(c, d)}

Отправлен: 14.03.2010, 20:46
Вопрос задал: Евгений [eXill@nD] Малясёв , Практикант
Всего ответов: 1
Страница вопроса »

Введите четыре числа (a, b, c, d):
1 2 3 4
max(min(a,b), min(c,d)) =     3.0000

Приложение:
function min(a, b: Real): Real; begin if a < b then min :=a else min := b end; function max(a, b: Real): Real; begin if a > b then max := a else max := b end; var a, b, c, d: Real; BEGIN WriteLn(\'Введите четыре числа (a, b, c, d):\'); ReadLn(a, b, c, d); {Числа можно вводить через пробел} WriteLn(\'max(min(a,b), min(c,d)) = \', max(min(a,b), min(c, d)):10:4); END.
-----
Вывод - то место в тексте, где вы устали думать

Ответ отправил: Boriss, Академик
Ответ отправлен: 14.03.2010, 21:06
Номер ответа: 260118

Оценка ответа: 5

Вам помог ответ? Пожалуйста, поблагодарите эксперта за это! Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 260118 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.)

Здравствуйте уважаемые эксперты! Тут у меня 2 задачки как раз для Вас!;)

1. Составить программу, которая печатает таблицу умножения и сложения натуральных чисел в шестнадцатеричной системе исчисления.

2. Написать программу, которая по заданным трем числам определяет, является ли сумма каких-либо двух из них положительной.

Вот такие вот задачи:) в них нужно составить БЛОК СХЕМУ, вот в принципе и все. жду Ваших ответов.

Отправлен: 15.03.2010, 02:31
Вопрос задал: Евгений [eXill@nD] Малясёв , Практикант
Всего ответов: 2
Страница вопроса »

Ответ отправил: F®ost, Советник
Ответ отправлен: 15.03.2010, 11:19
Номер ответа: 260127
Беларусь, Минск
Тел.: 375292792018
Организация: Минский Промтранспроект
Адрес: ул. В.Хоружей, 13, г. Минск, Беларусь
Адрес сайта: http://www.mptp.by

Оценка ответа: 5

Вам помог ответ? Пожалуйста, поблагодарите эксперта за это! Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 260127 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.)

Приложение:
{ Составить программу, которая печатает таблицу умножения и сложения натуральных чисел в шестнадцатеричной системе счисления } Program HexTabs; Type TTableType = (SUM, MUL); TTableName = array [TTableType] of string; Const cHexDigits : string = \'0123456789ABCDEF\'; cTableName : TTableName = (\'сложения\', \'умножения\'); Function Byte2Hex (a : Byte) : string; begin Byte2Hex := cHexDigits [(a shr 4) + 1] + cHexDigits [(a and 15) + 1]; end; Procedure ClrScr; assembler; asm mov ax, 3 int 10h end; Procedure PrintTab (pType : TTableType); var i, j : Byte; begin ClrScr; writeln (\'Таблица \' + cTableName [pType]); writeln; write (\' \'); for i := 0 to 15 do write (\' \' + Byte2Hex (i)); writeln; for j := 0 to 15 do begin write (Byte2Hex (j) + \' \'); for i := 0 to 15 do if pType = SUM then write (\' \' + Byte2Hex (i + j)) else write (\' \' + Byte2Hex (i * j)); writeln; end; writeln; write (\'Нажмите Enter для продолжения... \'); readln; end; Begin PrintTab (SUM); PrintTab (MUL); End. Прикрепленный файл: загрузить »

Ответ отправил: _Ayl_, Практикант
Ответ отправлен: 18.03.2010, 13:39
Номер ответа: 260197

Оценка ответа: 5

Вам помог ответ? Пожалуйста, поблагодарите эксперта за это! Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 260197 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.)

Добрый вечер! помогите пожалуйста решить задачу. тема динамические структуры данных. (лин. список)В системе регистрации заявок сервисного центра составляется список заявок в зависимости от приоритета отправителя (если клиент постоянный и важный приоритет – 0, если постоянный, но можно ненадолго отложить – 1 и т.д.). Сформировать список заявок, начиная с наивысшего приоритета и вывести его на экран.

Отправлен: 15.03.2010, 02:46
Вопрос задал: Яруллина Ирина Булатовна, Посетитель
Всего ответов: 1
Страница вопроса »

Приложение:
{ В системе регистрации заявок сервисного центра составляется список заявок в зависимости от приоритета отправителя (если клиент постоянный и важный приоритет - 0, если постоянный, но можно ненадолго отложить - 1 и т.д.). Сформировать список заявок, начиная с наивысшего приоритета и вывести его на экран. } Program Requests; Type PRequestList = ^TRequest; { список заявок } TRequest = Record { описание элемента списка} req_text : string; { текст заявки } req_rank : Byte; { приоритет заявки } next : PRequestList; { следующая заявка в списке } end; TRequestFile = file of TRequest; { типизированный файл для хранения списка заявок } Var p : PRequestList; { указатель на список заявок } s : string; { строка - используется для ввода данных пользователя } { Процедура аварийного завершения программы с описанием причины } Procedure Fatal (msg : string); begin writeln; writeln (\'Ошибка: \', msg); Halt (1); end; { Процедура сохранения списка в файле } Procedure SaveList (fname : string; p : PRequestList); var f : TRequestFile; { файловая переменная } q : PRequestList; { указатель на элемент списка } begin { Создание файла с обработкой ошибок } {$I-} Assign (f, fname); Rewrite (f); {$I+} if IOResult <> 0 then Fatal (\'Не могу создать файл \' + fname + \'!\'); q := p; { начинаем обрабатывать список сначала } while q <> nil do { пока есть элементы } begin write (f, q^); { записываем элемент в файл } q := q^.next; { переходим к следующему элементу списка } end; Close (f); { закрыть файл } end; { процедура считывания списка из файла } Function LoadList (fname : string) : PRequestList; var f : TRequestFile; { файловая переменная } p : PRequestList; { указатель на начало списка (точнее, элемент, предшествующий первому элементу списка) } q : PRequestList; { указатель на элемент списка } begin { Открытие файла с обработкой ошибок } {$I-} Assign (f, fname); Reset (f); {$I+} if IOResult <> 0 then Fatal (\'Не могу открыть файл \' + fname + \'!\'); New (q); { создаем временный элемент списка } q^.next := nil; { устанавливаем признак конца списка } p := q; { сохраняем полученный указатель } while not eof (f) do { считываем записи до конца файла } begin New (q^.next); { создаем новый элемент } read (f, q^.next^); { считываем значение элемента из файла } q^.next^.next := nil; { корректируем указатель на следующий элемент } q := q^.next; { переходим к следующему элементу } end; LoadList := p^.next; { реальный список начинается со второго элемента } Dispose (p); { удаляем временный элемент } Close (f); { закрываем файл } end; { Процедура очистки экрана (вместо использования аналогичной процедуры из модуля Crt) } Procedure ClrScr; assembler; asm mov ax, 3 int 10h end; { Процедура вывода списка согласно приоритетам } Procedure PrintList (p : PRequestList); var q : PRequestList; { указатель на элемент списка } cur_rank : Byte; { текущее значение приоритета } first : Boolean; { флаг обработки начального элемента } req_num : Byte; { количество выведенных заявок на текущем экране } { Локальная процедура вывода информации о приоритете } procedure PrintRank (r : Byte); begin ClrScr; writeln (\'Заявки с приоритетом \', cur_rank); writeln (\'------------------------\'); req_num := 0; end; { Локальная процедура вывода подсказки для пользователя после заполнения экрана } procedure PrintQuery; begin writeln; write (\'Нажмите Enter...\'); readln; end; begin q := p; { начинаем обработку с начала списка } first := true; { устанавливаем признак начального элемента } req_num := 0; { количество отображенных заявок - 0 } while q <> nil do { пока элементы не закончились } begin { если элемент начальный или произошла смена приоритета } if first or (cur_rank <> q^.req_rank) then begin if req_num <> 0 then PrintQuery; { если были выведены элементы - ждем реакцию пользователя } cur_rank := q^.req_rank; { устанавливаем новый приоритет } PrintRank (cur_rank); { выводим информацию о приоритете } first := false; { сбрасываем признак начального элемента } end; writeln (q^.req_text); { выводим текст заявки } Inc (req_num); { увеличиваем число выведенных заявок } if req_num = 20 then begin { если вывели 21 заявку - ждем реакцию пользователя } PrintQuery; { реакция } PrintRank (cur_rank); { выводим информацию о приоритете } end; q := q^.next; { переходим к следующему элементу } end; if req_num <> 0 then PrintQuery; { если были выведены элементы - ждем реакцию пользователя } end; { Процедура добавления заявки в список с учетом приоритета } Procedure InsertIntoList (var p : PRequestList; r : PRequestList); var q : PRequestList; { элемент списка } begin q := p; { перебираем элементы с начала списка} while q^.next <> nil do { пока список не пуст} begin { если текущий элемент имеет такой же приоритет, как и у добавляемой заявки } if q^.next^.req_rank = r^.req_rank then begin { вставим элемент перед текущим} r^.next := q^.next; q^.next := r; break; { закончим просмотр списка } end { если текущий элемент имеет более низкий приоритет, нежели у добавляемой заявки } else if r^.req_rank < q^.next^.req_rank then begin { добавим элемент перед текущим - получаем список заявок, отсортированных по приоритетам } r^.next := q^.next; q^.next := r; break; { закончим просмотр списка } end; q := q^.next; { перейдем к следующему элементу } end; { если просмотрели весь список и не смогли вставить заявку - } { значит, у данной заявки новый приоритет, причем он самый низкий } { поэтому добавляем заявку в конец списка } if q^.next = nil then q^.next := r; end; { Функция ввода заявки пользователем } Function InputRequest : PRequestList; var r : PRequestList; { указатель на заявку } begin New (r); { создаем заявку } r^.next := nil; { следующего элемента нет} { запрос ввода текста заявки } write (\'Введите текст заявки (или введите "." для окончания ввода): \'); readln (r^.req_text); if r^.req_text = \'.\' then begin Dispose (r); { удалить заявку } InputRequest := nil; { возвратить нулевой указатель } exit; end; { запрос ввода приоритета заявки } write (\'Введите приоритет заявки: \'); readln (r^.req_rank); InputRequest := r; { возвратить заявку } end; { Функция ручного ввода списка заявок } Function InputList : PRequestList; var p : PRequestList; { указатель на список } r : PRequestList; { указатель на заявку } begin ClrScr; { очистить экран и вывести заголовок } writeln (\'Ручной ввод заявок\'); writeln; New (p); { создать список } p^.next := nil; { только временный элемент } Repeat r := InputRequest; { ввод заявки пользователем } if r = nil then break { выйти из цикла при окончании ввода } else InsertIntoList (p, r); { добавить заявку в список в соответствии с приоритетом } Until false; { повторить ввод заявки } InputList := p^.next; { возвратить список без учета временного элемента } Dispose (p); { удалить временный элемент } end; { Функция получения списка заявок } Function GetList : PRequestList; var s : string; begin ClrScr; { очистить экран } { запрос информации от пользователя } write (\'Укажите имя файла со списком заявок (или введите "-" для ручного ввода): \'); readln (s); { сформировать список заявок либо с помощью ручного ввода, либо путем загрузки из файла } if s = \'-\' then GetList := InputList else GetList := LoadList (s); end; { Процедура добавления новых заявок в список } Procedure AddRequests (var p : PRequestList); var r : PRequestList; { указатель на заявку } t : PRequestList; { указатель на список заявок } begin { запрос информации от пользователя } write (\'Хотите добавить заявки? \'); readln (s); if s [1] in [\'Y\', \'y\', \'Д\', \'д\'] then begin New (t); { сформировать временный элемент } t^.next := p; { перед реальным списком } Repeat r := InputRequest; { ввод заявки пользователем } if r = nil then break; { выйти из цикла при окончании ввода } InsertIntoList (t, r); { добавить заявку в список в соответствии с приоритетом } Until false; { повторить ввод заявки } p := t^.next; { откорректировать указатель на первый элемент списка } Dispose (t); { удалить временный элемент } end; end; { Основная программа } Begin p := GetList; { получить список заявок } PrintList (p); { вывести список на экран } AddRequests (p); { добавить новые заявки } PrintList (p); { вывести обновленный список } { предложить пользователю сохранить список в файле } write (\'Введите имя файла для сохранения списка заявок (или введите "-" если не хотите сохранять): \'); readln (s); if s <> \'-\' then SaveList (s, p); { сохранить список в файле } End.

Ответ отправил: _Ayl_, Практикант
Ответ отправлен: 15.03.2010, 16:36
Номер ответа: 260132

Вам помог ответ? Пожалуйста, поблагодарите эксперта за это! Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 260132 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.)

Оценить выпуск »
Нам очень важно Ваше мнение об этом выпуске рассылки!

Задать вопрос экспертам этой рассылки »