Практическая работа №6. Одномерные массивы

1. Дан одномерный массив , значения элементов которого задаются случайным образом. Вычислить сумму квадратов элементов данного массива , больших некоторого числа M. На экран вывести исходный массив и полученный результат.

Содержание

Решение 1 задачи

program mypascal; 
uses crt; 
var 
a: array[1..10] of integer; 
m,i,s:integer; 
begin 

randomize; 
readln(m); 
s:= 0; 

for i:= 1 to 10 do 
begin 
a[i]:= random(21)-10; 
if ( a[i] > m ) then 
s:= s + a[i]*a[i]; 
write(a[i],' '); 
end; 

writeln(); 
writeln(s); 

end.

program mypascal;

uses crt;

var

a: array[1..10] of integer;

m,i,s:integer;

begin

randomize;

readln(m);

s:= ;

for i:= 1 to 10 do

begin

a[i]:= random(21)-10;

if ( a[i] > m ) then

s:= s + a[i]*a[i];

write(a[i],' ');

end;

writeln();

writeln(s);

end.

2. Дан одномерный массив , значения элементов которого вводятся с клавиатуры. Поменять максимальный и минимальный элементы данного массива местами. На экран вывести исходный массив и полученный результат.

Решение 2 задачи

program mypascal; 
uses crt; 
var 
a: array[1..10] of integer; 
max,min,c,i:integer; 
begin 

for i:= 1 to 10 do 
read(a[i]); 

max:= 1; 
min:= 1; 

for i:= 2 to 10 do 
begin 
if ( a[i] > a[max] ) then 
max:= i; 
if ( a[i] < a[min] ) then 
min:= i; 
end; 

c:= a[max]; 
a[max]:= a[min]; 
a[min]:= c; 
<div style="clear:both; margin-top:0em; margin-bottom:1em;"><a href="http://mypascal.ru/paskal-prakticheskie-raboty/prakticheskaja-rabota-7-sozdanie-programm-linejnoj-struktury/" target="_blank" rel="nofollow" class="IRPP_shock"><!-- INLINE RELATED POSTS 1/5 //--><style> .IRPP_shock , .IRPP_shock .postImageUrl , .IRPP_shock .centered-text-area { min-height: 80px; position: relative; } .IRPP_shock , .IRPP_shock:hover , .IRPP_shock:visited , .IRPP_shock:active { border:0!important; } .IRPP_shock .clearfix:after { content: ""; display: table; clear: both; } .IRPP_shock { display: block; transition: background-color 250ms; webkit-transition: background-color 250ms; width: 100%; opacity: 1; transition: opacity 250ms; webkit-transition: opacity 250ms; background-color: #E67E22; } .IRPP_shock:active , .IRPP_shock:hover { opacity: 1; transition: opacity 250ms; webkit-transition: opacity 250ms; background-color: #D35400; } .IRPP_shock .centered-text-area { width: 100%; position: relative; } .IRPP_shock .ctaText { border-bottom: 0 solid #fff; color: #ECF0F1; font-size: 16px; font-weight: bold; margin: 0; padding: 0; text-decoration: underline;float: left; } .IRPP_shock .postTitle { color: #2C3E50; font-size: 16px; font-weight: 600; margin: 0; padding: 0; width: 100%; } .IRPP_shock .ctaButton { background-color: #D35400!important; color: #ECF0F1; border: none; border-radius: 3px; box-shadow: none; font-size: 14px; font-weight: bold; line-height: 26px; moz-border-radius: 3px; text-align: center; text-decoration: none; text-shadow: none; width: 80px; min-height: 80px; background: url(http://mypascal.ru/wp-content/plugins/intelly-related-posts-pro/assets/images/simple-arrow.png)no-repeat; position: absolute; left: 0; top: 0; } .IRPP_shock:hover .ctaButton { background-color: #E67E22!important; } .IRPP_shock .centered-text { display: table; height: 80px; padding-right: 18px; top: 0;width: 100%; } .IRPP_shock .IRPP_shock-content { display: table-cell;margin: 0;padding: 0;padding-left: 108px;position: relative;vertical-align: middle;width: 100%;padding-right: 18px; } .IRPP_shock:after { content: ""; display: block; clear: both; } </style><div class="centered-text-area"><div class="centered-text"><div class="IRPP_shock-content"><span class="ctaText">Читать</span>  <span class="postTitle">ПРАКТИЧЕСКАЯ РАБОТА № 7 – Создание программ линейной структуры</span></div></div></div><div class="ctaButton"></div></a></div>
for i:= 1 to 10 do 
write(a[i],' '); 

end.

program mypascal;

uses crt;

var

a: array[1..10] of integer;

max,min,c,i:integer;

begin

for i:= 1 to 10 do

read(a[i]);

max:= 1;

min:= 1;

for i:= 2 to 10 do

begin

if ( a[i] > a[max] ) then

max:= i;

if ( a[i] < a[min] ) then

min:= i;

end;

c:= a[max];

a[max]:= a[min];

a[min]:= c;

for i:= 1 to 10 do

write(a[i],' ');

end.

3. Дан одномерный массив , значения которого вводятся с клавиатуры . Вычислить количество отрицательных элементов данного массива. На экран вывести исходный массив и полученный результат.

Решение 3 задачи

program mypascal; 
var 
a: array[1..10] of integer; 
i,n:integer; 
begin 

n:= 0; 

for i:= 1 to 10 do 
begin 
readln(a[i]); 
if ( a[i] < 0 ) then 
inc(n); 
end; 

for i:= 1 to 10 do 
write(a[i],' '); 

writeln(); 
writeln(n); 

end.

program mypascal;

var

a: array[1..10] of integer;

i,n:integer;

begin

n:= ;

for i:= 1 to 10 do

begin

readln(a[i]);

if ( a[i] < ) then

inc(n);

end;

for i:= 1 to 10 do

write(a[i],' ');

writeln();

writeln(n);

end.

4. Дан одномерный массив , значения элементов которого вводятся с клавиатуры. Отрицательные элементы данного массива заменить их модулями , нулевые остаются неизменными , а положительные квадратами. На экран вывести исходный массив и полученный результат.

Читать Использование подпрограмм Паскаль – Процедуры и функции

Решение 4 задачи

program mypascal; 
var 
a: array[1..10] of integer; 
i:integer; 
begin 

for i:= 1 to 10 do 
begin 
readln(a[i]); 
if ( a[i] < 0 ) then 
a[i]:= a[i]*(-1) 
else 
if ( a[i] > 0 ) then 
a[i]:= a[i]*a[i]; 
end; 

for i:= 1 to 10 do 
write(a[i],' '); 

end.

program mypascal;

var

a: array[1..10] of integer;

i:integer;

begin

for i:= 1 to 10 do

begin

readln(a[i]);

if ( a[i] < ) then

a[i]:= a[i]*(-1)

else

if ( a[i] > ) then

a[i]:= a[i]*a[i];

end;

for i:= 1 to 10 do

write(a[i],' ');

end.

5. Дан одномерный массив , значения элементов которого вводятся с клавиатуры. Выяснить , каких элементов больше — положительных или отрицательных и насколько. На экран вывести исходный массив и полученный результат.

Решение 5 задачи

program mypascal; 
var 
a: array[1..10] of integer; 
i,x,y:integer; 
begin 

x:= 0; 
y:= 0; 

for i:= 1 to 10 do 
begin 
readln(a[i]); 
if ( a[i] < 0 ) then 
inc(x) ; 
if ( a[i] > 0 ) then 
inc(y); 
end; 

for i:= 1 to 10 do 
write(a[i],' '); 

writeln(); 

if ( x > y ) then 
writeln('Отрицательных больше на ',x-y); 
if ( x < y ) then 
writeln('Положительных больше на ',y-x); 

end.

program mypascal;

var

a: array[1..10] of integer;

i,x,y:integer;

begin

x:= ;

y:= ;

for i:= 1 to 10 do

begin

readln(a[i]);

if ( a[i] < ) then

inc(x) ;

if ( a[i] > ) then

inc(y);

end;

for i:= 1 to 10 do

write(a[i],' ');

writeln();

if ( x > y ) then

writeln('Отрицательных больше на ',x-y);

if ( x < y ) then

writeln('Положительных больше на ',y-x);

end.

Читать ПРАКТИЧЕСКАЯ РАБОТА №8 – Применение циклов к решению задач

[Всего голосов: 5 Средний: 5/5]

« Поиск Максимального Элемента и Минимального Элемента в Массиве Паскаль

Практическая работа №1 – Работа в среде Delphi | Свойства компонента Label »