Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Помогите решить задачи на Паскале
1. Задана строка символов. Группы символов, разделенные пробелом и не содержащие пробелов внутри себя, будем называть словами. Удалить из каждого слова все последующие вхождения его первой буквы.
2. Задана матрица вещественных чисел А размерности n*n. Поменять местами элементы, расположенные над главной и побочной диагоналями с элементами, расположенными под ними (первую строку с последней, вторую с предпоследней и т.д.). Размерность матрицы и значения ее элементов ввести с клавиатуры.


Максим
1 | Автор: maxim | 2012-03-01, 11:53   |  Репутация: [ + 0 ]
1.

var
q,a,s:string;
i,p:integer;
begin
readln(s);
repeat begin
p:=pos(' ',s);
q:=copy(s,1,p);
delete(s,1,p);
delete(q,1,1);
a:=a+q;
end;
until p=0;
q:=copy(s,1,length(s));
delete(q,1,1);
a:=a+q;
writeln(a);
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-03-06, 12:42   |  Репутация: [ + 211 ]
2. Немного не понял, пример ввода-вывода в студию

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
3 | Автор: Berestovskiy | 2012-03-06, 12:43   |  Репутация: [ + 211 ]
Спасибо большое!!!!!!! 2 задачу решать не нужно.

Максим
4 | Автор: maxim | 2012-03-06, 14:29   |  Репутация: [ + 0 ]
Спасибо принимается в виде повышения репутации ( Зеленый плюсик:) )

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
5 | Автор: Berestovskiy | 2012-03-06, 16:47   |  Репутация: [ + 211 ]
  • Страница 1 из 1
  • 1
Поиск: