Паскаль - ФОРУМ ПОСТУПИМ.РУ

Паскаль

Hitch

Дата: Воскресенье, 2010-12-12, 11:20 PM | Сообщение # 1

Магистр

Группа: Проверенные

Сообщений: 226

Репутация: 114

Награды: 13

Замечания: 0%

Статус: Offline

Народ, кто шарит в Паскале, помогите, пожалуста. Вот к этой проге

Code

program uporyadochivanie;
uses crt;
var
a:array[1..10] of integer;
i,prom,j,n,k:integer;
begin
clrscr;
writeln('vvedit 10 chisel massiva : ');
for i:=1 to 10 do
read(a[i]);
writeln('massiv a do perestanovlennia : ');
i:=1;
while i<=10 do
begin
k:=1;
while (k<=5) and (i<=10) do
begin
write(a[i]:5);
i:=i+1;
k:=k+1;
end;
writeln;
end;

begin
n:=10;
for i:=2 to n do
for j:=n downto i do
if a[j-1]>a[j] then
begin
prom:=a[j-1];
a[j-1]:=a[j];
a[j]:=prom;
end;
end;
writeln('massiv posle perestanovki : ');
for i:=1 to 10 do
write(a[i],' ');
readln;
readln;
end.

Программе задан одноизмеримый массив из 10 чисел. Она упорядочивает массив в порядке возрастания и печатает входной и исходный массив.

нужна блок-схема. Очень срочно.. ко вторнику, от этого зависит зачёт по информатике.
С меня шоколадка)) Помогите неучу-юристу))

АГП РФ, 3 курс, ПСФ.

Сессия:
КПЗС - 4.
КПРФ - 5.
Гражданское право (общая часть) - 5.
Уголовное право (общая часть) - 5.
Ин. яз. - 5.

prm2008

Дата: Понедельник, 2010-12-13, 6:04 PM | Сообщение # 2

Профессор

Группа: Проверенные

Сообщений: 815

Репутация: 1199

Награды: 64

Замечания: 0%

Статус: Offline

Hitch, удачи на зачёте)

Прикрепления: 8364800.jpg (124.9 Kb)

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

Invidia

Дата: Воскресенье, 2010-12-19, 4:16 PM | Сообщение # 3

Студент

Группа: Пользователи

Сообщений: 41

Репутация: 47

Награды: 2

Замечания: 0%

Статус: Offline

Город: Санкт-Петербург

есть внешний файл содержащий информацию о вузах, всего вузов 10, нужно создать базу данных и вывести на экран в виде таблицы, вузы должны быть в массиве

таким образом информация записана во внешнем файле :
лэти{вуз1}
фрт{факультет}
150{cредний бал для поступления}
Долохов{декан}
ул.попова{адрес}
политехнический{вуз второй}
биофизики
220
Иванова
пр.полюстровский и т.д.

Code

type
facultetrec=record
cafedra: string[50];
adress: string[50];
end;
univerrec=record
facultet:facultetrec;
srbal:integer;
decan:string[20];
end;
a_array=array[1..10] of univerrec;

var
univer:univerrec;
a:a_array;
i,n:integer;
f:text;
s: string;

begin
assign (f,'C:\Documents and Settings\user\Рабочий стол\паскаль\3.txt');
reset (f);

вот а как считать из внешнего файла в паскаль, а потом сформировать таблицу, я не знаю

Я похож на новый икарус-у меня такая же улыбка(с)