сервис вопросов и ответовпаскаль.
10-11 класс|
|
есть n количество студентов и t время. блоха сидит на первом студенте. и за каждую секунду прыгает на следующего. программа должна вывести на каком студенте блоха окажется по окончании времени
Ladygagav
13 авг. 2016 г., 7:21:14 (7 лет назад)
Enot1999
13 авг. 2016 г., 8:46:20 (7 лет назад)
В общем, вот Вам программа на Console Aplication:
var n,t,i,a:Integer;
begin
Writeln('Vvedite kol-vo studentov');
Readln(n);
Writeln('Vvedite kol-vo vremeni(sek)');
Readln(t);
a:=1;
for i:=1 to t do
begin
a:=a+1;
if (a=n) then
begin
a:=0;
end;
if i=t then
begin
Writeln('cherez ', (t), ' sek bloha bydet na ', (a), ' studente');
end;
end;
Readln;
end.
Всё работает, проверял.
Kasyam96
13 авг. 2016 г., 13:10:59 (7 лет назад)
Можно Вас спросить:это в Aplication, либо в Console Aplication?
Ответить
Другие вопросы из категории
построить график функции в QBasic? y=ax+b a=3,b=1
вот программа,но надо составить немного проще...без клеточек.
20 SCREEN 12
30 VIEW (10, 10)-(300, 300), , 3
40 WINDOW (-10, 10)-(10, -10)
50 FOR x = -10 TO 10
60 LINE (x,
-10)-(x, 10), 7
Читайте также
1.тема циклы со сщетчиком.Написать программу в паскале для ввода с клавиатуры 15 чисел и вывода номеров отрицательных элементов.
2.написать программу в паскале
f(x)=2(sin*sin)x+1
Рассказать и показать на примере Паскаль: 1) Что такое absolute и для чего нужна? 2) Что такое asm и для чего нужна? 3) Что такое
constructor и destructor и для чего нужна?
4) Что такое implementation и для чего нужна?
5) Назовите модули Паскаль ( в строке Uses, например crt) и какие возможности этот модуль дает?
6) Что за тип переменной: указательный (Pointer)
7) И на последок: что означает символ @ , #, $ , ^
3. Не используя функцию возведения в квадрат, напишите на языке Паскаль наиболее короткие алгоритмы вычисления а) y=x¹° б)y=x¹⁵ или а) y=x^10
б)y=x^15
Постараться использовать минимальное количество дополнительных переменных.
4. Запишите на языке Паскаль программу циклического обмена значениями трёх переменных a,b,c. Схема циклического обмена: a ← b ← c. Например, если до обмена было: a=1, b=2, c=3, то после обмена должно стать: a=2, b=3, c=1.
Прошу переделать код программы с языка Паскаль на С++.
Вот код Паскаль:
var
f:array[1..500] of record
fam:string;
bal:boolean;
end;
buf:boolean;
str:string;
Вы находитесь на странице вопроса "паскаль.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.