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

Избавиться от goto

12.06.2012, 19:23. Просмотров 360. Ответов 0
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Program Velikiiy_kombinator;
 
var i,a,e,g,k,f,l: integer;
var x: array [1..4] of integer;
var y: array [1..4] of integer;
label 2;
begin
randomize;
for i:=1 to 4 do
x[i]:=(random(6)+ 1);
a:=((x[1]*1000)+(x[2]*100)+(x[3]*10)+x[4]);
l:=0;
repeat
l:=l+1;
writeln('введите пробу');
readln(e);
y[1]:= (e div 1000);
y[2]:= ((e div 100) - (y[1]*10));
Y[3]:= ((e div 10) - ((y[1]*100)+(y[2]*10)));
y[4]:= (e-((y[1]*1000)+(y[2]*100)+(y[3]*10)));
g:=0;
k:=0;
 
for i := 1 to 4 do
begin
if x[i]=y[i] then g:=g+1 else
begin
for f:=1 to 4
do
begin
if i<>f then
if x[i]=y[f] then begin k:=k+1; goto 2 end;
end;
2 :
end;
end;
writeln('точных совпадений -',g,', совпадений по значению -', k);
until a=e;
Writeln('вы угадали число за ',l,' проб, это - ',a);
end.
помогите избавиться от goto
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.06.2012, 19:23
Ответы с готовыми решениями:

Избавиться от меток goto
Помогите пожалуйста кто-нибудь избавиться от меток goto.. program Project1;...

Упростить программу. Избавиться от Goto
Нужно, чтобы не было лейбел, но программа не меняла своей сути . ОЧЕНЬ...

goto
плз подкиньте любую простую сделаную задачу с оператором goto

Оператор GOTO
Дано 50 вещественных чисел. Определить наибольшую величину из них. С помощью...

исправить goto
сортировка слиянием(простым) uses crt; const maxn = 100; type massiv =...

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

Заменить goto на процедуру
Доброе время суток. Подскажите пожалуйста, как заменить goto на процедуру. Код...

Оператор безусловного перехода (GOTO)
Напишите программу вычисления функции f(х) =4х2+16(х+2) для х от а до b с шагом...

В программе заменить функцию goto
Помогите пожалуйста заменить goto на процедуру. Я никак не понимаю как это...


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

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

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