Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.10.2015, 19:34   #1
К145
 
Регистрация: 09.10.2015
Сообщений: 8
По умолчанию ПАСКАЛЬ

НУЖНО НАПИСАТЬ ПРОГРАММУ В ПАСКАЛЕ
Компьютер генерирует пять чисел в диапазоне от 1 до 15 включительно. Человек пытается их угадать. Программа должна выводить угаданные и неугаданные числа из тех, что сгенерировала программа, а также ошибочные числа пользователя.
Написала только когда выводит угаданные числа, а как дальше ?

Код:
program v;
var 
a, b : array[1..5] of integer;
i, n, j : integer;
begin
n:= 5;
for i:=1 to n do
a[i] := random(15) + 1;
writeln('Программа загадала 5 чисел от 1 до 15. Попробуйте их отгадать.');
writeln('Введите 5 чисел от 1 до 15: ');
for i:=1 to n do
readln(b[i]);
for i:=1 to n do
for j:=1 to n do
begin
if a[i] = b[j]
then 
writeln('Вы угадали ', a[i])
end;
end.
Кросспостинг на форуме запрещен - один вопрос - одна тема
И название - а если все в этом разделе назовут свои темы Паскаль?
Модератор

Последний раз редактировалось Аватар; 28.10.2015 в 19:46.
К145 вне форума Ответить с цитированием
Старый 28.10.2015, 19:44   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Код:
program v;
var 
a, ok,no : array[1..5] of integer;
i, n, j,k,q,w : integer; b:boolean;
begin
n:= 5;
for i:=1 to n do a[i] := random(15) + 1;

writeln('Программа загадала 5 чисел от 1 до 15. Попробуйте их отгадать.');
writeln('Введите 5 чисел от 1 до 15: ');
q:=1; w:=1;

for i:=1 to n do begin
 readln(k); b:=false;
 for j:=1 to n do if a[i] = k then begin b:=true; break; end;
 if b then begin ok[q]:=k; inc(q); end
 else  begin no[w]:=k; inc(w); end
end;

write('вы угадали: '); for i:=1 to q do write(ok[i]:5); writeln;
write('вы облажались:'); for i:=1 to w do write(no[i]:5); writeln;

readln;
end.
Годится идея?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 28.10.2015, 20:10   #3
К145
 
Регистрация: 09.10.2015
Сообщений: 8
По умолчанию

Возможно это сделать без типа Boolean?


Цитата:
Сообщение от Stilet Посмотреть сообщение
Код:
program v;
var 
a, ok,no : array[1..5] of integer;
i, n, j,k,q,w : integer; b:boolean;
begin
n:= 5;
for i:=1 to n do a[i] := random(15) + 1;

writeln('Программа загадала 5 чисел от 1 до 15. Попробуйте их отгадать.');
writeln('Введите 5 чисел от 1 до 15: ');
q:=1; w:=1;

for i:=1 to n do begin
 readln(k); b:=false;
 for j:=1 to n do if a[i] = k then begin b:=true; break; end;
 if b then begin ok[q]:=k; inc(q); end
 else  begin no[w]:=k; inc(w); end
end;

write('вы угадали: '); for i:=1 to q do write(ok[i]:5); writeln;
write('вы облажались:'); for i:=1 to w do write(no[i]:5); writeln;

readln;
end.
Годится идея?
К145 вне форума Ответить с цитированием
Старый 28.10.2015, 20:23   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Без флажка будет сложнее.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 28.10.2015, 20:27   #5
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Если Boolean не нравится можно флажок integer и 0 или 1 в него. И условие в if соответствующее
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 28.10.2015, 20:38   #6
К145
 
Регистрация: 09.10.2015
Сообщений: 8
По умолчанию

Можете написать, как это будет выглядеть?


Цитата:
Сообщение от Аватар Посмотреть сообщение
Если Boolean не нравится можно флажок integer и 0 или 1 в него. И условие в if соответствующее
К145 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Паскаль ABC. Программа на языке Паскаль. Helen1 Паскаль, Turbo Pascal, PascalABC.NET 6 13.01.2018 21:46
паскаль abc. Используя графические средства языка Паскаль на одной координатной сетке построить графики функций кириллюк Помощь студентам 5 15.09.2013 12:11
Как можно в Паскаль АВС (Паскаль-Турбо) вставлять в результаты печати программы графики, таблицы, схемы, набранные формулы, выраже IZOPGRAM Паскаль, Turbo Pascal, PascalABC.NET 0 11.06.2012 10:54
Паскаль, Борланд Паскаль-в чем разница??? Vremya-Dengy Паскаль, Turbo Pascal, PascalABC.NET 13 31.05.2011 18:23
паскаль и турбо паскаль Евгения Игоревна Помощь студентам 6 05.05.2011 14:31