Информатика, вопрос опубликован 14.03.2019 06:10 Lenocka1111

Составить программу по информатике в pascal abc. 1. с клавиатуры одной строковой вводят имя и фамилию. составьте программу, которая: а) определяет, есть ли в определенной строке заданный символ; б) копирует в новую строку имя и
выводит его; в) выводит сначала фамилию, а затем имя. 2. составьте программу, которая в строке "касіу ясь канюшыну" заменяет имя "ясь" на "янка". 3. составьте программу, которая в строке "реки горы и болота": а) удаляет слово "горы";
б) заменяет слово "болота" на "озера". буду безмерно !

Ответы
Ответ добавил: Гость
На каком
Ответ добавил: Гость

program programxy; const n=100;

var inputtext : integer; begin    randomize;

var x : = random(n) + 1;

var y : = random(n) + 1;

var z : = x - y;

writeln('решите пример: ', x, ' - ', y, ' = ');

readln(inputtext);

if inputtext = z then      writeln('правильно! ')

else      writeln('вы ошиблись! правильный ответ: ', z)

end.

 

где-то так это выглядит на паскале. ошибки не обработаны, так что, если вместо числа ввести строку - программа умрет по исключению.

 

Ответ добавил: Гость

1

a)

program pr;

var

s: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

writeln('введите заданный символ');

readln (c);

for i: =1 to length(s) do if s[i]=c then writeln ('в строке найден заданный символ');

readln;

end.

б)

program pr;

var

s,n: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

i: =1;

while s[i]< > ' ' do i: =i+1;

n: =copy(s,1,i-1);

writeln(n);

readln;

end.

в)

program pr;

var

s,n,f: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

i: =1;

while s[i]< > ' ' do i: =i+1;

n: =copy(s,1,i-1);

f: =copy(s,i+1,length(s)-i+1);

writeln(n);

writeln(f);

readln;

end.

program pr;

var s: string;

begin

s: ='касіу ясь канюшыну';

delete (s,7,3);

insert ('ясь',s,7);

writeln (s);

readln;

end.

3

а)

program pr;

var

s: string;

begin

s: ='реки горы и болота';

delete (s,6,5); {удаляем включая пробел}

writeln (s);

readln;

end.

б)

program pr;

var

s: string;

begin

s: ='реки горы и болота';

delete(s,13,6);

s: =s+'озера';

writeln (s);

readln;

end.

 

 

 

 

 

 

 

 

Больше вопросов по информатике