Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
sincarasincara
0 / 0 / 0
Регистрация: 06.12.2013
Сообщений: 4
1

Нужно угадать слово(В чём ошибка?)

09.01.2014, 20:58. Просмотров 371. Ответов 0
Метки нет (Все метки)

Вот программа , но работает с ошибками, если кто знает опишитесь пожалуйста.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Uses CRT;
var S,S1: string;
B:char;
i,p,g,n: integer;
begin
gotoxy(1,1);
write('Угадай слово:');
s:='молоко';
S1:='м----о';
gotoxy(10,10);
writeln(S1);
writeln('Введите букву:');
Repeat
readln(B);
for I:=1 to length(s) do begin if copy(s,i,1)=b then
s1[I]:=B
else begin P:=P+1; writeln('Ошибка №:',P); end;
gotoxy(10,10); write(s1);
end;
until S1=S
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.01.2014, 20:58
Ответы с готовыми решениями:

В чём ошибка?
program Main(input, output); procedure B; begin A end; procedure A;...

В чём ошибка ? !
Основная прога Uses vvoda2,vvoda3; Var k: integer; a:mas ; begin ...

в чём ошибка
program sum(input,output); {$N+} var a,b: Comp; begin ...

В чём ошибка?
Var x, y:real; b1, b2, b3, b4:boolean; begin write ('x='); readln(x);...

В чём ошибка?
program v1; var z,y:real; begin writeln('Vvedite znachenie y',y:6:2);...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.01.2014, 20:58

в чём ошибка?)
подскажите, кто может, где ошибка в программе, препод сказал пока не найду не...

В чём ошибка?
Отдельные строчки кода (именно они и не работают): if (b in ) and ( in ) then...

В чём ошибка!?
В чём ошибка!?Program Lab3; //Выполнил Нефёдов В.В. Б8116. Программа выполняет...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru