Форум программистов, компьютерный форум CyberForum.ru
CyberForum.ru - форум программистов и сисадминов > >
Восстановить пароль Регистрация
 
Honney
Новичок
0 / 0 / 0
Регистрация: 06.01.2010
Сообщений: 3
06.01.2010, 15:20     Составьте программу для вычисления периметра прямоугольника   #1
1.Составьте программу для вычисления периметра прямоугольника
2. Заданы числа a и b. Определить, эти числа одного или разных знаков.
3. Составьте программу, выводящую на экран квадраты чисел от 10 до 20.

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

Посмотрите здесь:

Pascal Составить программу с процедурой ввода даных ромба для вычисления периметра и площади

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

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

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

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

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

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

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

PascalABC.NET Надо составить программу для вычисления гипотенузы, площади и периметра прямоугольного треугольника

TAVulator
Форумчанин
3932 / 1093 / 36
Регистрация: 27.07.2009
Сообщений: 3,449
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));
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.
Тамила
Форумчанин
747 / 546 / 8
Регистрация: 12.11.2009
Сообщений: 1,101
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.
Snoopy
Форумчанин
1908 / 1079 / 21
Регистрация: 06.12.2008
Сообщений: 2,810
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.
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]
это немного не то...ввод нужен с клавиатуры.
Snoopy
Форумчанин
1908 / 1079 / 21
Регистрация: 06.12.2008
Сообщений: 2,810
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.
Yandex
Объявления
06.01.2010, 17:43    Составьте программу для вычисления периметра прямоугольника
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему
Опции темы

Текущее время: 08:19. Часовой пояс GMT +4.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.