Добро пожаловать на Форум SoftWeb.ru.
 
Лето

Нам нужна Ваша поддержка. Сбор средств на оплату дата-центра.

Форум SoftWeb.ru » Интернет » Программирование » Вопросы и ответы » Решебник (turbo pascal, Delphi)

Вопросы и ответы Здесь помогут решить Ваши проблемы. Задавайте вопросы не стесняясь, что пошлют учить мат. часть.

ОТВЕТИТЬ
Опции темы Опции просмотра Опции просмотра
Решебник (turbo pascal, Delphi)
Старый 11.05.2006, 18:21   #1
 
Статус: Гость
Сообщений: n/a
Exclamation Решебник (turbo pascal, Delphi)

Внимание! маленькое вступление.
Надеюсь по названию темы понятно о чем тут спрашивать.
При оформлении вопроса наиболее полно пишите тескт задачи, лучше целиком оригинал (обязательно на русском языке). Старайтесь не делать лишних постов, чтобы в будущем легче было искать нужную вам задачу. Если вы хотите когото устно поблагодорить, пользуйтесь личными сообщениями или кнопкой "спасибо". В этой теме остануться только посты с задачами и их решениями, все лишнее будет удаляться.

Список всех задач: [Ссылки могут видеть только зарегистрированные пользователи. ]
Алгоритмы решения стандартных задач по информатике: [Ссылки могут видеть только зарегистрированные пользователи. ]

Если вы написали свою задачу, а ее никто не решил в течении рабочей недели, составте сообщение-напоминание такого вида: "Кто нить решил задание из сообщения №9?" может про него просто забыли в рабочей канители, и после напоминания, обязательно помогут. Если же вы к тому времени сами или с чей то помощью, решили задачу, то не поленитесь, напишите свое решение, многие будут вам признательны.

Скачать Pascal:
Если у вас дома нет Turbo Pascal, а задание надо сделать за выходные, советую Free Pascal ([Ссылки могут видеть только зарегистрированные пользователи. ])
Так же можете скачать обычный досовский turbo pascal ([Ссылки могут видеть только зарегистрированные пользователи. ])


NEW!!! У нас открылась тема "Решебник С" ([Ссылки могут видеть только зарегистрированные пользователи. ]) просьба к тем кто владеет языком, если будет время, задачи из этого раздела не плохобы продублировать на turbo C. Если тема будет пополняться я ее помечу как "важная".

Overlord
  ЦИТИРОВАТЬ
Эти 6 пользователя(ей) сказали Спасибо за это полезное сообщение:
Объявление
Нам нужна Ваша поддержка. Сбор средств на оплату дата-центра.
Старый 08.11.2010, 22:52   #461
 
Статус: Гость
Сообщений: n/a
По умолчанию Re: Решебник (turbo pascal, Delphi)

Цитата:
Сообщение от Прапорщик12 Посмотреть сообщение
вот всё, что я использовал, для заготовки, это верно?

Эта заготовка стандартно описывает форму в Делфи. Никакой практической ценности для решения поставленной задачи не несет.
Две кнопки, поле ввода и надпись...
  ЦИТИРОВАТЬ
Объявление
Нам нужна Ваша поддержка. Сбор средств на оплату дата-центра.
Старый 16.11.2010, 13:06   #462
 
Статус: Гость
Сообщений: n/a
По умолчанию Re: Решебник (turbo pascal, Delphi)

Народ,плиз помогите решить задачу,
понятия не имею как решать,спасибо всем кто хоть как-то поможет)

Задание: Изобразить на экране две прямые,вращающихся в плоскости экрана,каждая вокруг своей точки

вроде как никаких данных,координат не дано.. спасибо заранее..
  ЦИТИРОВАТЬ
Старый 23.11.2010, 20:34   #463
 
Статус: Гость
Сообщений: n/a
По умолчанию Вопросик по тесту

Всем здравствуйте и приятного время препровождения!!!Мужики, дело вот такое есть прога-тест в ней 4 формы!а именно 3 формы вопросов и четвертая форма ИТОГО!!Предложите пожалуйста ваши варианты дороботки кода что бы четвертая форма показывала не только номер вопроса(формы) где сделана ошибка,но и саму формулировку вопроса!
Код который нужно доработать
Код:


var
a:array[0..11]of byte;
i:integer;
...
procedure TForm3.Button1Click(Sender: TObject);
begin
label3.Caption:='Ошибки сделаны в вопросах № ';
for i:=0 to KolOshibok-1 do
label3.Caption:=label3.Caption+inttostr(a[i])+', ';
end;

end.
этот код в форме ИТОГО

а вот код на кнопках ответа в формах

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
if
radioButton1.Checked
then
Begin
button1.Enabled:=False;
End

else
begin
button1.Enabled:=False;
a[KolOshibok]:=1;// номер формы где сделана ошибка
end;
Этот код ставит только номера форм(вопроса) где сделаны ошибки, резиденты форума взираю к вам!Подскажите пожалуйста вариант кода который будет показывать формулировку вопроса!!
Всем спасибо!
  ЦИТИРОВАТЬ
Старый 23.11.2010, 21:53   #464
 
Аватар для Pagon
 
Статус: Генерал-Майор
Регистрация: 15.01.2007
Адрес: Россия
Сообщений: 1,403
СПАСИБО: 3,399
сказали Спасибо 1,289 раз(а) в 664 сообщении
Получено наград:
По умолчанию Re: Вопросик по тесту

ferrum88, Ну, желательно бы показать всю программу, лучше исходник. Так будет понятнее. Могу посоветовать сделать список/массив, в который будет заноситься вопросы теста при проверке и если ответ не верный, то в массив будет добавлен вопрос. А на форме Итого уже вывести этот массив вместе с номером формы.


Иначе расставленные слова обретают другой смысл, иначе
расставленные мысли производят другое впечатление.


Pagon вне форума   ЦИТИРОВАТЬ
Старый 24.11.2010, 08:24   #465
 
Статус: Ефрейтор
Регистрация: 18.03.2009
Сообщений: 22
СПАСИБО: 169
сказали Спасибо 9 раз(а) в 8 сообщении
По умолчанию Re: Решебник (turbo pascal, Delphi)

Цитата:
Сообщение от Creo21 Посмотреть сообщение
Народ,плиз помогите решить задачу,
понятия не имею как решать,спасибо всем кто хоть как-то поможет)

Задание: Изобразить на экране две прямые,вращающихся в плоскости экрана,каждая вокруг своей точки

вроде как никаких данных,координат не дано.. спасибо заранее..

Береш точку вращения первой прямой O, далее цикл от 0 до 2ПИ и вычисляешь sin и cos, умножаешь на радиус окружности.
Рисуешь прямую line() цветом фона по предыдущим значениям, затем рисуешь прямую любым цветом по полученным значениям, запоминаешь эти координаты.

для второй прямой тоже самое.
sps вне форума   ЦИТИРОВАТЬ
Старый 28.11.2010, 21:50   #466
 
Статус: Гость
Сообщений: n/a
По умолчанию Re: Решебник (turbo pascal, Delphi)

Помогите пожалуйста с задачей, не получается сделать!
Дана последовательность, содержащая от 2 до 30 слов, в каждом из которых от 2 до 10 латинских букв; между соседними словами - не менее одного пробела, за последним словом точка. Напечатать все слова, отличные от последнего слова, предварительно преобразовав каждое из них по следующему правилу: перенести первую букву в конец слова. заранее благодарю!

Добавлено через 1 час 5 минут
И с ещё одной.
Составить в диалоговом режиме программу корректировки текстового файла. Команды подаются с клавиатуры.
* D:N - удалить строку с номером N;
* D:N,M - удалить строки с номерами N, N+1,...M;
* I:N - включить после строки N указанную информацию.
<текст>

Последний раз редактировалось Hardip; 28.11.2010 в 21:50. Причина: Добавлено сообщение
  ЦИТИРОВАТЬ
Старый 29.11.2010, 15:23   #467
 
Статус: Гость
Сообщений: n/a
По умолчанию Re: Решебник (turbo pascal, Delphi)

Помогите, пожалуйста.
Паскаль.
Дан двумерный массив, содержащий MxN элементов. Составить алгоритм (блок-схему) и Паскаль-программу решения задачи: определить значение, которое встречается среди элементов массива наибольшее число раз, и вычислить количество таких вхождений.
Заранее спасибо.
  ЦИТИРОВАТЬ
Старый 30.11.2010, 18:07   #468
 
Статус: Гость
Сообщений: n/a
Question Двунаправленные кольцевые списки (pascal)

На базе File of Char создаю двунаправленный список, который нужно закольцевать. В файле находятся имена людей. Программа вроде "считалочки". С клавиатуры нужно ввести количество слов в считалочке, затем вывести на экран поочередно выбывающие имена и отдельно напечатать оставшиеся.
Например в файле находятся Ира, Петя, Маша, Света, Оля, Аня. Количество слов в считалочке 2. Тогда на экране Маша (т.к. Ира по идее считает), затем Оля, Ира и т.д.
  ЦИТИРОВАТЬ
Старый 01.12.2010, 13:28   #469
 
Аватар для 4айник
 
Статус: Чайник
Регистрация: 06.11.2006
Адрес: Владик, что возле Японии
Сообщений: 12,748
СПАСИБО: 10,175
сказали Спасибо 8,066 раз(а) в 5,001 сообщении
По умолчанию Re: Двунаправленные кольцевые списки (pascal)

Vengeful,
про двунаправленный связный список у меня есть во второй половине [Ссылки могут видеть только зарегистрированные пользователи. ] сообщения, единственное отличие - тот список заканчивается указателями nil, а нам надо после построения списка в последнем элементе указать адрес первого, а в первом - адрес последнего, чтоб их закольцевать, да info будет строкового типа.
Но вот при чем тут текстовый файл? Может только при том, что из него надо начитать в это самый связный список значения и потом про файл забыть?

еще тебе понадобится функция исключения элемента из списка (пока не вернет Nil - будет возвращать указатель на следующий элемент):



Код:
Function RemoveElem (L:List) :List;
          Var
             P: List;
          begin
          If ( L^.next = L^.prior )
             Then P := Nil
             Else Begin
                P := L^.prior;
                P^.next := L^.next;
                P := L^.next;
                P^.prior = L^.prior;
             End;
          writeln(L^.info);
          Dispose (L);
          RemoveElem := P;
          end;


Цитата:
Сообщение от Клод Адриан Гельвеций
Знание некоторых принципов легко возмещает незнание некоторых фактов

[Ссылки могут видеть только зарегистрированные пользователи. ] не жать.

Последний раз редактировалось 4айник; 01.12.2010 в 13:34.
4айник вне форума   ЦИТИРОВАТЬ
Старый 01.12.2010, 23:46   #470
 
Статус: Гость
Сообщений: n/a
Unhappy Re: Решебник (turbo pascal, Delphi)

плиз помогите решить:
задние 1
Для каждой строки заданной матрицы В найти и напеча-тать номера столбцов, содержащих нулевые элементы
задание 2
Найти разность максимального и минимального положи-тельных четных чисел для каждого из двух масивов масивы произвольные(А и В)
  ЦИТИРОВАТЬ
Объявление
Нам нужна Ваша поддержка. Сбор средств на оплату дата-центра.
ОТВЕТИТЬ

Метки
delphi, turbo pascal


Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 
Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Turbo Pascal Создание и работа с типизированными файлами Dina19 Языки программирования 2 20.05.2015 13:59
Решебник (turbo C, C Builder и прочие Си...) Anutik Вопросы и ответы 58 24.12.2013 18:31
Turbo Pascal. Решение сложных задач IvanLis Программирование 0 16.01.2008 15:44
Литература по Turbo Pascal SoftWeb Программирование 5 16.03.2007 16:43
Turbo Pascal 7 Overlord Средства разработки приложений 0 02.02.2007 08:36


Часовой пояс GMT +3, время: 01:18.

Нам нужна Ваша поддержка. Сбор средств на оплату дата-центра.
Яндекс цитирования