програмирование

[ZAYAC]

помогите пожалуйста

надо написать прогу в Paskale незнаю как

вот задача

а) В матрице А поменять местами два столбца с заданными номерами;

б) сформировать из элементов полученной матрицы, которые определяются как суммы элементов ее столбцов, диагональную матрицу С;

[Тролль]

ZAYAC:

а) для таких вопросов в начале раздела "Программирование" среди "важных" есть специальная тема "Заказы "Сделайте все за меня"". Не надо плодить новые темы без нужды.

б) языка Paskal нет. Да и само слово "программирование" тоже можно было бы правильно написать.

в)

var I,J,M,N,M1,M2: Integer; B:Real; A,C: array [1..50,1..50] of Real;beginWriteLn('Введите размерности матрицы (через пробел) N,M'); ReadLn(N,M);for I:=1 to N dobegin  WriteLn('Введите элементы ',I,'-й строки, разделяя их пробелами'); for J:=1 to M do Read(A[i,J]); ReadLn;end; WriteLn('Введите номера столбцов, которые надо поменять местами (через пробел)');ReadLn(M1,M2); for I:=1 to N do begin B:=A[i,M2]; A[i,M2]:=A[i,M1]; A[i,M1]:=B end;for I:=1 to N do begin  for J:=1 to M do Write(A[i,J]:8:2); WriteLn end; for I:=1 to M do for J:=1 to M do C[i,J]:=0; for I:=1 to M do for J:=1 to N do C[i,I]:=C[i,I]+A[J,I]; WriteLn;for I:=1 to M do begin for J:=1 to M do Write(C[i,J]:8:2); WriteLn end; WriteLn; ReadLnend.

[lala]

Помогите пожалуиста решить задачи

1)Дана строка.Подсчитать самую длинную последовательность подряд идущих букв a.

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

3)Для каждои буквы слова 2 напечатать, сколько раз оно входит в слово 1.

[Ф@РТОВЫЙ]

Помогите пожалуиста решить задачи

1)Дана строка.Подсчитать самую длинную последовательность подряд идущих букв a.

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

3)Для каждои буквы слова 2 напечатать, сколько раз оно входит в слово 1.

Написали бы хоть на каком языке нужно, напишу решения для паскаля:

Задача 1:

program stroka;var str:string; i,k,m:integer;beginwriteln('Введите строку:');readln(str);m := 0; k := 0;for i := 1 to ord(str[0]) dobeginif str[i] = 'a' then k := k + 1elsebeginif k > m then m := k;k := 0;endend;writeln('Самая длинная последовательность: ', m);readln;end.

Задача 2:

Вообще во всех языках, которые я знаю, для этого есть встроенные функции, начет паскаля не знаю, ибо "выучил" я его за 1 ночь, когда предложили круглую сумму за 20 лаб ;)

Решу методом смещения кодов ascii

program zamena;var str:string; s,i:integer;beginwriteln('Введите строку:');readln(str);for i := 1 to ord(str[0]) dobegins := ord(str[i]);if (s >= 97) and (s <= 122) then s := s - 32 {английские}else if (s >= 160) and (s <= 175) then s := s - 32 {русские а-п}else if (s >= 224) and (s <= 239) then s := s - 80 {русские р-я}else if s = 241 then s := 240; {буква ё}str[i] := chr(s);end;writeln;writeln(str);readln;end.

Задача 3:

program slova;var w1,w2:string; i,j,k:integer;beginwrite('Введите первое слово: ');readln(w1);write('Введите второе слово: ');readln(w2);writeln;for i := 1 to ord(w1[0]) dobegink := 0;for j := 1 to ord(w2[0]) do if w1[i] = w2[j] then k := k + 1;writeln('Буква "', w1[i], '" входит в слово "', w2, '" ', k:0, ' раз');end;readln;end.