Форум АНТИЧАТ - Задачи по C++ и Pascal

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

- - Задачи по C++ и Pascal (https://forum.antichat.xyz/showthread.php?t=29157)

Задачи по C++ и Pascal

Вот заметил, что уж очень много в ветке по кодингу появляется вопросов, связанных с решением задач.

И вот, покопавшись на винте, решил выложить решения, которые у меня уже были, надеюсь, пригодится!

Короче решил не мучить себя и вас и выложу все архивом. Бинарников в архиве нет. Но если нужны стучите.

_http://www.megaupload.com/ru/?d=HDHO4Q5K
Архив на меге

Содержание архива:
Графика
Инвертирование цветов
Конвертирование RGB->Grayscale
Фильтры: контур, размытие, резкость
Графы
Определение числа компонент связности
Поиск кратчайшего пути методом фронта волны
Путь минимального веса в нагруженном графе
Существование пути между 2 вершинами
Деревья
Модуль для работы
Массивы
Поиск: двоичный, линейный
Сортировка: от пузырька до шейкера
Матрицы
Модуль для работы
Строки
Алгоритм Бойера Мура
Алгоритм замены одной подстроки другой
Алгоритм последовательного поиска
Алгоритм Кнута Морриса и Пратта
Взятие подстроки
Структуры данных
Дек, Список, Стек

Цитата:

Это приступы копипаста? Или ностальгии?

Все это у меня валялось давно. Часть этих исходников старше TP6 :)

Цитата:

Пора бы знать.

Если считаете нужным, у меня есть сайт (wiki), я туда выложу и исправляйте как считаете нужным, возможно, синтаксис и нужно изменить (я не вижу никаких ошибок :( ).

[Оффтоп]А можно в BBCode сделать так, чтобы тег [соdе] в итоге получался покороче, чтобы был маленький блок (по высоте) и его можно было прокручивать, а то топик читать неудобно[/Оффтоп]

Решил все-таки выложить архивом

так кому там задачки по паскалю нужно зделать пишите !зделю задачу любой сложности с ассм вставками и прочим ГГ! :)

Цитата:

Сообщение от a1nt

А нельзя ли возобновить раздачу задач. Очень нужно, особенно про метод фронта волны.

Кстати да, не помешало бы перезалить! Заранее спс

Паскаль и делфи зло

Я вот тоже за С++ взялся, классный язык, до этого программировал на Паскале (точнее баловался писать сейчас программы на паскале это изврат).

Зачем вам это надо? Всё постоянно выкладывается на DVD журнала Xakep в раздел Шпаргалки. Вы хоть копирайты указывайте, охотники за репкой...

Цитата:

1. Объявите переменные, необходимые для вычисления значения функции у = х2.
2. Объявите переменные, необходимые для пересчета веса из фунтов в килограммы.
3. Объявите переменные, необходимые для вычисления объема параллелепипеда.
4. Объявите переменные, необходимые для вычисления площади круга.
5. Объявите переменные, необходимые для вычисления площади кольца.
6. Объявите переменные, необходимые для вычисления объема и площади поверхности цилиндра.
7. Объявите переменные, необходимые для вычисления стоимости покупки, состоящей из нескольких тетрадей, карандашей и линейки.
8. Объявите переменные, необходимые для вычисления стоимости покупки, состоящей из нескольких тетрадей и такого же количества обложек.
9. Запишите инструкцию, которая присваивает переменной х значение —1,5.
10. Запишите инструкцию, которая присваивает переменной summa нулевое значение.
11. Запишите инструкцию, которая увеличивает на единицу значение переменной п.
12. Запишите инструкцию, которая уменьшает на два значение переменной counter.
13. Запишите инструкцию вычисления среднего арифметического переменных xi и х2.
16. Запишите в виде инструкции присваивания формулу пересчета веса из фунтов в килограммы (один фунт равен 409,5 г).
17. Запишите в виде инструкции присваивания формулу пересчета расстояния из километров в версты (одна верста равна 1066,8 м).
18. Запишите в виде инструкции присваивания формулу вычисления площади прямоугольника.

решения не для всех

Цитата:

Задача 1

х: real; { аргумент функции } у: real; { значение функции }

Задача 2

funt: real; { вес в фунтах }
kg: real; { вес в килограммах }

Задача 5

rl: real; { диаметр кольца } r2: real; { диаметр отверстия } s: real; { площадь кольца }

Задача 7

CenaTetr: real; {цена тетради }
KolTetr: integer; { количество тетрадей }
CenaKar: real; { цена карандаша }
KolKar: integer; { количество карандашей }
CenaLin: real; { цена линейки }
Suirana: real; { стоимость покупки }

Задача 11

п:=п+1;

Задача 14

у:=-2.7*х*х*х+0.23*х*х-1.4;

Задача 16

kg:=gunt*0.4095;

надыбал позже ещё кину