Паскаль

[Hallucinogin]

Помогите решить задачу с блок-схемой и программой...

Даны два массива А(10) и В(9) вещественных чисел. Найти и напечатать сумму значений элементов массива А и произведение значений элементов массива В. Увеличить каждый элемент массива, имеющего наибольшее колличество нулей на 10, и вывести измененный массив на экран.

[Chudo4258]

S:=0;
for i:=1 to 10 do
 S:=S+A[i];

P:=1;
for i:=1 to 9 do
 P:=P*B[i];

a0:=0;
for i:=1 to 10 do
 if A[i]=0 then inc(a0);

b0:=0;
for i:=1 to 9 do
 if B[i]=0 then inc(b0);

if a0<b0 then 
                  for i:=1 to 10 do
                   begin
                   A[i]:=A[i]+10;
                   write(A[i],'   ');
                   end
             else
                  for i:=1 to 9 do
                   begin
                   B[i]:=B[i]+10;
                   write(B[i],'   ');
                   end;

[Hallucinogin]

Спасибо большое)))
А блок схему, ну пожаалуйста))))

[Chudo4258]

Сообщение от Hallucinogin

А блок схему, ну пожаалуйста))))

дак скачайте програму (их щас полно всяких в инете), которые по коду проят блок-схему.

[юля11]

помогите написать две программы по массивам,пожалуйста:1. Образовать массив x, упорядоченный по неубыванию, и массив y, упорядоченный по невозрастанию, используя фрагмент программы:
CONST
k = 50;
m = 20;
n = k + m;
VAR
x: array [1..k] of real;
y: array [1..m] of real;
z: array [1..n] of real;
Объединить элементы этих двух массивов в один массив z так, чтобы они оказались упорядоченными по неубыванию.
2. Определить симметричность элементов каждой строки образованной случайной вещественной матрицы А (20х40 ) посредством функции, проверяющей симметричность числа.

[юля11]

помогите найти ошибки:задача:1. Образовать массив x, упорядоченный по неубыванию, и массив y, упорядоченный по невозрастанию, используя фрагмент программы:
CONST
k = 50;
m = 20;
n = k + m;
VAR
x: array [1..k] of real;
y: array [1..m] of real;
z: array [1..n] of real;
Объединить элементы этих двух массивов в один массив z так, чтобы они оказались упорядоченными по неубыванию.
программа:Program Ex1;
uses crt;
const
k = 50;
m = 20;
n = k + m;
var
x : array[1..k] of real;
y : array[1..m] of real;
z : array[1..n] of real;
i,j: integer;
d: real;
maxi, mini : integer;

begin
d:=1.2;

for i:=1 to k do
begin
x[i]:=i+d;
end;

//Вывод первого массива X.
writeln('Массив X: ');
for i:=1 to k do
begin
write(x[i], ' ');
end;


for i:=m downto 1 do
begin
y[i]:=i-d;
end;

//Вывод второго массива Y.
writeln;
writeln('Массив Y: ');
for i:=m downto 1 do
begin
write(y[i], ' ');
end;


//Заполнение третьего массива Z. Сначала элементами X.
for i:=1 to k do
begin
z[i]:=x[i];
end;

//Заполнение третьего массива Z. Теперь элементами Y.
for i:=n downto k+1 do
begin
z[i]:=y[i-50];
end;

//Сортировка массива по неубыванию.
mini := 1;
for i:=1 to n-1 do
begin
for j:= i+1 to n do if (z[j] < z[mini]) then
mini := j;
d := z[i];
z[i] := z[mini];
z[mini]:= d;
end;

writeln;
writeln('Массив Z: ');
for i:=1 to k+m do
begin
write(z[i], ' ');
end;


end.
задача2:2. Определить симметричность элементов каждой строки образованной случайной вещественной матрицы А (20х40 ) посредством функции, проверяющей симметричность числа.
программа:Program CheckForSimmetry;
uses crt;

const
w = 20;
h = 40;
var
a: array[1..w,1..h] of real;
i,j: integer;
totalSimm: boolean;

function checkSimmetry(x: real): boolean;
var
temp,str: string;
len: integer;
dk,k,n: integer;
isSimmetryc: boolean;
begin
isSimmetryc := true;
str:=FloatToStr(x);
if (pos('.',str) <> 0) then
begin
temp:=copy(str,1,(pos('.',str)-1));
temp:=temp+copy(str,(pos('.',str)+1 ),length(str));
end
else temp:=str;
if (StrToInt(temp[1]) = 0) then temp := copy(temp,2,length(temp));
n:=length(temp);
for k:=1 to n do
begin
dk := StrToInt(temp[k]);
if not (dk = StrToInt(temp[n - k + 1])) then isSimmetryc := false;
end;
result:=isSimmetryc;
end;
begin
randomize;
totalSimm := false;
for i:=1 to h do
begin
for j:=1 to w do a[j,i]:= (random(99900)*1.12345);
end;
//раскоментировать нижню строчку для проверки на симметричность.
//a[1,3]:=54345;


for i:=1 to h do
begin
for j:=1 to w do if (checkSimmetry(a[j,i])) then
begin
writeln('Симметрично: ',a[j,i]);
totalSimm := true;
end;
end;
if not(totalSimm) then writeln('Ни одно число не симметрично!');
end.

[юля11]

помогите найти ошибки:задача:1. Образовать массив x, упорядоченный по неубыванию, и массив y, упорядоченный по невозрастанию, используя фрагмент программы:
CONST
k = 50;
m = 20;
n = k + m;
VAR
x: array [1..k] of real;
y: array [1..m] of real;
z: array [1..n] of real;
Объединить элементы этих двух массивов в один массив z так, чтобы они оказались упорядоченными по неубыванию.
программа:Program Ex1;
uses crt;
const
k = 50;
m = 20;
n = k + m;
var
x : array[1..k] of real;
y : array[1..m] of real;
z : array[1..n] of real;
i,j: integer;
d: real;
maxi, mini : integer;

begin
d:=1.2;

for i:=1 to k do
begin
x[i]:=i+d;
end;

//Вывод первого массива X.
writeln('Массив X: ');
for i:=1 to k do
begin
write(x[i], ' ');
end;


for i:=m downto 1 do
begin
y[i]:=i-d;
end;

//Вывод второго массива Y.
writeln;
writeln('Массив Y: ');
for i:=m downto 1 do
begin
write(y[i], ' ');
end;


//Заполнение третьего массива Z. Сначала элементами X.
for i:=1 to k do
begin
z[i]:=x[i];
end;

//Заполнение третьего массива Z. Теперь элементами Y.
for i:=n downto k+1 do
begin
z[i]:=y[i-50];
end;

//Сортировка массива по неубыванию.
mini := 1;
for i:=1 to n-1 do
begin
for j:= i+1 to n do if (z[j] < z[mini]) then
mini := j;
d := z[i];
z[i] := z[mini];
z[mini]:= d;
end;

writeln;
writeln('Массив Z: ');
for i:=1 to k+m do
begin
write(z[i], ' ');
end;


end.
задача2:2. Определить симметричность элементов каждой строки образованной случайной вещественной матрицы А (20х40 ) посредством функции, проверяющей симметричность числа.
программа:Program CheckForSimmetry;
uses crt;

const
w = 20;
h = 40;
var
a: array[1..w,1..h] of real;
i,j: integer;
totalSimm: boolean;

function checkSimmetry(x: real): boolean;
var
temp,str: string;
len: integer;
dk,k,n: integer;
isSimmetryc: boolean;
begin
isSimmetryc := true;
str:=FloatToStr(x);
if (pos('.',str) <> 0) then
begin
temp:=copy(str,1,(pos('.',str)-1));
temp:=temp+copy(str,(pos('.',str)+1 ),length(str));
end
else temp:=str;
if (StrToInt(temp[1]) = 0) then temp := copy(temp,2,length(temp));
n:=length(temp);
for k:=1 to n do
begin
dk := StrToInt(temp[k]);
if not (dk = StrToInt(temp[n - k + 1])) then isSimmetryc := false;
end;
result:=isSimmetryc;
end;
begin
randomize;
totalSimm := false;
for i:=1 to h do
begin
for j:=1 to w do a[j,i]:= (random(99900)*1.12345);
end;
//раскоментировать нижню строчку для проверки на симметричность.
//a[1,3]:=54345;


for i:=1 to h do
begin
for j:=1 to w do if (checkSimmetry(a[j,i])) then
begin
writeln('Симметрично: ',a[j,i]);
totalSimm := true;
end;
end;
if not(totalSimm) then writeln('Ни одно число не симметрично!');
end.

[pashu83]

Помогите пожалуйста!!!

Составить программу, обеспечивающую ввод массива символьных строк (20 элементов массива по 70 символов в строке) и, если необходимо по условию варианта задания, то и ввод дополнительного символа или группы символов, а также выполнение процедуры, сущность которой сформулирована ниже.Результаты решения задачи вывести на экран монитора.

Вариант: Удалить из элементов исходного одномерного массива символьных строк только все начальные цифровые символы (первым символом каждой строки должен стать следующий за ними символ).

[pashu83]

Помогите пожалуйста!!!

Составить программу, обеспечивающую ввод массива символьных строк (20 элементов массива по 70 символов в строке) и, если необходимо по условию варианта задания, то и ввод дополнительного символа или группы символов, а также выполнение процедуры, сущность которой сформулирована ниже.Результаты решения задачи вывести на экран монитора.

Вариант: Удалить из элементов исходного одномерного массива символьных строк только все начальные цифровые символы (первым символом каждой строки должен стать следующий за ними символ).