Убедительная просьба ко всем, кто выкладывает исходники:
1. Обязательно пользуйтесь тэгом code (иначе очень трудно читать)
2. Старайтесь делать отступы

Если вы хотите чтобы вам помогли в написании программы, внятно излагайте задание!

Прежде чем задать вопрос, воспользуйтесь учебником


Возможно, что нужная вам программа уже написана, поэтому советую просмотреть список здесь и здесь
Отредактировано куратором: Lord_of_Darkness. Дата: 07.07.2006 19:36

именно


изменить > на < в процедуре сортировки
Постарайтесь хоть разобраться в логике - там же все наипростейшее.

Для каждой "выходной" переменной (с разными типами, если переменные имеют одинаковый тип, то они перечисляются через запятую), т.е. той переменной, которая является результатом работы процедуры.

Нет, только знак сравнения .

Найдите нормальную книжку или сетевой ресурс по Паскалю и не торопясь почитайте .

спасибо огромное за помощь!!!

все получилось!!!
да я всегда по возможности пытаюсь разобраться иначе какой смысл учится на программиста... да мне даже самому очень интересно!!!

Народ , интерсно ваше мнение кто рисовал на паскале...
Начал рисовать недавно, рисуя каждую линию заливая всё в ручную . Скажу я вам это гемор полный
Но отрыл прогу "Турбограф" . С помщью её можно рисовать мышкой от руки , а она всё перводит в код. На 90% облехчает работу.
Вот отсюда можно скачать если кому надо http://www.uni-vologda.ac.ru/~c3c/tg/index.html

Ответьте, как осуществить прокрутку экрана вверх вниз стрелками, если вывод очень большой и часть инфы ушла вверх?

tolikrog
могу предложить два варианта:
1. Делать постраничный вывод. На экран влезает 25 строк по 80 символов в каждой, выводите этот объем информации, потом ожидайте нажатия Enter (для этого используйте readln или readkey функции)
2. Сделайте буфер вывода - массив из string[80], забивайте все данные туда, сделайте счетчик и процедуру вывода по счетчику. В начале работы счетчик будет равен 0 и вывод будет осуществляться с 0-го элемента массива (буфера) вывода. По нажатию клавиш-стрелок инкрементируйте счетчик на +1 или на -1 и повторяйте весь вывод с помощью процедуры. Вывод можно делать просто циклом от строки, на которую указывает счетчик, до строки с индексом счетчик+24

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

народ помогите изменить часть проги что бы она складывала элементы строчек в массиве
вот прога
program laba_11;
uses crt;
type
Tmat=array[1..10,1..10] of integer;
Tvek=array[1..20] of integer;
var max,i,j,r,s:integer;
mt:Tmat;
vk:Tvek;
procedure sortirovka (r_proc:integer; var vk_proc:Tvek);
var tmp, i:integer;
flag:boolean;
begin
flag:=true;
while flag do
begin
flag:=false;
for i:=2 to r_proc*2 do
if vk_proc[i-1] < vk_proc[i] then
begin
tmp:=vk_proc[i-1];
vk_proc[i-1]:=vk_proc[i];
vk_proc[i]:=tmp;
flag:=true;
end;
end;
end;

begin
clrscr;
randomize;
writeln ('vvod razmernosti matrizy: ');
read (r);
writeln;
writeln ('isxodnay matriza:');
writeln;
for i:=1 to r do
begin
for j:=1 to r do
begin
mt[i,j]:=random(100);
write (mt[i,j]:3)
end;
writeln;
end;


s:=1;
for i:=1 to r do
begin
vk[s]:=mt[i,i];
inc(s);
end;
for i:=1 to r do
begin
vk[s]:=mt[i,r-i+1];
inc(s)
end;

writeln;
writeln ('vuvod vektora: ');
writeln;
for i:=1 to r*2 do
write (vk[i]:3);

writeln;
writeln;
writeln ('vuvod sortirovannogo vektora: ');
writeln;


sortirovka (r,vk);

for i:=1 to r*2 do
write (vk[i]:3);
readkey
end.
а изменить надо эту часть
procedure sortirovka (r_proc:integer; var vk_proc:Tvek);
var tmp, i:integer;
flag:boolean;
begin
flag:=true;
while flag do
begin
flag:=false;
for i:=2 to r_proc*2 do
if vk_proc[i-1] < vk_proc[i] then
begin
tmp:=vk_proc[i-1];
vk_proc[i-1]:=vk_proc[i];
vk_proc[i]:=tmp;
flag:=true;
end;
end;
end;
спасибо за ранее

спасиб да что то не успел

Какой командой можно осуществить выход из программы из процедуры?

Например, если использовать exit, то это выход только из прецедуры, а как будет полностью из всей программы?

можно через goto, но лучше делать логически, иначе будет путаница

Halt .

народ помогите в последний раз с прогой сгораю конец сессии осталось 2 дня
здесь надо сортировку переделать
program procx;
uses crt;
type
L=array[1..10,1..10] of integer;
k=array[1..10] of integer;
e=array[1..10] of integer;
var g, max,d,i,j,r,n,s:integer;
m:L;
v:k;
f:e;
procedure summa;
begin
for i:=1 to r do
begin
S:=0;
for j:=1 to r do
S:=S+m[i,j];
v[i]:=s;
end;

end;
begin
clrscr;
randomize;
writeln ('vvod razmernosti matrizy: ');
read (r);
writeln;
writeln ('isxodnay matriza:');
writeln;
for i:=1 to r do
begin
for j:=1 to r do
begin
m[i,j]:=random(100);
write (m[i,j]:4);
end;
writeln;
end;
summa;

writeln;
writeln ('vuvod vektora:');
writeln;
for i:=1 to r do
write (v[i]:4);
writeln;
writeln;
writeln ('vuvod sortirovannogo vektora - ');
writeln;
begin
begin
if f[i] < v[i] then
begin
g:=f[i];
f[i] := v[i];
v[i] := g
end;
end;
for i:=1 to r do
end;
write (f[i]:4);
readkey
end.


а эти две задачи сделать помогите пожалуйста а то сессию завалю
Даны натуральные числа K и N. Составить программу формирования массива А, элементами которого являются числа, сумма цифр которых равна К и которые не больше N.
и
Написать программу для вычисления члена последовательности Фибоначчи, для которого рекуррентное соотношение: F(1) = 1, F(2) = 1, для любого n>2 F(n) = F(n-1) + F(n-2).
и
Дан целочисленный массив, состоящий из 12 элементов. Определить сумму элементов с чётными индексами и сумму элементов с нечётными индексами.

maco писал(а):

Если бы некоторые личности читали первый пост в теме и слегка думали, то было бы лучше .

Если бы еще некоторые стУденты умели пользоваться поисковыми машинами, то они бы сдавали сессию >:) >;).

если бы эти студенты появлялись на парах и все записывали и немного думали они бы здесь не выпрашивалибы помощь)))

согласен просто думать иногда лень))))

давайте без флуда

Задачка простая, но после матан'а в голову ничего уже не лезет, а сдать нужно завтра.
"Составить блок-схему к задаче:
Подсчитать количество цифр в позиционной записи целого числа (возможно отрицательного) в системе счисления с заданным основанием. Число задано своим значением."
Вопрос в том, что немного не пойму, как её написать на паскале, вот и трудность с блок-схемой.
P. S. просьба новичка сильно не пинать, как тут было написано - "стану крутым - выручу"))
Вот код, точнее зачатки):

а вот дальше сложность, думаю, надо как-то через div делать, при этом включая счетчик, а в конце вывести показания этого счетчика, это и будет количеством цифр.
Проблема в том, что в школе программирования не было практически, а в Универе априори считается, что мы должны его знать после школы.