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

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

Pascal Составить программу с процедурой ввода даных ромба для вычисления периметра и площади
Pascal Объявить запись, задающую ромб. Составить программу с процедурой ввода даных ромба для вычисления периметра и площади.
Pascal ABC Составьте программу для вычисления времени
Pascal ABC Составьте программу для вычисления суммы
Turbo Pascal Составьте программу для вычисления суммы
Pascal ABC Составить программу расчета площади и периметра прямоугольника при заданных длинах сторон
PascalABC.NET Надо составить программу для вычисления гипотенузы, площади и периметра прямоугольного треугольника
Turbo Pascal Составьте программу для вычисления суммы
TAVulator
Форумчанин
3935 / 1096 / 37
Регистрация: 27.07.2009
Сообщений: 3,454
06.01.2010, 16: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
Регистрация: 22.11.2009
Сообщений: 187
06.01.2010, 16: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, 16: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, 17: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, 18: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, 18: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, 18:43     Составьте программу для вычисления периметра прямоугольника
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Опции темы

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