люди, помогите решить две задачи на турбо-паскаль, пожалуйста... уж кому, как не вам, знать информатику... 1. Уменьшить все элементы с четными индексами заданного массива а1, а2, а3,...,аn на величину минимального элемента этого массива. 2. Задана матрица Аm*n. Сформатировать одномерный массив В размером m по правилу: элемент bi получает значение первого по порядку положительного элемента i-той строки, если таких элементов нет, то bi= -1 заранее спасибо

Хм, у тебя случаем не Струченков преподает? :wink:

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

неа, я вообще не у вас учусь... но неужели не поможете деушке в решении задач? :cry: DED, а можно узнать это легкое решение?

ну первую я посмотрю сегодня ночером, если успею вторую - х.з.

1
......
const

basetype=integer;
i1=1;
i2=10;
i=i1..i2;

var

mas: array[i] of basetype;
j: basetype;
min: basetype;

begin

writeln('Input array');
for j:=i1 to i2 do
readln(mas[j]);
min:=1;
for j:=i1 to i2 do
if mas[j]<mas[min] then min:=j;
for j:=i1 to i2 do
if (j mod 2)=0 then mas[j]:=mas[j]-mas[min];
writeln('Rezult');
for j:=i1 to i2 do
write(mas[j]);
readln;

end;

это первая

2
....


var
a: array[1..10][1..10] of integer;
i,j,n,m: integer;
b: array[1..10] of integer;
first: integer;

begin

write('m=');
readln(m);
write('n=');
readln(n);
writeln('input array');
for i:=1 to m do
for j:=1 to n do
read(a[i,j]);
for i:=1 to m do
begin
first:=-1;
for j:=1 to n do
if (a[i,j]>0) then begin
first:=a[i,j];
break;
end;

b[i]:=first;
end;
writeln('rezult');
for i:=1 to m do
write(b[i]);
readln;

end.

Как говорит Давлетчин "Аррай и поехали!!!" Тока проги с не продуманы. Использовать брейк это же ламерство (просьба не обижаться, т.к. это так) Оператор брейк для крайних случаев. И потом чем меньше хитрозадых операторов тем лучше для юсера. Меньше вопросов будет у препода. А то я принес Давлетчину функцию вычисления пи. Он аж прифигел бедняга...

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

Смотря какой у тебя преподователь. Оценить программу на бумажке сложно. На бумажке может быть все правильно, а когда забьешь в паскаль может и не работать. Если работает то иди смело и сдавай, если нет, то зависит от препода. С меня например спрашивали что какой оператор значит, что делается здесь или вот здесь. Так что если нужно просто сдать бумажки с кодом это одно, а если нужно объяснить этот код - это другое. Здесь код довольно простой, так что не должно возникнуть вопросов. Хотя не мешало бы прогнать их в компиляторе чтобы проверить всякие мелкие ошибки и заодно посмотреть как работает программа. А то я понаписал разных программ для одногруппников а они даже не разобрались в них. В итоге когда их спрашивали "а вот это что за оператор?" они могли лишь мычать.... Или когда спрашивали какие числа описываются REALом отвечали "реальные"..... Я бы проверил, да у меня диск с Паскалем кто то затырил и не отдал. А т.к. паскаль у нас был давно, то у меня на компе его уже нет. Т.к. переустанавливал Виндовс с тех пор уже раза как три....

:rolleyes: первый раз тут может поможете. Я ищю программу турбо-паскаль

Поможем... Есть.. Куда сбросить?

Блин, почему, когда у меня был паскаль, у :spy: меня не было компа!

аммм а как это :laugh:

Блин, почему, когда у меня был паскаль, у  :spy: меня не было компа!

<{POST_SNAPBACK}>

Ты радоваться должна! Сейчас у тебя нет паскаля и есть комп!!!! :D

Ты радоваться должна! Сейчас у тебя нет паскаля и есть комп!!!!  :D

<{POST_SNAPBACK}>

так денег пришлось отстегнуть прилично :(

Цитата: он фанат С...даже не С++, а именно С собственно разницы-то? если не нужны классы в данной задаче, то ++ становится кастратом, т.е. просто С. Ведь Си++ это Си с классами....

Пожалуйста люди добрые помогите решить задачи я незнаю как.
1. В водоеме 100тонн рыбы.Каждый год рыболовецкая бригада вылавливает 15 тонн.Воспроизводсво рыбы 5% в
год. Для сохранения воспроизводства рыбы необходимо прекращать лов когда в водоеме ее останется менее 5 тонн. Через какое число лет должен быть прекращен лов рыбы?
2. Сколько чисел последовательности 2, 4,6,8....нужно взять чтобы их сумма превысила 1000?Вывести величину последнего слагаемого и суммы.

Добавлено ([mergetime]1128681216[/mergetime]):
Задача из темы циклы

Добавлено ([mergetime]1128681293[/mergetime]):
Задача из темы циклы

помогите пожалуйста бедной девушке не понимающей в паскале ничего!, решить эти две задачи очень срочно надо!!!! 1) дан двумерный массив размерностью n*m заполненный случайными числами определить есть ли в этом массиве столбец в котором равное кол-во положительных и отрицательных элементов массива! 2) написать программу нахождения произведения суммы элементов массива с четными и нечетными номерами функции. заранее огромное спасибо!!!!! если можно на мыло dyagileva88@pisem.net