Условия задачи: Запросить у пользователя фразу. В фразе убрать все буквы "а". ЗАпросить букву на которую заменить, вывести данную фразу.
uses crt;
var
i,j,len:integer;
str:string;
let:char;
begin
clrscr;
write('enter string: ');readln(str);
write('enter letter: ');readln(let);
len:=length(str);
i:=0;
j:=0;
for i:=1 to length(str) do
begin
if str='à' then str:=let;
end;
writeln(str);
readln();
end.
Задачка на паскале. где ошибка?
- bboyedance
- Сообщения: 8
- Зарегистрирован: 16 авг 2010, 21:25
- Откуда: Екатеринбург
- Байк: onza
-
JI_E_H_9I - Сообщения: 54
- Зарегистрирован: 30 авг 2009, 14:21
- Откуда: Азоф
- Байк: inspired 4play
Re: Задачка на паскале. где ошибка?
тут чука ошибок повторов и вообщем криво написано шас примерна выровняем
uses crt;
var
i,len:integer;
str:string;
let:char;
begin
clrscr;
write('enter string: ');readln(str);
write('enter letter: ');readln(let);
len:=length(str);
for i:=1 to len do
if str[i]='à' then begin
delete(str,i,1);
insert(str,i,let);
end;
writeln(str);
readln();
end.
вот примерна так только мог с форматом команд delete и insert напутать 100 лет за паскаль не садился так что проверь сам
uses crt;
var
i,len:integer;
str:string;
let:char;
begin
clrscr;
write('enter string: ');readln(str);
write('enter letter: ');readln(let);
len:=length(str);
for i:=1 to len do
if str[i]='à' then begin
delete(str,i,1);
insert(str,i,let);
end;
writeln(str);
readln();
end.
вот примерна так только мог с форматом команд delete и insert напутать 100 лет за паскаль не садился так что проверь сам
Сообщений: 2
Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 0