Пара задач из школьного курса по Pascal
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Пара задач из школьного курса по Pascal - 2007-07-07 22:06:53.866666
|
|
|
]..Venom..[
Сообщений: 6
Оценки: 0
Присоединился: 2007-06-23 21:09:07.256666
|
Хочу закончить лицей экстерном, я бы и сам справился, но к сожалению не хватает времени на инфу, ибо в моем лицее за лето надо решить 2000 задач по физике , а с физикой у меня, ну не отлично, ну и не плохо, по-этому все время отдаю ей, и русскому( с ним у меня тоже немног слабо).
Поэтому прошу вас о помощи с этими задачами. Решите пожалуйста хотябы каждый по одной. Заранее всем огромное спасибо.
Графика( все задачи решаются графически).
1. Изобразить на экране шахмотную доску.
2. Построить график функции y=sin(x)sin(2x) в пользовательской системе координат (начало системы координат - в центре экрана, направление осей Ox и Oy - вправо и вверх) На экране должны быть нарисованны координатные оси, указан маштаб по осям и написанно уравнение кривой и имя автора.
3. Построить график кривой в полярной системе координат. На экране должны быть нарисованны координатные оси, указан маштаб по осям и написанно уравнение кривой и имя автора. Уравнение кривой: p=a*sin(5фи/3) Название кривой: Семейство роз.
4. Нарисовать отрезок, вращающийся по часовой стрелке вокруг своего конца.
5. Обруч "катится" без проскальзывание по потолку. Нарисовать траекторию движения точки обруча.
6. Даны положительные числа a, b, c, d. Поместится ли прямоугольник a*b внутри прямоугольника c*d? Параллельность сторон не обязательна.
Строки.
1. Написать "свою" процедуру INSERT.
2. Вводится строка, представляющая собой набор слов. Слова отделяются друг от друга одним или несколькими пробелами. Строка может быть пустой или состоять из одного слова. Подсчитать, сколько слов являются палиндромами( читаются одинаково слева направо и справа на лево).
Множества.
1. Вводится строка - последовательность слов из строчных букв, между соседними словами запятая, за последним словом - точка. Напечатать в алфавитном порядке все звонкие согласные буквы, которые входят хотя бы в одно слово.
Записи.
Задан набор из N кубиков( Nуказанно в константе). каждый кубик характерезуется следующими параметрами: размер ребра, вес, цвет.
Отсортировать кубики по размеру, а внутри одного размера - по весу.
Файлы.
1. вводится файл строк (file of string). Создать файл целых чисел и записать в каждую строку этого файла числовое значение суммы цифр, находящихся в соответствующей строке первого файла.
2. Написать программу по обслуживанию баз данных. Программа должна выполнять следующие функции:
- ввод данных(как первоначальный, так и дозапись).
- вывод данных.
- поиск записи по ключю.
- коректировка найденной записи.
- сортировка данных по ключам.
База данных по гимназиям и лицеям города. По каждому учебному заведению указать номер, статус и количество учащихся. Ключ для поиска - номер, а для сортировки - статус и количество учащихся.
3. Дано описание var: T:text;
Написать процедуры ввода и вывода текстового файла T, а также процедуру DEL_Empty_Str(T) - удаляет из текста все пустые строки.
|
|
|
|
|
RE: Пара задач из школьного курса по Pascal - 2007-07-07 23:30:16.366666
|
|
|
De}{is
Сообщений: 137
Оценки: 0
Присоединился: 2005-11-22 11:21:42
|
Может ты приведешь хоть один достаточно весомый довод в пользу того, что мы должны учится за тебя?
з.ы. убейся об стену
p.s. а такие топы вообще в Купи-продай или в фтопку
|
|
|
|
|
RE: Пара задач из школьного курса по Pascal - 2007-07-08 02:42:06.523333
|
|
|
Yashin
Сообщений: 964
Оценки: 0
Присоединился: 2007-05-09 20:18:01.153333
|
10 wmz
|
|
|
|
|
RE: Пара задач из школьного курса по Pascal - 2007-07-08 12:05:15.473333
|
|
|
Lesher
Сообщений: 18
Оценки: 0
Присоединился: 2007-04-02 20:36:35.096666
|
задачи в сновном типичные
поищи в нете, найдешь много интересного!!!
|
|
|
|
|
RE: Пара задач из школьного курса по Pascal - 2007-07-08 21:17:38.866666
|
|
|
]..Venom..[
Сообщений: 6
Оценки: 0
Присоединился: 2007-06-23 21:09:07.256666
|
Наверное раз я лицей хочу закончить досрочно, я не тупой и сам их могу решить, но времени не хватает, я как бы не сразу их решу, но как почитаю книжку и тд и тп я их решу, но нету времени, по-этому если кому не лень решите хоть одну задачу, подобный текст разместил на многих форумах где был зареген, и не требую решения всех задачей. а больше не знаю че написать, решите хоть что нить пожалуйста.
|
|
|
|
|
RE: Пара задач из школьного курса по Pascal - 2007-07-08 23:40:48.143333
|
|
|
alexbozhko
Сообщений: 1024
Оценки: 0
Присоединился: 2005-11-24 13:35:34
|
quote:
ORIGINAL: De}{is
Может ты приведешь хоть один достаточно весомый довод в пользу того, что мы должны учится за тебя?
з.ы. убейся об стену
p.s. а такие топы вообще в Купи-продай или в фтопку
+1
Вот сижу я здесь, значит.
Пишу компоненты прямого доступа к некой СУБД.
Зарплату мне за это платят.
Но мне так в лом работать.
Может кто-нибудь из вас возьмет на себя благородную миссию кормить меня, и напишет эти самые компоненты за меня?
На халяву.
Либо в купи-продай, либо в корзину.
—
|
|
|
|
|
RE: Пара задач из школьного курса по Pascal - 2007-07-09 22:57:47.876666
|
|
|
Yashin
Сообщений: 964
Оценки: 0
Присоединился: 2007-05-09 20:18:01.153333
|
Ну обновляй тогда для приличия уже решенные задачи. Я не жадный могу решить для тебя одну бесплатно, любую тока не сложную. Кроме БД. Это что вообще Делфи или Паскаль.
|
|
|
|
|
RE: Пара задач из школьного курса по Pascal - 2007-07-11 21:55:35.446666
|
|
|
]..Venom..[
Сообщений: 6
Оценки: 0
Присоединился: 2007-06-23 21:09:07.256666
|
это паскаль, реши любую на твой выбор, кроме строк, их решили уже
|
|
|
|
|
RE: Пара задач из школьного курса по Pascal - 2007-07-12 11:11:34.513333
|
|
|
kb33
Сообщений: 46
Оценки: 0
Присоединился: 2007-04-03 10:06:11.443333
|
Шахматная доска:
program Chess;
uses
Graph;
const
Size = 20;
var
grDriver, grMode, x, y: Integer;
begin
grDriver := Detect;
InitGraph(grDriver, grMode, 'c:/bp/bgi');
SetFillStyle(SolidFill, Blue);
FloodFill(1, 1, Black);
SetColor(Red);
for y := 1 to 8 do
for x := 1 to 8 do begin
if Odd(x + y) then
SetFillStyle(SolidFill, White)
else
SetFillStyle(SolidFill, Black);
Rectangle(x * Size, y * Size, (x + 1) * Size, (y + 1) * Size);
FloodFill(x * Size + 1, y * Size + 1, Red);
end;
ReadLn;
CloseGraph;
end.
Можешь
Rectangle(x * Size, y * Size, (x + 1) * Size, (y + 1) * Size);
FloodFill(x * Size + 1, y * Size + 1, Red);
заменить на Bar(x * Size, y * Size, (x + 1) * Size, (y + 1) * Size);
З.Ы.надо только буквы с цифрами добавить=)
|
|
|
|
|
RE: Пара задач из школьного курса по Pascal - 2007-07-13 01:17:24.306666
|
|
|
Yashin
Сообщений: 964
Оценки: 0
Присоединился: 2007-05-09 20:18:01.153333
|
quote:
2. Построить график функции y=sin(x)sin(2x) в пользовательской системе координат (начало системы координат - в центре экрана, направление осей Ox и Oy - вправо и вверх) На экране должны быть нарисованны координатные оси, указан маштаб по осям и написанно уравнение кривой и имя автора.
Что такое масштаб? кол-во пикселей на единицу отсчета? Если система координат пользоваская, почему начало в центре экрана?
|
|
|
|
|
|
