VPF::Помогите плиз решить задачи - Форум программистов

DYUK

Дата 25.3.2009, 23:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 25.3.2009

Репутация: нет
Всего: нет

Помогите плиз с этими задачками
Задача 1
Даны координаты двух противоположных вершин прямоугольника: (x1, y1) , (x2, y2). Стороны прямоугольника паралельны осям координат. Найти периметр и площадь данного прямоугольника.
Задача 2
Напишите программу , вычисляющюю произведение цифр заданного четырёхзначного числа

mentall

Дата 26.3.2009, 01:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 26.2.2009

Репутация: нет
Всего: нет

Первая задача

Код


var
x1,x2,y1,y2,high,dline,S,P:integer;
begin
readln(x1);
readln(y1);
readln(x2);
readln(y2);
dline:=x2-x1; {ширина прямоугольника}
high:=y2-y1; {высота прямоугольника}
S:=dline*high; {нашли площадь}
P:=2*(dline+high); {нашли периметр}
writeln('P=',p);
writeln('S=',S);
end.

Добавлено через 9 минут и 37 секунд
Вторая задача например так:

Код


var
n1,n2,n3,n4,m1,m2,s:integer;
begin
readln(number);
n1:=number div 1000; {записываем в переменную n1 первое число}
m1:=number div 100;
n2:=m1-n1*10; {записываем в переменную n2 второе число}
n4:=number mod 10; {записываем в переменную n4 четвёртое число}
m2:=number div 100;
n3:=m2-n4; {записываем в переменную n3 третье число}
S:=n1*n2*n3*n4;
writeln('S=',S);
readln;
end.

Это сообщение отредактировал(а) mentall - 26.3.2009, 01:12

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »