Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Den_
0 / 0 / 0
Регистрация: 27.08.2014
Сообщений: 3
#1

Нужно сделать лёгкие программы - Pascal

19.09.2010, 10:10. Просмотров 1059. Ответов 3
Метки нет (Все метки)

Нужно составить программу для вычесления в Pascal: a) периметра и площади прямоугольного треугольника по заданным длинам двух катетов a и b.Ответ дать с точностью до трёх знаков после запятой.
b)Сумма цифр положительного пятизначного числа из интервала [10000;32767]
http://www.cyberforum.ru/pascal/thread218251.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.09.2010, 10:10
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Нужно сделать лёгкие программы (Pascal):

Помогите решить две задачи, они довольно лёгкие, но мне не по зубам.
Помогите решить две задачи, они довольно лёгкие, но мне не по зубам. Задача №1...

Нужно написать программы.Очень нужно
Подпрограммы 1.Написать программу для вычисления суммы факториалов всех...

Нужно написать программы
Здравствуйте! Мне нужно решить 14 задач))Помогите кто чем сможет))За ранние...

Нужно создать программы
1.В заданому масиві обчислити середнє арифметичне елементів, що не менші числа...

Нужно написать 2 программы
Здравствуйте, уважаемые пользователи данного форума. Возникла проблема я не...

3
IVoLution
47 / 47 / 13
Регистрация: 30.08.2010
Сообщений: 106
19.09.2010, 11:09 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program FirstPart;
uses crt;
var
   katet_a, katet_b: real;
   gipot_c, perim, pl: real;
begin
  clrscr;
  {-----------------}
  write('Katet a: ');
  readln(katet_a);
  {-----------------}
  write('Katet b: ');
  readln(katet_b);
  {-----------------}
  gipot_c:=sqr(katet_a)+sqr(katet_b);
  {-----------------}
  perim:=katet_a+katet_b+gipot_c;
  {-----------------}
  pl:=(katet_a*katet_b)/2;
  {-----------------}
  writeln('Perimetr = ', perim :0:3, ' ed');
  write('Ploschad = ', pl :0:3, ' ed kv');
  readln;
end.
Это первая часть. Надеюсь, плюс поставишь)))

Добавлено через 11 минут
gipot_c:=sqr(katet_a)+sqr(katet_b); измени на gipot_c:=sqrt(sqr(katet_a)+sqr(katet_b)); что-то я забыл про корень)))
1
Den_
0 / 0 / 0
Регистрация: 27.08.2014
Сообщений: 3
19.09.2010, 11:12 #3
IVoLution, Спасибо большое!!!
0
IVoLution
47 / 47 / 13
Регистрация: 30.08.2010
Сообщений: 106
19.09.2010, 11:35 #4
Program SecondPart;
Uses
Crt;
Type
Interval = 10000..32767;
Var
MainNumb: Interval;
Numbs: array [0..4] of integer;
Ostatok, Sum, i: Integer;
Begin
ClrScr;
Ostatok:=1;
{---------------}
Write('Vvedite chislo (ot 10000 do 32767): ');
Readln(MainNumb);
{---------------}
Numbs[0]:=MainNumb mod 10;
Numbs[1]:=trunc((MainNumb mod 100) / 10);
Numbs[2]:=trunc((MainNumb mod 1000) / 100);
Numbs[3]:=trunc((MainNumb mod 10000) / 1000);
Numbs[4]:=trunc(MainNumb / 10000);
{---------------}
Sum:=0;
for i:=0 to 4 do
Sum:=Sum+Numbs[i];
{---------------}
Write('Summa tcifr = ', Sum);
Readln;
End.

Добавлено через 1 минуту
А вот и вторая.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.09.2010, 11:35
Привет! Вот еще темы с решениями:

нужно составить две программы
1. Составить программу для вычисления высоты треугольника, проведенной из...

Нужно прокоментировать две программы
Прокоментируйте пожалуйста если можете программы...Просто надо сделать по...

нужно сделать
составить про-грамму для определения полной площади, объема и массы детали.

Нужно исправить ошибки в тексте программы.
Нужно исправить ошибки в тексте программы. program 1; var T:Real; S=6...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru