1.Используя функции символьных переменных, написать программу, которая из текста «Я очень...

Question

1.Используя функции символьных переменных, написать программу, которая из текста «Я очень хорошая вычислительная машина», получила бы текст «Я хорошая машина».
2.Используя функции символьных переменных, написать программу получения из слова ЖЕЛЕЗНОДОРОЖНИК слов ДОНОР, ЖЕЗЛ, КОЛЕНО, КРОКОДИЛ.

Comments

Pascal

Answer 1

Эмм.. Pascal:
////////////////////
var
a, b, c:String;
begin
a := 'Я очень хорошая вычислительная машина';
b := 'Я хороший робот';
writeln('Введите текст ', a, ' и получите текст', b);
readln(c);
if a = c then
begin
writeln(b);
end;
end.

Ответ 2:
var
b: array [1..4] of String[9] = ('ДОНОР', 'ЖЕЗЛ', 'КОЛЕНО', 'КРОКОДИЛ');
a, c:String;
i:Integer;
begin
a := 'ЖЕЛЕЗНОДОРОЖНИК';
writeln('Введите текст ', a, ' и получите слова');
for i:= 1 to 4 do
begin
writeln(b[i]);
end;
readln(c);
if a = c then
begin
for i:= 1 to 4 do
begin
writeln(b[i]);
end;
end;
end.

Comments

Спасибо!!! А можно ещё вторую?

---

Извините, но почему-то при вводу этой программы в Pascal вывод получатся неверным

---

Вы точно все написали как было сказано?Заглавные буквы и т.д.

---

да я еще дописываю

---

ща*

---

Да, и вот что получается "Введите текстЯ очень хорошая вычислительная машинаи получите текстЯ хороший робот"

---

И вот во второй задаче, бред "Введите текстЖелезнодорожники получите текст[ДОНОР,ЖЕЗЛ,КОЛЕНО,КРОКОДИЛ]
"

---

насколько я понял надо что бы пользователь ввел ЖЕЛЕЗНОДОРОЖНИКИ и получил ДОНОР, ЖЕЗЛ и т.д.

---

Вводите все точно так же как и написано в примере, учитывая заглавные буквы, и т.д

---

Я просто скопировала и вставила и ничего не изменяла