Форум программистов и сисадминов CyberForum.ru
Вернуться   Форум программистов и сисадминов CyberForum.ru > Форум Форум программистов > Форум Pascal (Паскаль)
Восстановить пароль Регистрация

Ответ Создать новую тему
 
Старый 06.01.2010, 15:20   #1
Honney
Новичок
 
Регистрация: 06.01.2010
Сообщений: 3
Репутация: 0 (0)
Составьте программу для вычисления периметра прямоугольника / Pascal (Паскаль)

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

4. Введите с клавиатуры в массив пять целочисленных значений. Выведите их в одну строку через запятую. Получите для массива среднее арифметическое.
5.Дан целочисленный массив X[1..5, 1..4]. Заменить в нем все элементы, меньшие 5 числом 111.
Старый 06.01.2010, 15:25   #2
TAVulator
Форумчанин
 
Регистрация: 27.07.2009
Сообщений: 3,410
Репутация: 3916 (1077)
Лучшие ответы: 33
Цитата Сообщение от 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));
Другие темы раздела Форум программистов Pascal. Программирование с использованием языка Pascal (Паскаль). Помощь в решении задач.
Pascal поменять порядок букв в тексте на обратный.
поменять порядок букв в тексте на обратный. помогите пожалуйста
Преобразовать произвольный символа в ASCII-код. Pascal
помогите пожалуйста
Старый 06.01.2010, 15:31   #3
CFYZ
Форумчанин
 
Аватар для CFYZ
 
Регистрация: 21.11.2009
Сообщений: 187
Репутация: 10 (10)
Цитата Сообщение от 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.
Старый 06.01.2010, 15:37   #4
Тамила
Форумчанин
 
Аватар для Тамила
 
Регистрация: 12.11.2009
Сообщений: 1,101
Репутация: 744 (543)
Лучшие ответы: 8
Цитата Сообщение от 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.
Старый 06.01.2010, 15:37
Google
Объявления
Составьте программу для вычисления периметра прямоугольника / Pascal (Паскаль)

Старый 06.01.2010, 16:08   #5
Snoopy
Форумчанин
 
Регистрация: 06.12.2008
Сообщений: 2,810
Репутация: 1906 (1077)
Лучшие ответы: 21
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.
Старый 06.01.2010, 17:15  [ТС]   #6
Honney
Новичок
 
Регистрация: 06.01.2010
Сообщений: 3
Репутация: 0 (0)
Цитата Сообщение от 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]
это немного не то...ввод нужен с клавиатуры.
Старый 06.01.2010, 17:43   #7
Snoopy
Форумчанин
 
Регистрация: 06.12.2008
Сообщений: 2,810
Репутация: 1906 (1077)
Лучшие ответы: 21
Код 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.
Старый 06.01.2010, 17:43
Yandex
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Автор
С++ для начинающих Написать функцию вычисления периметра прямоугольника
Написать функцию вычисления периметра прямоугольника
Каныч***
Visual Basic Создать программу для вычисления площади и периметра треугольника по заданным длинам сторон
Сабж...
Fanis
Pascal (Паскаль) Объявить запись, задающую ромб. Составить программу с процедурой ввода даных ромба для вычисления периметра и площади.
Объявить запись, задающую ромб. Составить программу с процедурой ввода даных ромба для вычисления периметра и площади. решите пожайлуста!!!
777pas
Pascal (Паскаль) Составить программу с процедурой ввода даных ромба для вычисления периметра и площади
1. Дан файл F, компоненты которого являются действительными числами. Число компонент файла кратно 2-м. Получить в файле Y наибольшее из каждых 2-х компонент файла F. 2. Объявить запись, задающую ромб. Составить программу с процедурой ввода даных ромба для вычисления периметра и площади. как?...
777pas
Delphi для начинающих Пограмма для вычисления площади,периметра и диагонали прямоугольника
Нужно написать прогу для вычисления площади,периметра и длинны диагонали прямоугольника,с клавиатуры должно вводится соответственно 2 числа,в самой консоли в принципе написал,но вычисляет не правильно помогите плиз,я новичок,очень простая задача,ну я не додумываюсьvar a,b: Extended; S,P,D:...
Leto
Опции темы

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

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