Until паскаль
Автор Мир Вашему Дому задал вопрос в разделе Другие языки и технологии
Нужна помощь в паскале (repeat… until) и получил лучший ответ
Ответ от Ёвятой[новичек]
var I,A,B:byte;
SA, AB, SC: integer;
begin
i:=0;
repeat
writeln ('Vvedi kol-vo zabitih golov');
readln (A);
writeln ('Vvedi kol-vo propushenih golov');
readln (B);
If (A=B) then SC+=1 else
If (A>B) then SC+=3;
SA+=A; SB+=B;
until ((A=-1)and(B=-1));
writeln ('kolvo propushenih golov ',SB,', kolvo zabitih golov ',SA,', vsego o4kov ',SC);
readln;
end.
P.S. Надеюсь не соврал с синтаксисом. Давно это дело было=)
Ответ от Ewe 2e¶ CoЛнЫшКоcBeTиТоЧеНЬяРкО*[гуру]
//ничего. сложного
repeat
//ввод данных
//обработка данных
//выдача данных на экран
until((a=-1)and(b=-1));
//ничего. сложного
repeat
//ввод данных
//обработка данных
//выдача данных на экран
until((a=-1)and(b=-1));
Ответ от MMM_Corp[гуру]
от 5 у. е. , напишу, обращайтесь
от 5 у. е. , напишу, обращайтесь
Ответ от Gennady[гуру]
Доброго времени суток.
Малость соврали, Виталий Яндулов 🙂 В паскале не сработает инкремент SC+=1 и тип переменных для А и В должен быть Integer, иначе они просто не смогут стать равными -1. Но и это еще не все. Допустим, сразу после запуска отказываемся от дальнейшей работы и вводим две -1. В результате ожидаем получить нули на выходе, ан нет, забитых и пропущенных будет по -1, а очков одно. Отсюда вывод: надо либо функционал поместить в условный оператор, либо после выхода из цикла корректировать значения счетчиков.
Удачи!
Доброго времени суток.
Малость соврали, Виталий Яндулов 🙂 В паскале не сработает инкремент SC+=1 и тип переменных для А и В должен быть Integer, иначе они просто не смогут стать равными -1. Но и это еще не все. Допустим, сразу после запуска отказываемся от дальнейшей работы и вводим две -1. В результате ожидаем получить нули на выходе, ан нет, забитых и пропущенных будет по -1, а очков одно. Отсюда вывод: надо либо функционал поместить в условный оператор, либо после выхода из цикла корректировать значения счетчиков.
Удачи!
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Нужна помощь в паскале (repeat… until)
спросили в RFID Rhabditida
в чём смысл функций repeat и until в паскале??? спасибо заранеее
repeat - повтор, until -
подробнее...
в чём смысл функций repeat и until в паскале??? спасибо заранеее
repeat - повтор, until -
подробнее...
перевести число десятичной системы в двоичную ПАСКАЛЬ
var
n,i: integer;
s:string;
begin
repeat
readln(n);
until(n >
подробнее...
спросили в Randomness
как сформировать одномерный массив различных чисел в паскале?
Не силён в программировании.. .
Но - вот.
Значения НЕ повторяются.
var
a:
подробнее...
как сформировать одномерный массив различных чисел в паскале?
Не силён в программировании.. .
Но - вот.
Значения НЕ повторяются.
var
a:
подробнее...
Строковые переменные (Паскаль).Подскажите пожалуйста
var i:integer; Str:string;
begin
Writeln('Введите текст'); Readln(Str); i:=0;
Ответ от 3 ответа[гуру]
Привет! Вот еще темы с похожими вопросами:
Дано натуральное число n, чему равна сумма цифр числа (Паскаль)
uses Crt;
var a,b:LongInt; sum:Byte;
begin
ClrScr;
Writeln('vvedite
подробнее...
спросили в Паскаль
(подскажите лузеру)Какие есть команды в Паскале авс?И что они означают?
есть операции!
1.Операция присваивания. Пример: y:=y-5. В математике предыдущий пример не
подробнее...
(подскажите лузеру)Какие есть команды в Паскале авс?И что они означают?
есть операции!
1.Операция присваивания. Пример: y:=y-5. В математике предыдущий пример не
подробнее...
спросили в Цикл Паскаль
как задать цикл в паскале..
Доброго времени суток.
Прежде чем задавать цикл нужно определиться, какй цикл требуется,
подробнее...
как задать цикл в паскале..
Доброго времени суток.
Прежде чем задавать цикл нужно определиться, какй цикл требуется,
подробнее...
спросили в Цикл
расскажите про цикл с постусловием в паскале(с примером)
Примерно так:
repeat
<блок операторов>
until <условие>;
Цикл
подробнее...
расскажите про цикл с постусловием в паскале(с примером)
Примерно так:
repeat
<блок операторов>
until <условие>;
Цикл
подробнее...
спросили в Пластуны
Нужно рассчитать время между двумя датами в паскале.. Вроде начало получаться, но в итоге запуталась с месяцами. .
program Date2;
uses crt;
type
TDate = record
day: 1..31;
month: 1..12;
Нужно рассчитать время между двумя датами в паскале.. Вроде начало получаться, но в итоге запуталась с месяцами. .
program Date2;
uses crt;
type
TDate = record
day: 1..31;
month: 1..12;
Помогите с задачей в паскале абс
Код программы:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
var
N, M : byte; // Размеры
подробнее...
Перечисляемый тип в Паскале ABC
Начнем с того, что Inc() это процедура. Это раз. Во-вторых, перечисляемый тип задается так