Програмирование

NERO_1 · 16.01.2009, 04:41

Помогите составить две проги на паскале
1,Вычислить периметр и площадь прямоугольного треугольника по заданным длинам двух катетов a и b.

2,Заданны коордионаты трёх вершин треугольника (X1, Y1),(X2,Y2), (X3,Y3). Найдите его периметр и площадь.
Помогите срочно надо!!!!!!!!!!!!

AlexZir · 16.01.2009, 10:02

1 задание

Код:

program treug1;
var a, b, c, s, p: real;
begin
writeln('Введите длины катетов');
readln(a,b);
c:=sqrt(sqr(a)+sqr(b));
p:=a+b+c;
s:=0.5*a*b;
writeln('Периметр треугольника равен ',p,'. Площадь треугольника равна ',s);
readln
end.

2 задание

Код:

program treug2;
var x1, x2, x3, y1, y2, y3: integer;
     a,b,c,p,p1,s: real;
begin
writeln('Введите координаты вершины A (x1, y1)');
readln(x1,y1);
writeln('Введите координаты вершины B (x2, y2)');
 readln(x2,y2);
writeln('Введите координаты вершины C (x3, y3)');
 readln(x3,y3);
a:=sqrt(sqr(x3-x2)+sqr(y3-y2));
b:=sqrt(sqr(x3-x1)+sqr(y3-y1));
c:=sqrt(sqr(x2-x1)+sqr(y2-y1));
p:=a+b+c;
p1:=p/2;
s:=sqrt(p1*(p1-a)*(p1-b)*(p1-c));
writeln('Периметр треугольника равен ',p,'. Площадь треугольника равна ',s);
 readln
 end.

Если формулы не перепутал -должно быть правильно

.

Vladimir_S · 16.01.2009, 10:06

Ну надо же - похоже уже в детском саду изучают Паскаль (судя по уровню задач)!

{Задача 1}

VAR
a,b,c,P,S:REAL;

BEGIN

{Ввод данных}
Write('a = '); ReadLn(a);
Write('b = '); ReadLn(b);

c:=SQRT(SQR(a)+SQR(b));

P:=a+b+c;
S:=a*b/2;

Writeln('P = ', P);
Writeln('S = ', S);

Readln;

END.

{Задача 2}

VAR
a,b,c,X1,Y1,X2,Y2,X3,Y3,P,S:REAL;

BEGIN

{Ввод данных}
Write('X1 = '); ReadLn(X1);
Write('Y1 = '); ReadLn(Y1);
Write('X2 = '); ReadLn(X2);
Write('Y2 = '); ReadLn(Y2);
Write('X3 = '); ReadLn(X3);
Write('Y3 = '); ReadLn(Y3);

a:=SQRT(SQR(X1-X2)+SQR(Y1-Y2));
b:=SQRT(SQR(X1-X3)+SQR(Y1-Y3));
c:=SQRT(SQR(X2-X3)+SQR(Y2-Y3));

P:=a+b+c;
S:=SQRT(P/2*(P/2-a)*(P/2-b)*(P/2-c));

Writeln('P = ', P);
Writeln('S = ', S);

Readln;

END.

Vladimir_S · 16.01.2009, 10:10

Да, AlexZir - мы оба справились!!! Ура!

Ну до чего умные - слов нет!

AlexZir · 16.01.2009, 10:18

И не говорите, молодцы просто!

ummasha · 17.01.2009, 18:10

Я тоже с таких задач начинала, но не в детском саду, а в 11 классе. Решались они совершенно без проблем. Но когда начались массивы, особенно двухмерные...

У меня есть подозрение, что учительница перепутала нашу группу с другой (у нас вечно пропадают уроки) и не объяснила нам часть темы...

AlexZir · 17.01.2009, 19:16

Маша, какие затруднения вызвала у вас тема Двумерные массивы? Если что непонятное - пишите, поможем.

Такие задачки по новой программе изучения информатики решают в 9 классе, причем независимо от изучаемого языка программирования. Формулы взяты из геометрии 8 класса

.

ummasha · 19.01.2009, 08:02

Значит, в моей школе программа изучения информатики какая-то доисторическая, потому что в 9 и 10 классах мы только работали с офисом и изучали теорию.

В этом полугодии будем создавать сайты и работать с фотошопом.

ummasha · 19.01.2009, 08:13

Зато начальная школа занимается информатикой клааса с третьего: они тоже изучают офис и, конечно, рисуют в Пайнте (ну совсем как мы в девятом).

VipeR · 19.01.2009, 09:13

фотошоп .... в школе .... сильно
а потом на пиратство ругаемся

16.01.2009, 04:41	#1 (permalink)
NERO_1 Member Регистрация: 16.01.2009 Сообщений: 34 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Програмирование Помогите составить две проги на паскале 1,Вычислить периметр и площадь прямоугольного треугольника по заданным длинам двух катетов a и b. 2,Заданны коордионаты трёх вершин треугольника (X1, Y1),(X2,Y2), (X3,Y3). Найдите его периметр и площадь. Помогите срочно надо!!!!!!!!!!!!

16.01.2009, 10:18	#5 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	И не говорите, молодцы просто! __________________ Убить всех человеков!

17.01.2009, 19:16	#7 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Маша, какие затруднения вызвала у вас тема Двумерные массивы? Если что непонятное - пишите, поможем. Такие задачки по новой программе изучения информатики решают в 9 классе, причем независимо от изучаемого языка программирования. Формулы взяты из геометрии 8 класса . __________________ Убить всех человеков!

16.01.2009, 04:41
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Похожие топики были созданы ранее, они могут вам хорошо помочь Pascal. Програмирование итерационных процессов Програмирование ключа DS2401 Програмирование с использование функций и процедур

16.01.2009, 10:06	#3 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Ну надо же - похоже уже в детском саду изучают Паскаль (судя по уровню задач)! {Задача 1} VAR a,b,c,P,S:REAL; BEGIN {Ввод данных} Write('a = '); ReadLn(a); Write('b = '); ReadLn(b); c:=SQRT(SQR(a)+SQR(b)); P:=a+b+c; S:=ab/2; Writeln('P = ', P); Writeln('S = ', S); Readln; END. {Задача 2} VAR a,b,c,X1,Y1,X2,Y2,X3,Y3,P,S:REAL; BEGIN {Ввод данных} Write('X1 = '); ReadLn(X1); Write('Y1 = '); ReadLn(Y1); Write('X2 = '); ReadLn(X2); Write('Y2 = '); ReadLn(Y2); Write('X3 = '); ReadLn(X3); Write('Y3 = '); ReadLn(Y3); a:=SQRT(SQR(X1-X2)+SQR(Y1-Y2)); b:=SQRT(SQR(X1-X3)+SQR(Y1-Y3)); c:=SQRT(SQR(X2-X3)+SQR(Y2-Y3)); P:=a+b+c; S:=SQRT(P/2(P/2-a)(P/2-b)(P/2-c)); Writeln('P = ', P); Writeln('S = ', S); Readln; END.

16.01.2009, 10:10	#4 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Да, AlexZir - мы оба справились!!! Ура! Ну до чего умные - слов нет!

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

17.01.2009, 18:10	#6 (permalink)
ummasha Member Регистрация: 24.12.2008 Сообщений: 419 Записей в дневнике: 4 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 1311	Я тоже с таких задач начинала, но не в детском саду, а в 11 классе. Решались они совершенно без проблем. Но когда начались массивы, особенно двухмерные... У меня есть подозрение, что учительница перепутала нашу группу с другой (у нас вечно пропадают уроки) и не объяснила нам часть темы...

19.01.2009, 08:02	#8 (permalink)
ummasha Member Регистрация: 24.12.2008 Сообщений: 419 Записей в дневнике: 4 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 1311	Значит, в моей школе программа изучения информатики какая-то доисторическая, потому что в 9 и 10 классах мы только работали с офисом и изучали теорию. В этом полугодии будем создавать сайты и работать с фотошопом.

19.01.2009, 08:13	#9 (permalink)
ummasha Member Регистрация: 24.12.2008 Сообщений: 419 Записей в дневнике: 4 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 1311	Зато начальная школа занимается информатикой клааса с третьего: они тоже изучают офис и, конечно, рисуют в Пайнте (ну совсем как мы в девятом).

19.01.2009, 09:13	#10 (permalink)
VipeR Имперская инквизиция Регистрация: 14.02.2007 Сообщений: 6,097 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 3046	фотошоп .... в школе .... сильно а потом на пиратство ругаемся