Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
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
TAVulator
Форумчанин
3930 / 1091 / 35
Регистрация: 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));
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
Форумчанин
1907 / 1078 / 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
Форумчанин
1907 / 1078 / 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
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
C (СИ) Написать функцию вычисления периметра прямоугольника
Написать функцию вычисления периметра прямоугольника
C для начинающих AlenaNsK 28.05.2014 18:36
PascalABC.NET Надо составить программу для вычисления гипотенузы, площади и периметра прямоугольного треугольника
Надо составить программу для вычисления гипотенузы, площади и периметра прямоугольного треугольника.
PascalABC.NET Artist33 01.03.2014 08:26
Pascal ABC Составить программу расчета площади и периметра прямоугольника при заданных длинах сторон
Составить программу расчета площади и периметра прямоугольника при заданных длинах сторон. / Pascal ABC
Pascal ABC Миленькая 15.02.2014 18:59
Pascal ABC Составьте программу для вычисления времени
Вообще никаких идей, помогите...
Pascal ABC DIStar 09.12.2012 17:05
C++ Написать функцию вычисления периметра прямоугольника
Написать функцию вычисления периметра прямоугольника
С++ для начинающих Каныч*** 03.04.2012 14:22
Pascal Объявить запись, задающую ромб. Составить программу с процедурой ввода даных ромба для вычисления периметра и площади.
Объявить запись, задающую ромб. Составить программу с процедурой ввода даных ромба для вычисления периметра и площади. решите пожайлуста!!!
Pascal (Паскаль) 777pas 28.01.2010 21:35
Pascal Составить программу с процедурой ввода даных ромба для вычисления периметра и площади
1. Дан файл F, компоненты которого являются действительными числами. Число компонент файла кратно 2-м. Получить в файле Y наибольшее из каждых 2-х компонент файла F. 2. Объявить запись, задающую...
Pascal (Паскаль) 777pas 28.01.2010 19:17
Delphi Пограмма для вычисления площади,периметра и диагонали прямоугольника
Нужно написать прогу для вычисления площади,периметра и длинны диагонали прямоугольника,с клавиатуры должно вводится соответственно 2 числа,в самой консоли в принципе написал,но вычисляет не...
Delphi для начинающих Leto 12.12.2009 19:51
Опции темы

Текущее время: 15:34. Часовой пояс GMT +4.

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.