Люди мне надо решить восемь задач в паскале, если есть кто в нем рулит помогите, а то я сам не успею.
QUOTE
Люди мне надо решить восемь задач в паскале, если есть кто в нем рулит помогите, а то я сам не успею.
Тексты задач?
scorpio
12.11.2006 - 0:45
QUOTE(main @ 11.11.2006 - 19:34)
Люди мне надо решить восемь задач в паскале, если есть кто в нем рулит помогите, а то я сам не успею.
Выкладывай задания, сейчас всё порешаем
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. Сведения об ученике состоят из его имени и фамилии и названии класса (года обучения и буквы), в котором он учится: выяснить, имеются ли в школе однофамильцы.
AquaTour
14.11.2006 - 2:11
Задача 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.
AquaTour
14.11.2006 - 2:26
Вот 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.
AquaTour
14.11.2006 - 3:37
Задача №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.
и еще у меня одна задвча н графику, надо танк на рисовать, как мнне сюда рисунок выложить?
ZaHack
14.11.2006 - 21:28
QUOTE(main @ 14.11.2006 - 21:55)
и еще у меня одна задвча н графику, надо танк на рисовать, как мнне сюда рисунок выложить?
А зенитку тебе в трех проекциях нарисовать, случайно, не надо?
PS Рисунок можно запостить кнопкой "IMG"....
AquaTour
15.11.2006 - 0:03
Уточни условия заданий 507, 323, 275 и выкладывай рисунок танка - ща порешаем!
Pages:
1,
2,
3,
4,
5,
6,
7,
8,
9,
10
Для просмотра
полной версии этой страницы, пожалуйста, пройдите по ссылке:
Помощь с pascal`ем
SoftoRooM © 2004-2024