НАДО 1. Составить блок-схему и программу: Даны стороны прямоугольника а, b. Распечатать периметри площадь.
2. Составить блок-схему и программу:
Даны два числа а, b. Распечатать сумму, разность, произведение и частное этих чисел
3. Сост, блок-схему и программу для вычисления площадей геометрических фигур со
сторонами:
4. Составить блок-схему и программу:
Даны 3 числа а, b, с. Распечатать сумму, произведение, частное этих
5. Решить задачу. В магазин завезли 30 ящиков груш. В1-й день магазин продал
всех груш, а во 2-й день 1/3 от оставшихся яшіков.
6. блок-схему н программу: Даны стороны прямоугольника а,b Найти
площадь квадрата, который составляет 1/3 площади
7. Составить блок-схему и программу:
Молоко разлили в 3 кувшина. В первый кувшин налили 1/5 л. Молока во второй - в 2
раза меньше, в третий - в 2 раза больше, чем в первый. Сколько молока в трех
куншинах?
8. Составить блок-схему и программу
Даны стороны прямоугольника а, b. Распечатать периметр и площадь.
9. Составить блок-схему и программу:
Автомобиль проехал S км, за часов. Распечатать скорость автомобиля
10. Составить блок-схему п программу:
Даны два числа b. Распечатать сумму, разность, произведение и частное этих чисел.
Тема" Линейные алгоритмы и блок-схемы"
FOR i = 1 TO 100
percents = FIX(x * p / 100) ' здесь у нас есть переменная percents, которой присваиваются округленные функцией fix проценты (насколько я знаю, в паскале аналогичная функция называется Round)
x = x + percents 'тут всё понятно - переменной X присваивается она сама и годовые проценты по вкладу
IF x >= y THEN 'проверяем, не равен или не превысил ли наш вклад ожидаемую сумму
PRINT i 'в цикле For можно не заморачиваться с отслеживанием лет, переменная i сама подсчитает количество итераций-лет
END 'завершаем программу
END IF
NEXT i ' конец цикла
Можно ещё чисто для себя добавить в условие вывод переменной X, чтобы было нагляднее.
DIM n AS INTEGER
INPUT "Введите кол-во студентов:", n
DIM studentYearsOld(1 TO n) AS INTEGER
DIM studentName(1 TO n) AS STRING
FOR i = 1 TO n
INPUT "Введите имя студента:", studentName(i)
INPUT "Введите год рождения студента:", studentYearsOld(i)
NEXT i
PRINT
FOR i = 1 TO n
PRINT "Студент "; studentName(i)
studentYrs = 2016 - studentYearsOld(i)
IF studentYrs < 18 THEN
PRINT "Лет до права голоса:"; 18 - studentYrs
ELSEIF studentYrs >= 18 THEN
PRINT "Студент уже имеет право голоса!"
PRINT
END IF
studentYrs = 0
NEXT i
Код валидный, если допустил ошибку во время переписывания - сообщите.