Разработать программу в Gambas.
10-11 класс
|
PUBLIC SUB Main()
DIM in AS Integer
DIM ans AS Integer
DIM i AS Integer
INPUT in
FOR i = in TO 1 STEP -1
ans = ans * i
NEXT
PRINT ans
END
Учти, что до этого не работал с бэйсиком, так что если есть компилятор, то лучше попробуй запустить.
да, мы в такой программе работаем
Другие вопросы из категории
напишите программу определения стоимости разговора по телефону с учётом скидки 20% представляемой по субботам и воскресениям. Вычисление стоимости разговора по телефону. Введите исходные данные: Длительность разговора(целое количество минут)— 3 День недели(1-понедельник,...7-воскресенье)--5 Предоставляется скидка 20% Стоимость разговора: 5.52 руб. (она большая должна быть и для паскаля)!
m:=14
n-m-3
m:n+m
write (m,n);
какие числа будут выведены на экран?
Читайте также
Разработать
программу в соответствии со своим вариантом: создать структуру типа «запись», выполнить
обработку данных.
Задание 1.разработайте программу которая будет вычислять площадь трапеции
задание 2.создайте проект который изменит цвет и размер формы
Имя массива J
Размер 32
Программа должна реализовывать следующие функции:
1.Сумма всех чисел
2.минимальное чётное число
3.кол-во отрицательных нечётных чисел
4.сумма отрицательных нечетных чисел
графического режима на паскале abc
.
Реализовать программу, которая
периодически выводит на экран «звездное
небо» и затем гасит его.
"Разработать программу,
которая осуществляет в текстовом файле поиск заданных слов. Слова
последовательно вводятся с клавиатуры. Для каждого слова должно определяться
количество вхождений и номера строк текста. Если указанное слово в файле
отсутствует, то программа должна выводить соответствующее сообщение."
И если можно, то и блок-схему.
Заранее спасибо!