day & night

Помощь с pascal`ем, решение задач
Дата обновления: , перейти к новому сообщению
#1
main



Опытный юзверь
**

Группа: Пользователи
Сообщений: 146
Регистрация: 4.06.2005
Из: г.Красноярск
Пользователь №: 19.586


Респектов: 3
-----X----


Предупреждений: 0


Люди мне надо решить восемь задач в паскале, если есть кто в нем рулит помогите, а то я сам не успею.
User is offline
Go topGo end

Ответов(1 - 9)
11.11.2006 - 21:29
#2
de1ay



профи!
[SoftoRooMTeaM] Group Icon

Группа: Наши Люди
Сообщений: 4.437
Регистрация: 14.10.2005
Из: EU
Пользователь №: 1.010


Респектов: 613
-----XXXX-




QUOTE
Люди мне надо решить восемь задач в паскале, если есть кто в нем рулит помогите, а то я сам не успею.

Тексты задач?
User is offline
Go topGo end
12.11.2006 - 0:45
#3
scorpio



Mr. SoftoRooMan
[SoftoRooMTeaM] Group Icon

Группа: СуперМодераторы
Сообщений: 8.029
Регистрация: 10.10.2005
Из: LG
Пользователь №: 21


Респектов: 1412
-----XXXXX




QUOTE(main @ 11.11.2006 - 19:34)
Люди мне надо решить восемь задач в паскале, если есть кто в нем рулит помогите, а то я сам не успею.
*



Выкладывай задания, сейчас всё порешаем wink.gif
User is offline
Go topGo end
13.11.2006 - 20:45
#4
main



Опытный юзверь
**

Группа: Пользователи
Сообщений: 146
Регистрация: 4.06.2005
Из: г.Красноярск
Пользователь №: 19.586


Респектов: 3
-----X----


Предупреждений: 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. Сведения об ученике состоят из его имени и фамилии и названии класса (года обучения и буквы), в котором он учится: выяснить, имеются ли в школе однофамильцы.
User is offline
Go topGo end
14.11.2006 - 2:11
#5
AquaTour



Специалист
****

Группа: Пользователи
Сообщений: 417
Регистрация: 4.07.2005
Пользователь №: 27.183


Респектов: 50
-----X----


Предупреждений: 0


Задача 252 (Дана строка символов, подсчитать общее число вхождений символов +,-,* в заданную строку.)
var
s : String;
i, z : integer;
begin
Write('Input string: ');
ReadLn(s);
z := 0;
for i := 1 to Length(s) do
begin
if (s[i] = '-') or (s[i] = '+') or (s[i] = '*') then
Inc(z);
end;
WriteLn(z);
ReadLn;
end.
User is offline
Go topGo end
14.11.2006 - 2:26
#6
AquaTour



Специалист
****

Группа: Пользователи
Сообщений: 417
Регистрация: 4.07.2005
Пользователь №: 27.183


Респектов: 50
-----X----


Предупреждений: 0


Вот 2 способа решения задачи № 86 (Дано натуральное число n сколько цифр в числе n.)
Первый способ
var
i, z : LongInt;
begin
Write('Введите число: ');
ReadLn(z);
i := 1;
while z >= 10 do
begin
z := z div 10;
Inc(i);
end;
Write('Число цифр: ', i);
ReadLn;
end.

и второй, немного читерский
var
s : String;
z : LongInt;
begin
Write('Введите число: ');
ReadLn(z);
Str(z, s);
Write('Число цифр: ', Length(s));
ReadLn;
end.
User is offline
Go topGo end
14.11.2006 - 3:37
#7
AquaTour



Специалист
****

Группа: Пользователи
Сообщений: 417
Регистрация: 4.07.2005
Пользователь №: 27.183


Респектов: 50
-----X----


Предупреждений: 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.
User is offline
Go topGo end
14.11.2006 - 20:55
#8
main



Опытный юзверь
**

Группа: Пользователи
Сообщений: 146
Регистрация: 4.06.2005
Из: г.Красноярск
Пользователь №: 19.586


Респектов: 3
-----X----


Предупреждений: 0


и еще у меня одна задвча н графику, надо танк на рисовать, как мнне сюда рисунок выложить?
User is offline
Go topGo end
14.11.2006 - 21:28
#9
ZaHack



Большой Брат
Group Icon

Группа: Заблокированные
Сообщений: 1.252
Регистрация: 24.01.2006
Из: Where The Eagles Fly
Пользователь №: 333


Респектов: 117
-----X----




QUOTE(main @ 14.11.2006 - 21:55)
и еще у меня одна задвча н графику, надо танк на рисовать, как мнне сюда рисунок выложить?
*



А зенитку тебе в трех проекциях нарисовать, случайно, не надо? laugh.gif
PS Рисунок можно запостить кнопкой "IMG"....
User is offline
Go topGo end
15.11.2006 - 0:03
#10
AquaTour



Специалист
****

Группа: Пользователи
Сообщений: 417
Регистрация: 4.07.2005
Пользователь №: 27.183


Респектов: 50
-----X----


Предупреждений: 0


Уточни условия заданий 507, 323, 275 и выкладывай рисунок танка - ща порешаем!
User is offline
Go topGo end

Topic Options
Сейчас: 29.03.2024 - 16:08
Мобильная версия | Lite версия