Задача про ребус и записку... Опции

[Nesy]

Люди, у меня экзамен через 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.

Заранее всех благодарю!

[klem4]

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

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

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

[volvo]

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 - 16.01.2005 22:08

[Altair]

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

перевернуть строку. Есть в ФАКе

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

читать ФАК. работа со списками есть. изменить процедуру вывода информации и все.

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

В чем пробелмма?

Код

type
matrix=array[1..100,1..200[ of char

и работаем с этим типом.

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

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

[Гость_Nesy]

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

[Altair]

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

ну вот:

Код

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 - 17.01.2005 11:00

[APAL]

Так короче:

Код

var
s,f:string;
i:byte;
begin
readln(s);f:='';
for i:=length(s) downto 1 do f:=f+s[i];
writeln(f);
end.

[Altair]

Так короче:

APAL абсолютно прав, ведь такой кусок кода :

Код

f[0]:=chr(j);

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