Люди, у меня экзамен через 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) Разгадайте ребус АВС = АВ + ВС + СА
Первое что приходит в голову, что это нахождение длинны периметра треугольника ABC
))))
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.
Begin
FillChar(A, 20000, ‘X’);
End.
Цитата
В записке слова зашифрованы – каждое из них записано наоборот. Расшифровать сообщение.
перевернуть строку. Есть в ФАКе
Цитата
Из данного списка спортсменов распечатать данные о тех из них, кто занимается плаванием. Указать возраст, сколько лет они занимаются спортом.
читать ФАК. работа со списками есть. изменить процедуру вывода информации и все.Цитата
Опишите матрицу A размером 100 x 200 с элементами типа Char. Заполните ее путем обращения к процедуре: FillChar(A, 20000, ‘X’).
В чем пробелмма?
Код
type
matrix=array[1..100,1..200[ of char
и работаем с этим типом.matrix=array[1..100,1..200[ of char
Цитата
6) Составить программу, которая вставляет в список L новый элемент F перед первым вхождением элемента Е, если Е входит в L.
на основе материалов ФАКа...
Спасибо!
А не могли бы вы уточнить где именно в ФАКе написано про то, как "перевернуть строку"?
А не могли бы вы уточнить где именно в ФАКе написано про то, как "перевернуть строку"?
Цитата
как "перевернуть строку"?
ну вот:
Код
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.
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.
Так короче:
Код
var
s,f:string;
i:byte;
begin
readln(s);f:='';
for i:=length(s) downto 1 do f:=f+s[i];
writeln(f);
end.
s,f:string;
i:byte;
begin
readln(s);f:='';
for i:=length(s) downto 1 do f:=f+s[i];
writeln(f);
end.
Цитата
Так короче:
APAL абсолютно прав, ведь такой кусок кода :
Код
f[0]:=chr(j);
корректен лишь для семейста Turbo и Borland Паскаля, но в FPC не скомпилируется..
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.