Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 87, средняя оценка - 4.71
Honney
0 / 0 / 0
Регистрация: 06.01.2010
Сообщений: 3
#1

Составьте программу для вычисления периметра прямоугольника - Pascal

06.01.2010, 15:20. Просмотров 11983. Ответов 6
Метки нет (Все метки)

1.Составьте программу для вычисления периметра прямоугольника
2. Заданы числа a и b. Определить, эти числа одного или разных знаков.
3. Составьте программу, выводящую на экран квадраты чисел от 10 до 20.

4. Введите с клавиатуры в массив пять целочисленных значений. Выведите их в одну строку через запятую. Получите для массива среднее арифметическое.
5.Дан целочисленный массив X[1..5, 1..4]. Заменить в нем все элементы, меньшие 5 числом 111.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.01.2010, 15:20
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Составьте программу для вычисления периметра прямоугольника (Pascal):

Составить программу с процедурой ввода даных ромба для вычисления периметра и площади - Pascal
1. Дан файл F, компоненты которого являются действительными числами. Число компонент файла кратно 2-м. Получить в файле Y наибольшее из...

Тип данных "запись", вычисления периметра прямоугольника - Pascal
написать программу, в которой осуществляются вычисления периметра прямоугольника. стороны прямоугольника оформить в виде записи.

Объявить запись, задающую ромб. Составить программу с процедурой ввода даных ромба для вычисления периметра и площади. - Pascal
Объявить запись, задающую ромб. Составить программу с процедурой ввода даных ромба для вычисления периметра и площади. решите...

Составьте программу для вычисления длин высот треугольника - Pascal
1)Составьте программу для вычисления длин высот треугольника, у которого длины сторон a, b, c. 2)Создайте массив из пяти фамилий и...

Составьте программу для вычисления следующего выражения и функции - Pascal
Составьте программу для вычисления следующего выражения и функции Y=(квадратный корень b2− c2)2

составте программу вычисления периметра - Pascal
составте программу вычисления периметра и площади треугольника по введенным в диалоге трем сторонам,откомпилируйте и проверьте ее действие.

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
TAVulator
3945 / 1103 / 70
Регистрация: 27.07.2009
Сообщений: 3,443
06.01.2010, 15:25 #2
Цитата Сообщение от Honney Посмотреть сообщение
1.Составьте программу для вычисления периметра прямоугольника
Pascal
1
2
3
Readln(A);
Readln(B);
P:=(2*A)+(2*B);
Цитата Сообщение от Honney Посмотреть сообщение
3. Составьте программу, выводящую на экран квадраты чисел от 10 до 20.
Pascal
1
2
For i:=10 to 20 do
 Writeln(sqr(i));
1
CFYZ
10 / 10 / 0
Регистрация: 21.11.2009
Сообщений: 187
06.01.2010, 15:31 #3
Цитата Сообщение от Honney Посмотреть сообщение
1.Составьте программу для вычисления периметра прямоугольника
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program wwww;
uses crt;
var
a:integer;
b:integer;
p:integer;
begin
p:=0;
write('Vvedite a=  ');
read(a);
write('Vvedite b=  ');
read(b);
p:=(2*a)+(2*b);
writeln('Perimetr raven= ',p);
read;
end.
1
Тамила
750 / 544 / 84
Регистрация: 12.11.2009
Сообщений: 1,100
06.01.2010, 15:37 #4
Цитата Сообщение от Honney Посмотреть сообщение
2. Заданы числа a и b. Определить, эти числа одного или разных знаков.
->
Pascal
1
2
3
4
5
6
7
8
9
10
uses crt;
var
a,b:integer;
begin clrscr;
write('a='); read(a);
write('b='); read(b);
if ((a>0)and(b>0)) or ((a<0)and(b<0)) then writeln('chisla odnogo znaka')
else writeln('chisla raznyh znakov');
readkey;
end.
2
Snoopy
1912 / 1069 / 90
Регистрация: 06.12.2008
Сообщений: 2,802
06.01.2010, 16:08 #5
4
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
25
26
27
28
uses crt;
const n=5;
var a:array[1..n,1..n] of integer;
    i,j,sum:integer;
begin
ClrScr;
Randomize;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(20)-10;
    Write(a[i,j]:4);
   end;
  Writeln;
 end;
Writeln;
sum:=0;
 for i:=1 to n do
  for j:=1 to n do
   sum:=sum+a[i,j];
for i:=1 to n do
 for j:=1 to n do
  Write(a[i,j],',');
Writeln;
Writeln('Sr=',sum/n:0:3);
Readln;
end.
5
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
25
26
27
28
29
30
31
32
33
uses crt;
const n=5;
      m=4;
var a:array[1..n,1..m] of integer;
    i,j,sum:integer;
begin
ClrScr;
Randomize;
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(20)-10;
    Write(a[i,j]:6);
   end;
  Writeln;
 end;
Writeln;
 for i:=1 to n do
  for j:=1 to m do
   if a[i,j]<5 then
    a[i,j]:=111;
Writeln;
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    Write(a[i,j]:6);
   end;
  Writeln;
 end;
Readln;
end.
1
Honney
0 / 0 / 0
Регистрация: 06.01.2010
Сообщений: 3
06.01.2010, 17:15  [ТС] #6
Цитата Сообщение от Snoopy Посмотреть сообщение
4
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
25
26
27
28
uses crt;
const n=5;
var a:array[1..n,1..n] of integer;
    i,j,sum:integer;
begin
ClrScr;
Randomize;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(20)-10;
    Write(a[i,j]:4);
   end;
  Writeln;
 end;
Writeln;
sum:=0;
 for i:=1 to n do
  for j:=1 to n do
   sum:=sum+a[i,j];
for i:=1 to n do
 for j:=1 to n do
  Write(a[i,j],',');
Writeln;
Writeln('Sr=',sum/n:0:3);
Readln;
end.
[/PASCAL]
это немного не то...ввод нужен с клавиатуры.
0
Snoopy
1912 / 1069 / 90
Регистрация: 06.12.2008
Сообщений: 2,802
06.01.2010, 17:43 #7
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
25
26
27
28
29
30
31
uses crt;
const n=5;
var a:array[1..n,1..n] of integer;
    i,j,sum:integer;
begin
ClrScr;
Randomize;
 for i:=1 to n do
  for j:=1 to n do
   Readln(a[i,j]);
Writeln;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    Write(a[i,j]:4);
   end;
  Writeln;
 end;
Writeln;
sum:=0;
 for i:=1 to n do
  for j:=1 to n do
   sum:=sum+a[i,j];
for i:=1 to n do
 for j:=1 to n do
  Write(a[i,j],',');
Writeln;
Writeln('Sr=',sum/n:0:3);
Readln;
end.
2
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.01.2010, 17:43
Привет! Вот еще темы с ответами:

Составьте программу, определяющую, могут ли эти числа быть величинами углов параллеграмма, прямоугольника, трапеции ил произвольного четырехугольника - Pascal
Даны значения четырех углов a, b, c, d в градусах. Составьте программу, определяющую, могут ли эти числа быть величинами углов...

Вычисление периметра и площади прямоугольника, через данные из файла - Pascal
Помогите написать программу вычисления периметра и площади прямоугольника, через данные из файла и запись результата в другой. ...

Составьте программу вычисления площади треугольника - Pascal
Треугольник задан координатами своих вершин . Составте программу вычисления его площадь. (Pascal)

Составьте программу вычисления функции и печати - Pascal
помогите :wall:


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

Или воспользуйтесь поиском по форуму:
Yandex
Объявления
06.01.2010, 17:43
Ответ Создать тему
Опции темы

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