Практикум по решению задач на ЭВМ. Тарова И.Н - 40 стр.

UptoLike

ВУЗ: 

ЕГУ им. Бунина | Елец

Составители: 

Рубрика: 

Тарова И.Н., Терехов Ю.П., Масина О.Н., Скоков А.В.
6) Задана строка символов. Определить содержится ли в ней буква е
или а.
program bukva(input,output);
USES CRT;
var s:string[10];
begin
clrscr;
writeln('Введите строку символов: ');
readln (s);
if (pos('e',s)<>0) then
writeln('содержится e')
else
writeln('не содержится e');
if (pos('a',s)<>0) then
writeln('содержится a')
else
writeln('не содержится a');
readln;
end.
7) Задана строка символов. Заменить в ней все восклицательные знаки
точками.
program zamena(input,output);
uses CRT;
const n=7;
var l,i,k:integer;s:string[n];
begin
clrscr;
writeln('Введите строку символов: ');
readln (s);
l:=length(s);
for i:=1 to l do
begin
40
                               Тарова И.Н., Терехов Ю.П., Масина О.Н., Скоков А.В.


  6) Задана строка символов. Определить содержится ли в ней буква е
     или а.

  program bukva(input,output);
  USES CRT;
  var s:string[10];
  begin
    clrscr;
    writeln('Введите строку символов: ');
    readln (s);
    if (pos('e',s)<>0) then
       writeln('содержится e')
    else
       writeln('не содержится e');
    if (pos('a',s)<>0) then
       writeln('содержится a')
    else
       writeln('не содержится a');
    readln;
  end.




7) Задана строка символов. Заменить в ней все восклицательные знаки
точками.

  program zamena(input,output);
  uses CRT;
  const n=7;
  var l,i,k:integer;s:string[n];
  begin
    clrscr;
    writeln('Введите строку символов: ');
    readln (s);
    l:=length(s);
    for i:=1 to l do
    begin


                                    40

Страницы