Помогите пожалуста с практикой...

[L9LLIKA]

Товарищи программеры и не программеры %))
Помогите пожалуйста кто чем может, прохажу практику небольшую...)
Почти ничего непонимаю...кое что сделал но много чего нет
вот различные задачки масивы матрицы и тд и тп....
Буду очень благодарен ;( если кто-нибудь что-нибудь решит )



1. Даны целочисленные вектора {x[i]} i=1,2,…,100, {y[j]} j=1,2,:.,100. Все компоненты векторов с одинаковыми номерами преобразовать по правилу: если x[i]=y[j], то оставить их без изменения; в противном случае: если x[i]<0 и y[j]<0 то значение каждой компоненты ее квадратом: если x[i]>0 и y[j]>0, то большую из них уменьшить на 2; в остальных случаях отрицательную компоненту заменить на 5.

3. Даны натуральные числа P и Q (Q>=2). Получить представление числа P в виде такой последовательности a[0],..,a[n] целых неотрицательных чисел, что a[i]<Q ( i=0,1,..,n) и
P=a[n]*Q^n+.. ..+a[i]*Q+a[0] (a[n]<>0)

4. Вычислить суммы элементов каждой строки матрицы В(6,6), определить наибольшее значение этих сумм и номер соответствующей строки.

5. Дана действительная матрица размера (N x m), все элементы которой различны. В каждой строке разбирается элемент с наименьшим значением, затем среди этих чисел выбирается наибольшее. Выдать на печать найденное значение и индексы этого элемента.

6. Даны действительные числа a[1], a[2],:.., a[10]: b[1],:.,b[20]. Получить действительную матрицу C{c[i][j]} где i=1,2,:.,20: j=1,2,:.,10 по правилу: c[i][j]=a[j]/(1+1 b [i] 1).

7. Дан символьный массив { s[i]} i=1,2,:.,80. определить количество неверных неравенств: s[1]=s[41]; s[2]=s[42;:..; s[40]=s[80]. Если таких больше 20, то поменять местами первых два слова с последним одним.

8. Дан символьный массив, содержащие одно или несколько слов разделенных пробелами. Найти слова, в которых доля гласных букв максимальна.

9. Даны два файла А и В. Записи файла А имеют структуру: 1) цех; 2) бригада; 3) шифр детали; 4) сделано за сутки. Структура записи файла В: 1) шифр детали; 2) наименование детали. Отпечатать отчет с итогами по цеху, бригаде, детали. При задании детали на печать выдавать не шифр , а наименование.

10. Даны два файла: справочник и основной. Записи справочника имеют структуру: 1) номер телефона; 2) Ф.И.О. 3) адрес; 4) плановый срок оплаты за телефон. Записи основного файла имеют структуру: 1) номер телефона; 2) фактическое время оплаты. Для каждой записи основного файла составить почтовую карточку с напоминанием тем абонентам, у которых просрочен срок оплаты.

11. Даны матрицы А(8,11), В(13,5). Каждую матрицу преобразовать по правилу: найти столбец, содержащий минимальный элемент матрицы и домножить все положительные компоненты этого столбца на максимальное значение строки матрицы, где этот минимум находится. 9(6)

[Gongled]

Остальное лень писать. Может быть позднее...

program prg_4;
uses CRT;
const
  n = 6;
type
  ar2 = array[1..n,1..n] of integer;
var
  b : ar2;
  i, j, sum, max, nmax : integer;

begin
clrscr;
randomize;

for i:=1 to n do
begin
sum := 0;
    for j:=1 to n do
    begin
        b[i,j] := random(10);
        sum := sum + b[i,j];
        write(b[i,j]:4);
    end;

if i=1 then
begin
    max := sum;
    nmax := i;
end;
    
if max<sum then
begin
    max := sum;
    nmax := i;
end;

write('   Сумма: ',sum);
writeln;
end;

write('Результат: строка #',nmax);

end.

[L9LLIKA]

Ой спасибо большое %)) хоть чтото ужо )
сёня проверяли с преподом отлично...нарисовал блок схему Т_Т

помогите ещё чего-нибудь на строчить...

[L9LLIKA]

люди помогите пожалусто ещё чегонить решить из этого всего...
отчислят мну к чертям ко всем ;((
в масивах нимагу разобраться

[Stilet]

Дан символьный массив, содержащие одно или несколько слов разделенных
пробелами. Найти слова, в которых доля гласных букв максимальна.

Например так:

 var k,e,s:string;i,mx,c:integer;
begin
 s:='Hallo understudig dude reeereererreeerere';mx:=0;k:='';
 i:=1; while i<=length(s) do begin
  e:='';c:=0;
  while (i<=length(s))and(s[i]<>' ') do
   begin if pos(s[i],'eyuioa')<>0 then inc(c); e:=e+s[i]; inc(i); end;
  if mx<c then begin k:=e; mx:=c; end;
  inc(i);
 end;
 writeln(k);
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[ОДИНОЧЕСТВО В СЕТИ]

(*Даны целочисленные вектора {x[i]} i=1,2,…,100, {y[j]} j=1,2,:.,100. 
Все компоненты векторов с одинаковыми номерами преобразовать по правилу: если x[i]=y[j], 
то оставить их без изменения;
 в противном случае: если x[i]<0 и y[j]<0 то значение каждой компоненты ее квадратом: 
если x[i]>0 и y[j]>0, то большую из них уменьшить на 2; в остальных случаях отрицательную компоненту 
заменить на 5.*)

var i:integer;
 x,y:array [1..100] of integer;
begin
for i:=1 to 100 do 
readln(x[i]);
for i:=1 to 100 do 
readln(y[i]);
for i:=1 to 100 do begin
if x[i]<>y[i] then begin

if (x[i]<0) and (y[i]<0) then begin
x[i]:=sqr(x[i]);
y[i]:=sqr(y[i]);
end

else
if (x[i]>0) and (y[i]>0) then begin
if x[i]>y[i] then x[i]:=x[i]-2
   else y[i]:=y[i]-2;
end

else begin
if x[i]<0 then x[i]:=5
 else  y[i]:=5;
end; 

end;
end;
for i:=1 to 100 do 
write(x[i]:6,' ');
writeln;
for i:=1 to 100 do 
write(y[i]:6,' ');
readln;
end.

{Дан символьный массив  s[i] i=1,2,:.,80.
определить количество неверных неравенств: s[1]=s[41]; s[2]=s[42;:..; s[40]=s[80]. 
Если таких больше 20, то поменять местами первых два слова с последним одним.}

for i:=1 to 40 do
if s[i]=s[i+40] then inc(k);
if k<20 then begin tmp:=s[1];
s[1]:=s[80];s[80]:=tmp;end;

{. Даны действительные числа a[1], a[2],:.., a[10]: b[1],:.,b[20]. 
Получить действительную матрицу C{c[i][j]}{ где i=1,2,:.,20: j=1,2,:.,10 
по правилу: c[i][j]=a[j]/(1+1 b [i] 1).}


for i:=1 to 20 do
for j:=1 to 10 do 
c[i,j]=a[j]/(1+b[i])//<--- вставьте вашу формулу
for i:=1 to 20 do begin
for j:=1 to 10 do 
write (c[i,j]);
writeln;
end;

[Doholyan]

[QUOTE=L9LLIKA;294999]Товарищи программеры и не программеры %))
Помогите пожалуйста кто чем может, прохажу практику небольшую...)
Почти ничего непонимаю...кое что сделал но много чего нет
вот различные задачки масивы матрицы и тд и тп....
Буду очень благодарен ;( если кто-нибудь что-нибудь решит )


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

[L9LLIKA]

пециальность прикладная информатика в экономике...2 курс %)))
чо нетак?

ОДИНОЧЕСТВО В СЕТИ спасибо большое) первый код отформатировал вроде нормально всё) а вот остальное разобрать немогу.

во втором немогу понять чо значит

for i:=1 to 40 do
if s[i]=s[i+40] then inc(k);
if k<20 then begin tmp:=s[1];
s[1]:=s[80];s[80]:=tmp;end;

куда это и зачем?))

а третье пока разбираю))

[Anatole]

ОДИНОЧЕСТВО В СЕТИ

Если таких больше 20, то поменять местами первых два слова с последним одним.

Следовательно необходимо как минимум так

if k<20 then begin tmp:=s[1];
s[1]:=s[80];s[80]:=tmp;end;tmp:=s[2];
s[2]:=s[80];

, а вот как в один последний символ запихать 2 - это вопрос к постановщику задачи.

[ОДИНОЧЕСТВО В СЕТИ]

for i:=1 to 40 do
if s[i]=s[i+40] then inc(k);
if k<20 then begin tmp:=s[1];
s[1]:=s[80];s[80]:=tmp;end;
s[80]:=s[80]+s[2];
s[2]:=s[1];

так что ли ????