помогите написать блок-схем алогритм " игры автомат" например 777 вычислить выиграть да и 436 проиграть нет. и "мишень"любой число
10-11 класс
|
См. вложения.
________________________________
Код на Паскале:
var a:integer;
begin
a:=random(11)+1;
writeln(a);
if (a mod 10=a div 100) and
(a mod 10= a mod 100 div 10) then
write('Выиграл')
else write('Проиграл');
end.
var a:integer;
begin
a:=random(10)+1;
write('Своим выстрелом Вы набрали ',a,' очков.');
end.
Другие вопросы из категории
строке, C и D на другой. Результат вывести на отдельную строку и курсор оставить на этой же строк
От чего зависит реальная скорость подключения к интернету с помощью ADSL-cоединения? С помощью GPRS-соединения? Соединения с помощью локальной сети?
Читайте также
длинами своих сторон – a, b, c. Определить является ли
он тупоугольным, прямоугольным или остроугольным.
2) Построить циклический алгоритм, записать ввиде блок-схемы и на алгоритмическом языке.
Построить алгоритм, который определяет количество студентов в группе,
чей рост превышает среднее для группы значение.
Я не могу сочинить этот "алгоритм", помогите ;)
Блок-схемы строить не надо, просто описать, что надо делать.
В отчете предоставить блок-схемы всех
функций, текст программы.
Задача : В целочисленном массиве Х(N) удалить все элементы, расположенные
между максимальным и минимальным элементами. Найти среднее
арифметическое элементов массива до и после удаления. В программе
написать функции: удаления элемента, поиска номеров минимального и
максимального элементов, определения среднего арифметического
элементов массива.
2)построить блок схему которая меняет порядок цифр числа на обратный. например было 12345,стало 54321.
отрицательные и равные нулю. Используя оператор цикла, составить программу, вычислить количество положительных и нулевых и сумму отрицательных.
Листинг программы:
Program Massiv;
Const n=10;
Var A:array [1..4] of integer;
I, c, c2, c3: integer;
Begin
For i=1 to N do begin
Readln (a[i]); If (a[i]=0 then inc(c)
Else if ([ai]<0) then inc(c2)
Else inc (c3);
End;
Writeln (`нулевые:`,c);
Writeln (`отрицательные:`,c2);
Writeln (`положительные:`,c3);
End.