Две программы Паскаль + возможность заработать
Здравствуйте, я новичок, извините, если что-то сделал не так, прошу тему не удалять, а по возможности отредактировать или указать на недостатки.
Итак, необходимо сделать 2 задачи:
(1) Условие: Создать однонаправленный список элементами которого являются строки, вывести на экран.В начале каждой строчки вставить "-". Если длина строки <10 вставить элемент шина, вывести результат. Вставить в последний элемент "Хочу спать". Вывести список.
Условие этой задачи писал по памяти, исправьте если что не так.
(2) Условие: Составить однонаправленый список содержащий фамилию и телефон. Удалить из списка все фамилии на букву а.
По поводу заработка, я считаю, что каждый труд, особенно умственный должен быть оплачен ввиду этого, я рассчитаюсь с помощником)
Ищу человека, который, смог бы мне помочь на лабе, было бы супер если бы у него была ICQ или Skype ...
Спасибо за внимание!
Здравствуйте, я новичок, извините, если что-то сделал не так, прошу тему не удалять, а по возможности отредактировать или указать на недостатки.
Итак, необходимо сделать 2 задачи:
(1) Условие: Создать однонаправленный список элементами которого являются строки, вывести на экран.В начале каждой строчки вставить "-". Если длина строки <10 вставить элемент шина, вывести результат. Вставить в последний элемент "Хочу спать". Вывести список.
Условие этой задачи писал по памяти, исправьте если что не так.
Код:
program lol10;
type
ccilka=^element;
element=record
k:string;
z:ccilka;
end;
var
nach,tek,pred:ccilka;
s,pc:string;
i,n,b:integer;
begin
writeln('BBeguTe KOJIBO');
readln(n);
writeln('BB CTPOKu');
readln(s);
pc:=s;
new(nach);
nach^.k:=s;
nach^.z:=nil;
pred:=nach;
for i:=1 to n do
begin
readln(s);
new(tek);
pred^.z:=tek;
tek^.k:=s;
tek^.z:=nil;
pred:=tek;
end;
writeln('vivod spiska');
tek:=nach;
while tek <> nil do
begin
writeln(tek^.k);
tek:=tek^.z;
end;
[COLOR="Red"]До этого момента всё путём, должно быть, я проверял...[/COLOR]
[COLOR="Blue"]А дальше наброски....[/COLOR]
tek:=nach;
while tek^.b<>nil
tek:=tek^.b;
new(pred);
tek^.b:=pred;
pred^.b:=nil;
pred^.s[1] :='-';
new(CnATb);
CnATb^.w:= 'Xo4y CnATb!';
CnATb^.b:=nil;
tek^.b=CnATb;
writeln ('BbIB CnuCKA');
tek:=nach;
while tek <> nil do
begin
writeln(tek^.w);
tek:=tek^.b;
end;
end.(2) Условие: Составить однонаправленый список содержащий фамилию и телефон. Удалить из списка все фамилии на букву а.
По поводу заработка, я считаю, что каждый труд, особенно умственный должен быть оплачен ввиду этого, я рассчитаюсь с помощником)
Ищу человека, который, смог бы мне помочь на лабе, было бы супер если бы у него была ICQ или Skype ...
Спасибо за внимание!