Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Pascal
Перезагрузить страницу Програмирование
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
NERO_1 NERO_1 вне форума
Member
 
Сообщений: 340
Сказал(а) спасибо: 7
Поблагодарили 1 раз в 1 сообщении
Регистрация: 16.01.2009
По умолчанию Програмирование - 16.01.2009, 04:41

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


2,Заданны коордионаты трёх вершин треугольника (X1, Y1),(X2,Y2), (X3,Y3). Найдите его периметр и площадь.
Помогите срочно надо!!!!!!!!!!!!
Ответить с цитированием
  (#2 (permalink)) Старый
AlexZir AlexZir вне форума
Member
 
Аватар для AlexZir
 
Сообщений: 1,971
Сказал(а) спасибо: 0
Поблагодарили 1 раз в 1 сообщении
Регистрация: 19.08.2007
Адрес: Зея
По умолчанию 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.
Если формулы не перепутал -должно быть правильно .
Ответить с цитированием
  (#3 (permalink)) Старый
Vladimir_S Vladimir_S вне форума
Member
 
Сообщений: 423
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
По умолчанию 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.
Ответить с цитированием
  (#4 (permalink)) Старый
Vladimir_S Vladimir_S вне форума
Member
 
Сообщений: 423
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
По умолчанию 16.01.2009, 10:10

Да, AlexZir - мы оба справились!!! Ура! :D:D:D Ну до чего умные - слов нет!
Ответить с цитированием
  (#5 (permalink)) Старый
AlexZir AlexZir вне форума
Member
 
Аватар для AlexZir
 
Сообщений: 1,971
Сказал(а) спасибо: 0
Поблагодарили 1 раз в 1 сообщении
Регистрация: 19.08.2007
Адрес: Зея
По умолчанию 16.01.2009, 10:18

И не говорите, молодцы просто! :D :D :D
Ответить с цитированием
Ads.
  (#6 (permalink)) Старый
ummasha ummasha вне форума
Member
 
Аватар для ummasha
 
Сообщений: 288
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 24.12.2008
Адрес: Брянск - город партизанской славы
По умолчанию 17.01.2009, 18:10

Я тоже с таких задач начинала, но не в детском саду, а в 11 классе. Решались они совершенно без проблем. Но когда начались массивы, особенно двухмерные... У меня есть подозрение, что учительница перепутала нашу группу с другой (у нас вечно пропадают уроки) и не объяснила нам часть темы...
Ответить с цитированием
  (#7 (permalink)) Старый
AlexZir AlexZir вне форума
Member
 
Аватар для AlexZir
 
Сообщений: 1,971
Сказал(а) спасибо: 0
Поблагодарили 1 раз в 1 сообщении
Регистрация: 19.08.2007
Адрес: Зея
По умолчанию 17.01.2009, 19:16

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

Такие задачки по новой программе изучения информатики решают в 9 классе, причем независимо от изучаемого языка программирования. Формулы взяты из геометрии 8 класса .
Ответить с цитированием
  (#8 (permalink)) Старый
ummasha ummasha вне форума
Member
 
Аватар для ummasha
 
Сообщений: 288
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 24.12.2008
Адрес: Брянск - город партизанской славы
По умолчанию 19.01.2009, 08:02

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

Зато начальная школа занимается информатикой клааса с третьего: они тоже изучают офис и, конечно, рисуют в Пайнте (ну совсем как мы в девятом).
Ответить с цитированием
  (#10 (permalink)) Старый
VipeR VipeR вне форума
Шнивавод
 
Аватар для VipeR
 
Сообщений: 5,231
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 14.02.2007
Адрес: Россия, Уфа
По умолчанию 19.01.2009, 09:13

фотошоп .... в школе .... сильно
а потом на пиратство ругаемся
Ответить с цитированием
  (#11 (permalink)) Старый
AlexZir AlexZir вне форума
Member
 
Аватар для AlexZir
 
Сообщений: 1,971
Сказал(а) спасибо: 0
Поблагодарили 1 раз в 1 сообщении
Регистрация: 19.08.2007
Адрес: Зея
По умолчанию 19.01.2009, 14:48

Виталя, во всех школах есть специальный выпуск CS2.3 и CS3.0, лицензированный специально для российских школ.
Ответить с цитированием
  (#12 (permalink)) Старый
VipeR VipeR вне форума
Шнивавод
 
Аватар для VipeR
 
Сообщений: 5,231
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 14.02.2007
Адрес: Россия, Уфа
По умолчанию 19.01.2009, 14:59

хм, для меня это новость ..... тем не менее, видеть в школах крякнутые CS3/4 это не мешает
Ответить с цитированием
Ads
  (#13 (permalink)) Старый
AlexZir AlexZir вне форума
Member
 
Аватар для AlexZir
 
Сообщений: 1,971
Сказал(а) спасибо: 0
Поблагодарили 1 раз в 1 сообщении
Регистрация: 19.08.2007
Адрес: Зея
По умолчанию 19.01.2009, 15:06

Странно, нафига их ломать, если нахаляву есть лицензия от государства, во всяком случае на 3.0.
Ответить с цитированием
  (#14 (permalink)) Старый
ummasha ummasha вне форума
Member
 
Аватар для ummasha
 
Сообщений: 288
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 24.12.2008
Адрес: Брянск - город партизанской славы
По умолчанию 19.01.2009, 16:47

В школу прислали целую коробку с лицензионным софтом. Учительница сказала, его там тысяч на 30 зеленых. Мы, естественно, предложили все это продать (шутка!). Кстати, далеко не все программы там рабочие.
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Требуется спец. в програмирование nikolasan Работа для программиста 2 19.12.2011 21:54
Линейное програмирование на c# Fuck_off Алгоритмы 0 04.04.2011 23:52
Недетерминированное програмирование (лаба) Minority Prolog 0 15.11.2010 15:28
Програмирование ключа DS2401 СПЕЦ Форум программистов 0 22.08.2008 23:48
Програмирование железа под Simbian KVVss Symbian 2 10.03.2008 11:45
Програмирование на С++ в eclipse DSD Eclipse 10 04.03.2008 00:09
Програмирование сценариев Den'ya Форум программистов 0 13.06.2007 17:50
Програмирование на C/C++ Алла Работа 0 17.06.2005 20:40
Програмирование в Delphi c протоколами IPX/SPX Corba Сетевое программирование 1 18.10.2004 20:13
Програмирование IDE-контролера WerWolf Assembler 7 10.07.2004 20:54
Програмирование СD-ROM imported_Iron Железо. Написание драйверов 3 15.10.2003 13:09
Програмирование ком порта Anonymous Perl 3 16.01.2003 18:28



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов