Паскаль блок схема - Форум
Среда, 07.12.2016, 11:34
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Паскаль блок схема
Паскаль блок схема
Дата: Воскресенье, 24.04.2011, 15:49 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 3
[ 0 ]
Статус: Offline
Помогите составить блок схему.
Program z1;
Var i,j:integer;
X,Y:array[1..15] of real;
buf:real;
Begin
writeln('Введите элементы массива');
for i:=1 to 15 do
begin
write('Введите X[',i,']=');
read(X[i]);
end;
for i:=1 to 4 do
for j:=i+1 to 5 do
if x[i]>x[j] then
begin
buf:=x[i];
x[i]:=x[j];
x[j]:=buf;
end;
for i:=6 to 9 do
for j:=i+1 to 10 do
if x[i]>x[j] then
begin
buf:=x[i];
x[i]:=x[j];
x[j]:=buf;
end;
for i:=11 to 14 do
for j:=i+1 to 15 do
if x[i]>x[j] then
begin
buf:=x[i];
x[i]:=x[j];
x[j]:=buf;
end;
writeln;
for i:=1 to 5 do
begin
y[i]:=x[i];
y[i+5]:=x[i+5];
y[i+10]:=x[i+10];
end;
for i:=1 to 15 do
writeln(x[i]);
end.

Добавлено (24.04.2011, 15:49)
---------------------------------------------
Program z2;
var i,j,k:integer;
A:array[1..3,1..1] of real;
AT:array[1..1,1..3] of real;
B:array[1..3,1..3] of real;
C:array[1..1,1..3] of real;
Begin
for i:=1 to 3 do
for j:=1 to 1 do
begin
writeln('Введите элементы матрицы А');
write('A[',i,',',j,']=');
readln(A[i,j]);
end;
writeln;
for i:=1 to 3 do
for j:=1 to 3 do
begin
writeln('Введите элементы матрицы В');
write('B[',i,',',j,']=');
readln(B[i,j]);
end;
writeln;
writeln('Элементы транспонированной матрицы А следующие:');
for i:=1 to 3 do
begin
AT[1,i]:=A[i,1];
write('AT[',1,',',i,']=',AT[1,i]:5:2,' ');
end;
writeln;
writeln('Матрица С:');
for i:=1 to 1 do
begin
for j:=1 to 3 do
begin
for k:=1 to 3 do
C[i,j]:=c[i,j]+a[i,k]*b[k,j];
write('C[',i,',',j,']=',c[i,j]:5:2);
end;
writeln;
end;
end.

 
KOT_B_MEIIIKEДата: Воскресенье, 24.04.2011, 16:25 | Сообщение # 2
Генералиссимус
Группа: Модераторы
Сообщений: 284
[ 36 ]
Статус: Offline
вы бы не могли написать сюда алгоритм, а не программу?
 
Дата: Воскресенье, 24.04.2011, 17:31 | Сообщение # 3
Рядовой
Группа: Новичок
Сообщений: 3
[ 0 ]
Статус: Offline
program z2
Прикрепления: 2064439.png(7Kb)


Сообщение отредактировал - Воскресенье, 24.04.2011, 20:03
 
KOT_B_MEIIIKEДата: Понедельник, 25.04.2011, 21:01 | Сообщение # 4
Генералиссимус
Группа: Модераторы
Сообщений: 284
[ 36 ]
Статус: Offline
Надо вставить в программ обнуление массива С, иначе результат будет... непредсказуем. (в блок схеме есть)
http://files.mail.ru/P0BYKI
 
Дата: Среда, 27.04.2011, 17:46 | Сообщение # 5
Рядовой
Группа: Новичок
Сообщений: 3
[ 0 ]
Статус: Offline
Душевно, сердечно, благодарен.
 
KOT_B_MEIIIKEДата: Среда, 27.04.2011, 19:06 | Сообщение # 6
Генералиссимус
Группа: Модераторы
Сообщений: 284
[ 36 ]
Статус: Offline
=)
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Паскаль блок схема
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016