Turbo pascal » Страница 4

HELP!!!!!!!!

могу ошибаться, оч долго не трогал паскаль, так что косяки в синтаксисие возможны
но думаю это может выглядеть как то так:

const n=20;
uses crt;
var A:array[1..n,1..n] of real;
B:array[1..n1,1..n] of real;
i:byte;
j:byte;
begin
randomize;
{заполняем массив случайными числами}
for i:=1 to n do
for j:=1 to n do
begin
A[i,j]:=random(100);
end;

{заполняем второй массив }
{Bi,j=i*A[I,j]/2*sin(A[I,j])}

for i:=1 to n do
for j:=1 to n do
begin
B[i,j]:=i*A[I,j]/2*sin(A[I,j])
end;

{выводим на экран}

for i:=1 to n do
begin
for j:=1 to n do
begin
write(B[i,j])
end;
writeln();
end;

readkey;

end;

Ну вот и сделали за него работу.

а можно вообще это все в 1 процедуру затолкать, тогда красота будет)

begin
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
A[i,j]:=random(100); {заполняем элементы случайными числами}
B[i,j]:=i*A[I,j]/2*sin(A[I,j]) {сразу задаем элементы второго массива}
write(B[i,j])
end;
writeln(); {переводим строку}
end;
readkey;
end.

Помогите нарисовать в Pascal ABC примерно такой рисунок.

Прикрепленный файл #1: 39_fotka671.jpg | скачать с зеркала | (125,44 Kb)

Всем привет! Подскажите пожалуйста, очень срочно нужно сделать кучу задач, вопрос такой: нужно из одномерного массива вывести четные и нечетные числа, понимаю что через if нужно сортировать элементы, но не знаю как правильно написать, начало такое:
Program stupidprog;
Uses crt;
Var a: array[1..10] of integer;
i, n:integer
Begin
Clrcsr;
Write('ввести кол-во элементов в массиве = ');
Read(n);
Writeln;
For i:=1 to n do
A[i]:=random(100);
For i:=1 to n do
Write(a[i],' ');
Writeln;

А дальше никак не пойму как составить сортировку четных, а потом не четных чисел, да еще их в порядке возрастания надо:( помогите пожалуйста.

это элементарно
число четное, если делится на 2 без остатка, нечетное - соответственно с остатком
последовательно перебираешь все элементы исходного массива, выясняешь для каждого к какой категории он принадлежит, можешь затолкать его в новый массив (всего 2 - для четных и нечетных)
а потом например пузырьковой сортировкой отсортировать полученные 2 массива и делать с ними что хочешь

Мда, я еще неделю буду их сортировать:( наткнулся на сайт о аbc.net синтаксис немного другой, но более менее понятно, нашел и сортировку и четность чисел, буду копаться дальше пасиб

Да и на паскале мне кажется куча примеров сортировки должна быть.

Кто знает как из одного в другой массив перекинуть элементы? пример напишите пожалуйста какой-нибудь