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

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

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

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

Проверьте(!) текст программы и ответьте(!!) на лёгкие(!!!) вопросы...
Проверьте текст программы, правильна ли, и помогите, ответив на вопросы... Program str; uses...

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

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

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

Нужно создать программы
1.В заданому масиві обчислити середнє арифметичне елементів, що не менші числа 7. 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

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

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

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


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

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

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