Помощь с pascal`ем, решение задач
|
main
Опытный юзверь
Группа: Пользователи Сообщений: 146 Регистрация: 4.06.2005 Из: г.Красноярск Пользователь №: 19.586
Респектов: 3
Предупреждений: 0
| Люди мне надо решить восемь задач в паскале, если есть кто в нем рулит помогите, а то я сам не успею. | |
| |
11.11.2006 - 21:29 |
de1ay
профи!
[SoftoRooMTeaM]
Группа: Наши Люди Сообщений: 4.437 Регистрация: 14.10.2005 Из: EU Пользователь №: 1.010
Респектов: 613
| QUOTE Люди мне надо решить восемь задач в паскале, если есть кто в нем рулит помогите, а то я сам не успею. Тексты задач? | |
| |
12.11.2006 - 0:45 |
scorpio
Mr. SoftoRooMan
[SoftoRooMTeaM]
Группа: СуперМодераторы Сообщений: 8.029 Регистрация: 10.10.2005 Из: LG Пользователь №: 21
Респектов: 1412
| QUOTE(main @ 11.11.2006 - 19:34) Люди мне надо решить восемь задач в паскале, если есть кто в нем рулит помогите, а то я сам не успею. Выкладывай задания, сейчас всё порешаем | |
| |
13.11.2006 - 20:45 |
main
Опытный юзверь
Группа: Пользователи Сообщений: 146 Регистрация: 4.06.2005 Из: г.Красноярск Пользователь №: 19.586
Респектов: 3
Предупреждений: 0
| 275. Даны действительные числюююч10бн1юююн10.Получить х1*y1+x2*y…x10*y10. как упростить решение если исходные данные имеют следующий порядок x1,y1,…x10,y10.
252. Дана строка символов, подсчитать общее число вхождений символов +,-,* в заданную строку.
86. Дано натуральное число n сколько цифр в числе n.
56. Даны действительные положительные числа a,b,c,x,y. Выяснить пройдет ли кирпич с ребрами a,b,c в прямоугольное отверстие со сторонами x,y. Просовывать кирпич разрешается только так, чтобы каждое из ребер было параллельно или перпендикулярно каждой из сторон отверстия.
323. дано натуральное число n. Получить все натуральные числа, меньше n и взаимно простые с ним.
507. Сведения об ученике состоят из его имени и фамилии и названии класса (года обучения и буквы), в котором он учится: выяснить, имеются ли в школе однофамильцы. | |
| |
14.11.2006 - 3:37 |
AquaTour
Специалист
Группа: Пользователи Сообщений: 417 Регистрация: 4.07.2005 Пользователь №: 27.183
Респектов: 50
Предупреждений: 0
| Задача №56 (Даны действительные положительные числа a,b,c,x,y...) var a, b, c, x, y : integer; procedure Swap(var z1, z2 : integer); var tmp : integer; begin tmp := z1; z1 := z2; z2 := tmp; end; begin Write('Введите размеры кирпича (a, b, c): '); ReadLn(a, b, c); Write('Введите размеры отверстия (x, y): '); ReadLn(x, y); if a > b then Swap(a, B); if b > c then Swap(b, c); if a > b then Swap(a, B); if x > y then Swap(x, y); if (x >= a) and (y >= B) then Write('Кирпич пройдет через отверстие') else Write('Кирпич не пройдет через отверстие'); ReadLn; end. | |
| |
14.11.2006 - 20:55 |
main
Опытный юзверь
Группа: Пользователи Сообщений: 146 Регистрация: 4.06.2005 Из: г.Красноярск Пользователь №: 19.586
Респектов: 3
Предупреждений: 0
| и еще у меня одна задвча н графику, надо танк на рисовать, как мнне сюда рисунок выложить? | |
| |
14.11.2006 - 21:28 |
ZaHack
Большой Брат
Группа: Заблокированные Сообщений: 1.252 Регистрация: 24.01.2006 Из: Where The Eagles Fly Пользователь №: 333
Респектов: 117
| QUOTE(main @ 14.11.2006 - 21:55) и еще у меня одна задвча н графику, надо танк на рисовать, как мнне сюда рисунок выложить? А зенитку тебе в трех проекциях нарисовать, случайно, не надо? PS Рисунок можно запостить кнопкой "IMG".... | |
| |
|
|