IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Задача про ребус и записку...
сообщение
Сообщение #1


Гость






Люди, у меня экзамен через 3 дня, лаб кучу задали, некоторые решила, но вот что осталось, помогите плиз:

1) В записке слова зашифрованы – каждое из них записано наоборот. Расшифровать сообщение.

2) Разгадайте ребус АВС = АВ + ВС + СА

3) Из данного списка спортсменов распечатать данные о тех из них, кто занимается плаванием. Указать возраст, сколько лет они занимаются спортом.

4) Опишите матрицу A размером 100 x 200 с элементами типа Char. Заполните ее путем обращения к процедуре: FillChar(A, 20000, ‘X’).

5) Составьте программу размещения в ДРП, строка за строкой, треугольной матрицы размером N, в i-той строке которой i компонентов типа Word, i = 1,2,3,..,N. Занесите в элемент массива MemW, соответствующий элементу A^[1]^[1], значение «1», а в следующие девять – значения 2,3,…,9. Выведите элементы первых трех строк матрицы и объясните полученную картину.

6) Составить программу, которая вставляет в список L новый элемент F перед первым вхождением элемента Е, если Е входит в L.

Заранее всех благодарю!
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Цитата
2) Разгадайте ребус АВС = АВ + ВС + СА


Первое что приходит в голову, что это нахождение длинны периметра треугольника ABC smile.gif))))

Сообщение отредактировано: klem4 -


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






Nesy
Правила для кого существуют? Приводите задания полностью
Цитата
Из данного списка спортсменов
Данного кому? В какой форме задан список?

Цитата
6) Составить программу, которая вставляет в список L новый элемент F перед первым вхождением элемента Е, если Е входит в L
В ФАКе приведены функции и процедуры работы со списками, можно посмотреть там...

Цитата
4) Опишите матрицу A размером 100 x 200 с элементами типа Char

Код
Var A: array[1 .. 100, 1 .. 200] Of Char;
Begin
 FillChar(A, 20000, ‘X’);
End.


Сообщение отредактировано: volvo -
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Ищущий истину
******

Группа: Пользователи
Сообщений: 4 825
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


Цитата
В записке слова зашифрованы – каждое из них записано наоборот. Расшифровать сообщение.

перевернуть строку. Есть в ФАКе
Цитата
Из данного списка спортсменов распечатать данные о тех из них, кто занимается плаванием. Указать возраст, сколько лет они занимаются спортом.
читать ФАК. работа со списками есть. изменить процедуру вывода информации и все.
Цитата
Опишите матрицу A размером 100 x 200 с элементами типа Char. Заполните ее путем обращения к процедуре: FillChar(A, 20000, ‘X’).

В чем пробелмма?
Код
type
matrix=array[1..100,1..200[ of char
и работаем с этим типом.

Цитата
6) Составить программу, которая вставляет в список L новый элемент F перед первым вхождением элемента Е, если Е входит в L.

на основе материалов ФАКа...


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






Спасибо!
А не могли бы вы уточнить где именно в ФАКе написано про то, как "перевернуть строку"?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Ищущий истину
******

Группа: Пользователи
Сообщений: 4 825
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


Цитата
как "перевернуть строку"?

ну вот:
Код
var
s,f:string;
i,j:byte;
begin
readln(s); j:=1;
for i:=length(s) downto 1 do
begin
 f[j]:=s[i];
 inc(j);
end;
f[0]:=chr(j);
writeln(f);
end.


p.s.
извините, в FAQ'e этого действительно нет. мне казалось что есть...
теперь добавил... в FAQ.

Сообщение отредактировано: Oleg_Z -


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Смотрю...
*****

Группа: Пользователи
Сообщений: 1 055
Пол: Мужской
Реальное имя: Пшеничный Алексей Анатольевич

Репутация: -  6  +


Так короче:
Код
var
s,f:string;
i:byte;
begin
readln(s);f:='';
for i:=length(s) downto 1 do f:=f+s[i];
writeln(f);
end.


--------------------
Если что-то не делает того, что вы запланировали ему делать - это еще не означает, что оно бесполезно.
--------------------
Прежде, чем задать вопрос - Правила :: FAQ :: Поиск
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Ищущий истину
******

Группа: Пользователи
Сообщений: 4 825
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


Цитата
Так короче:

APAL абсолютно прав, ведь такой кусок кода :
Код
f[0]:=chr(j);

корректен лишь для семейста Turbo и Borland Паскаля, но в FPC не скомпилируется..


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 23.12.2024 20:02
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name