Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/23: Рейтинг темы: голосов - 23, средняя оценка - 4.57
Витя 27
0 / 0 / 0
Регистрация: 26.01.2011
Сообщений: 1
1

Найти площадь и периметр прямоугольника

29.01.2011, 12:23. Просмотров 4700. Ответов 4
Метки нет (Все метки)

1. Обчислити площу, периметр та діагональ прямокутника за його стороною.
2. Встановити, чи буде трикутник із сторонами а, b, с рівнобедреним.
3. Знайти розв'язок лінійного рівняння a*x +b = 0 або вивести повідомлення "х -будь-яке число” або "розв'язків нема"
4. Дану задачу розв’язати трьома способами (використавши цикл WHILE, REPEAT та FOR, якщо це можливо). Скласти таблицю вартості порцій сиру вагою 50, 100, 150,... 1000 гр. Ціна 1 кг сиру - 13 гривні.
5 Обчислити нескінчену суму з точністю е=0.001 (e > 0). Вважати, що точність досягнута, якщо наступний доданок виявився по модулю менший, чим задане е, - його та наступні доданки можна вже не враховувати.
6. Створити числовий масив А з 20 елементів. Заповнити його з клавіатури та вивести на екран. Обчислити середнє значення від’ємних елементів; вивести на екран їхні номери.
решить задачи по паскалю.

Google Переводчик
1. Вычислить площадь, периметр и диагональ прямоугольника по его стороне.
2. Установить, будет ли треугольник со сторонами а, b, с равнобедренным.
3. Найти решение линейного уравнения a * x + b = 0 или вывести сообщение "х-любое число" или "решений нет "
4. Данную задачу решить тремя способами (используя цикл WHILE, REPEAT и FOR, если это возможно). Составить таблицу стоимости порций сыра весом 50, 100, 150, ... 1000 гр. Цена 1 кг сыра - 13 гривны.
5 Вычислить бесконечную сумму с точностью е = 0.001 (e> 0). Считать, что точность достигнута, если следующий слагаемое оказался по модулю меньше, чем заданное е, - его и последующие слагаемые можно уже не учитывать.
6. Создать числовой массив А из 20 элементов. Заполнить его с клавиатуры и вывести на экран. Вычислить среднее значение отрицательных элементов; вывести на экран их номера.
решить задачи по Паскалю.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.01.2011, 12:23
Ответы с готовыми решениями:

Известны вершины прямоугольника. Найти площадь и периметр прямоугольника
Известны координаты вершин прямоугольника ABCD , A(x1,y1), B(x2,y2), C(x3,y3)....

Найти периметр и площадь прямоугольника
найти площадь и периметр прямоугольника, противоположные вершины которого...

Найти периметр и площадь прямоугольника
Доброго времени суток! Пожалуйста, помогите написать программу решения задачи и...

Найти площадь и периметр прямоугольника
найти площадь и периметр прямоугольника, противоположные вершины которого...

Найти площадь и периметр прямоугольника, противоположные вершины которого находятся в заданных точках
Составить словесное (математическое) описание и блок-схему следующей задаче:...

4
Puporev
29.01.2011, 12:33
  #2
 Комментарий модератора 
Витя 27, Прочитай правила и переведи этот бред на русский, а то удалю нафиг....
0
Dekio
Фрилансер
Эксперт С++
5838 / 1219 / 499
Регистрация: 23.11.2010
Сообщений: 3,377
Записей в блоге: 1
29.01.2011, 23:33 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

2. Встановити, чи буде трикутник із сторонами а, b, с рівнобедреним.
Pascal
1
2
3
4
5
6
7
8
9
10
11
program Dekio;
var
a,b,c :integer;
begin
writeln('Ââåäèòå 3 ñòîðîГ*Г»');
readln(a,b,c);
if (a=b) or (a=c) or (b=c) then
writeln('ÒðåóãîëüГ*ГЁГЄ Г°Г*ГўГ*îáåäðåГ*Г*ûé')
else
writeln('ÒðåóãîëüГ*ГЁГЄ Г*ГҐ Г°Г*ГўГ*îáåäðåГ*Г*ûé');
end.
0
Ev[G]eN
iOS/Android Developer
Эксперт С++
5119 / 1557 / 950
Регистрация: 23.01.2011
Сообщений: 3,187
Завершенные тесты: 1
29.01.2011, 23:46 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

№1 (площадь)
Pascal
1
2
3
4
5
6
7
8
9
program EvGeN;
var
 a, b, S: integer;
begin
 writeln('Введите стороны прямоугольника:');
 readln(a, b);
 S:=a*b;
 writeln('Площадь - ',S);
end.
Добавлено через 1 минуту
№1 (периметр)
Pascal
1
2
3
4
5
6
7
8
9
program EvGeN;
var
 a, b, P: integer;
begin
 writeln('Введите стороны прямоугольника:');
 readln(a, b);
 P:=2*(a+b);
 writeln('Периметр - ',P);
end.
Добавлено через 2 минуты
№1 (диагональ)
Pascal
1
2
3
4
5
6
7
8
9
10
program EvGeN;
var
 a, b: integer;
 d: real;
begin
 writeln('Введите стороны прямоугольника:');
 readln(a, b);
 d:=sqrt(sqr(a)+sqr(b));
 writeln('Диагональ - ',d);
end.
0
marshal
Robin Bad на форуме
235 / 235 / 194
Регистрация: 14.12.2010
Сообщений: 513
30.01.2011, 12:28 5
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

6 задача
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program mas;
uses crt;
var a:array[1..20]of integer;i,l:integer;c:real;
begin
c:=0;l:=0;
for i:=1 to 20 do
begin
clrscr;
readln(a[i]);
if a[i]<0 then begin
c:=c+a[i];l:=l+1;end;
end;
for i:=1 to 20 do
begin
writeln(a[i]);
if a[i]<0 then writeln('  ',i,' отрицательный элемент ');
end;
c:=c/l;
writeln('средняя значение отрицательных элементов равна ',c);
end.
Добавлено через 7 минут
и третья
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program a_3;
uses crt;
var a,b:integer;x:real;
begin
clrscr;
writeln('введите переменые');
readln(a,b);
if (a=0)and(b=0) then
begin
writeln('x любое');
end;
if (a=0)and(b<>0) then
begin
writeln('нет решений');
end
else
begin
x:=-(b/a);
writeln(x);
end;
end.
0
30.01.2011, 12:28
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.01.2011, 12:28

Вычислить площадь и периметр прямоугольника
Даны 2 стороны прямоугольника. Вычислить площадь и периметр. Из получившихся...

Описать процедуру RectPS (x1, y1, x2, y2, P, S), вычисляющую периметр P и площадь S прямоугольника
Описать процедуру RectPS (x1, y1, x2, y2, P, S), вычисляющую периметр P и...

По данным сторонам прямоугольника вычислить его периметр, площадь и длину диагоналей
По данным сторонам прямоугольника вычислить его периметр (P), площадь (S) и...


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

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

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