паскаль

[Екатерина Воробей]

здравствуйте помогите пожалуйста решить задачу на ПАСКАЛЕ:

"Пусть вводится последовательность символов, длина которой не превышает 80. Напечатайте те русские буквы (в алфавитном порядке), которые встречаются в заданной последовательности"

[Vanta11a]

А в чем проблема, я не понял?
Выкладывайте код, поможем.
Если хотите решение, ничего не делая - Вам в раздел фриланс.

Самый простой вариант - идете по всей длине строки и проверяете каждый символ на вхождение в массив [А..Я,а..я], заносите в отдельный массив, потом его сортируете. Все.

[Екатерина Воробей]

я не понимаю как ее решить ((

[Alex11223]

И какого ответа вы ожидаете? Кода, который вы скопипастите и пойдете сдавать?)
Под помощью подразумевается, что вы пытаетесь сделать что-то сами, показываете код, рассказываете, что конкретно не получается (если не можете сформулировать ничего, кроме "не знаю как решить эту задачу", то значит вы и не пробовали решать ее) и т.д., а не только выкладываете задание и просите сделать все за вас.

[Екатерина Воробей]

пожалуйста напишите код ...очень буду благодарна

[JUDAS]

program id167446;
const
  AlphavitHi = 'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЭЮЯЬЪ';
  AlphavitLo = 'абвгдеёжзийклмнопрстуфхцчшщэюяьъ';
var
  txt : string[80];
  res : string;
  i,p : integer;
begin
  writeln('Введите текст не более 80 символов '); read(txt);
  for i:=1 to 80 do
  begin
   P:=Pos(txt[i],AlphavitLo);
   if P>0 then txt[i]:=AlphavitHi[p];
  end;
  res :='';
  for i:=1 to length(AlphavitHi)-1 do
  if Pos(AlphavitHi[i], txt)>0 then
   res:=res+AlphavitHi[i];
  writeln(res);
end.

Катюша, не обращайте внимание на людей которые пишут сообщения типо:

И какого ответа вы ожидаете? Кода, который вы скопипастите и пойдете сдавать?)

Они ищут поживы на таких как Вы. Пишите им в ответ, а чего ожидали Вы? НА ветке форума "помощь студенту" заработать лишних пару соток? а устроится на должность программера слабо? )))

[Екатерина Воробей]

помогите найти ошибку в задаче, она почему то не работает...(

Дано действительное число, нужно вычислить.
sin(x)=(x/1!)-(x^3/3!)+(x^5/5!)-(x^7/7!)+...(-1)^n*x/(2n+1)!

у меня получилась такая:
uses crt;
var x,e,s,t,st:real;
n,i:integer;
begin
clrscr;
write('x=');
readln(x);
st:=sin(x);{вычисленное аналитически значение}
{вычисление для заданного N членов ряда}
write('Введите количество членов ряда n=');
readln(n);
s:=x;{нулевое значение}
t:=x;
for i:=1 to n do
begin
t:=-t*x*x/(2*i*(2*i+1));{меняем знак, домножаем на x^2, делим на 2 следующих числа}
s:=s+t;{прибавляем}
end;
writeln('При N=',n,' sin(',x:0:2,')=',s:0:6,' аналитически=',st:0:6);
{Вычисление при заданной точности (задаем значение eps, порядок 0.0001-0.00000001)}
repeat
write('Введите точность вычислений больше 0 и не более 0.1 e=');
readln(e);
until(e>0)and(e<=0.1);{нужно для проверки ввода, чтобы пользователь не ввел типа 10000}
{считаем сумму членов ряда больше eps}
s:=x;
t:=x;
i:=1;
while abs(t)>=e do
begin
t:=-t*x*x/(2*i*(2*i+1));
s:=s+t;
inc(i);
end;
writeln('При точности eps=',e:0:6,' sin(',x:0:2,')=',s:0:6,' аналитически=',st:0:6);
readln
end.

Может есть какое то другое решение?

[Екатерина Воробей]

спасибо вам большее, вы очень меня выручили, я знала, что бывают хорошие люди...)))

[Екатерина Воробей]

а если в последовательности заданы числа? то тогда как?

[Екатерина Воробей]

помогите!!!!!!!!! пожалуйста!!!!!!