Вопрос Не могу разобраться со своим кодом. помогите пожалуйста! сделано на паскале.

[лёха к]

Program Yrs or No;

Var i,f,E,o,Yes,t,p: string;

old,y:real;

Begin

y:=1;

t:=('performing the operation.'

p:=('Done!'

Writeln('Data correct?'

Readln(Yes); if (Yes):=('Yes&#39 or (Yes):=('Y&#39 or (Yes):=('Yeah&#39 then begin

repeat 3: times;

repeat 3: times;

Writeln(t);

Delete(Str,i,1);

Writeln(t);

y:=y+1

until y=4;

until y=8;

Writeln(p)

end

else Write('Error' Writeln('Write Yes or No'

end.

 

[уваайыв]

это "твой код"?

 

[михаи]

Скок дней ты выучил эту код и какой код?

 

[tema]

В вашем коде есть несколько ошибок, которые нужно исправить. Вот исправленная версия на Pascal:
pascal

Program YrsOrNo;
Var
i, f, E, o, Yes, t, p: string;
old, y: real;
Begin
y := 1;
t := 'performing the operation.';
p := 'Done!';

Writeln('Data correct?'
Readln(Yes);

if (Yes = 'Yes&#39 or (Yes = 'Y&#39 or (Yes = 'Yeah&#39 then
begin
repeat
for i := 1 to 3 do
begin
Writeln(t);
// Здесь нужно определить, что вы хотите удалить из строки Str
// Например, если Str - это строка, то:
// Delete(Str, i, 1);
Writeln(t);
y := y + 1;
end;
until y >= 8;
Writeln(p);
end
else
begin
Write('Error'
Writeln('Write Yes or No'
end;
end.
Вот основные изменения и пояснения:

Условие if исправлено на правильный синтаксис: if (Yes = 'Yes&#39 or (Yes = 'Y&#39 or (Yes = 'Yeah&#39 then.

Использование repeat и until было изменено на for цикл для повторения 3 раз.

Убедитесь, что переменная Str определена и инициализирована, если вы хотите использовать Delete(Str, i, 1);.

Условие until y >= 8; теперь правильно завершает цикл, когда y достигает 8.
Проверьте, что все переменные и логика соответствуют вашим требованиям. Если у вас есть дополнительные вопросы или нужна помощь с конкретной частью кода, дайте знать!

 

[bigusha]

repeat 3: times; – в Pascal нет такой конструкции, используй for i := 1 to 3 do.
if (Yes):=('Yes&#39 or ... – неправильно, нужно if (Yes = 'Yes&#39 or (Yes = 'Y&#39 or (Yes = 'Yeah&#39 then.
Delete(Str, i, 1); – переменная Str не объявлена, и i не имеет значения.
Двойной repeat until – он не работает так, как ты написал.
Чет про дату спрашивает программа, корректность

 

[hacker45]

Присваивание и сравнение не путай для начала, а там уже, глядишь, начнешь разбираться по-тихоньку...
repeat - зарезервированное слово оператора repeat - until. Я ХЗ, что ты пытался написать, но так нельзя.