Turbo Pascal. 4 арифметические задачи
1. Идти в строке до первой кавычки, потом идти до второй, выводя все буквы в строку или на экран, потом до третьей - просто так, потом до четвертой - выводя все, и так чередовать.
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Хыиуду писал(а):1. Идти в строке до первой кавычки, потом идти до второй, выводя все буквы в строку или на экран, потом до третьей - просто так, потом до четвертой - выводя все, и так чередовать.
Не мог бы ты програмку на паскале выложить?
2 Troi: такое количество задач и довольно не однозначные условия. Подразумеваю что это ваш факультет и основной предмет. Поэтому вы должны знать основы.
То, что написал вам Хыиуду достаточно для решения первой задачи с начальными знаниями.
Что-то вроде этого, но вам еще надо считать кавычки если n=2, то записать цитату и обнулить значение n=0;
[syntax=Pascal]
var
S,K:string;
begin
for i:=1 to length(s) do
if s<>'"' then k:=k+s else
begin
writeln(k);
k:='';
end;
[/syntax]
То, что написал вам Хыиуду достаточно для решения первой задачи с начальными знаниями.
Что-то вроде этого, но вам еще надо считать кавычки если n=2, то записать цитату и обнулить значение n=0;
[syntax=Pascal]
var
S,K:string;
begin
for i:=1 to length(s) do
if s<>'"' then k:=k+s else
begin
writeln(k);
k:='';
end;
[/syntax]
< L3X. (ICQ: 8721378, Mail - l3x@list.ru)
Сумма ряда есть в разделе "алгоритмы"
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.