Спроектировать и реализовать программу расчета таблицы соответствий между мерами - Turbo Pascal - Ответ 3480357

23.09.2012, 21:26. **Показов** 2081. **Ответов** 1

Студворк — интернет-сервис помощи студентам

Уважаемые форумчане, на завтра задали вопросы сделать и программу написать,кто знает ответьте пожалуйста.

Вопросы:1. Выражения какого типа можно записывать после служебного слова FOR?
2. Как организовать выполнение нескольких операторов в цикле FOR?
3. Чем отличается действие операторов For_to_do и For_downto_do?
4. Когда завершается выполнение цикла FOR?
5. Можно ли изменять значение переменной-параметра цикла в середине цикла?
6. Чему равняется значение переменной-параметра цикла после выхода из цикла?

Программа: Спроектировать и реализовать программу расчета таблицы соответствий между мерами. Начальное значение меры, шаг изменения этого значения и количество строк, в таблице (10-15) задать в режиме диалога. Оформить таблицу как можно лучше, применяя форматирование вывода.
Пример оформления таблицы:

метры:	3,	5,	7,	9,	11
дециметры:	30,	50,	70,	90,	110
сантиметры:	300,	500,	700,	900,	1100

меры

1. 1 фингер = 11.4 см = 4.5 дюйма
2. 1 фут = 0.3048 м = 12 дюймов
3. 1 ярд = 0.9144 м = 3 фута
4. 1 дюйм = 2.54 см = 12 линий
5. 1 нейл = 5.7 см = 2.25 дюйма
6. 1 чейн строительный = 30.48 м = 100 футов
7. 1 галлон (США) = 0.0347 сак = 3.785 л
8. 1 галлон(Брит.)= 1.2 галлон(США)= 4.546 л
9. 1 драхмы = 1.77185 г =0.06249 унций
10. 1 унция = 28.353495 г = 142 карата
11. 1 сутки = 24 часа = 1440 минут
12. 1 час = 60 минут = 3600 секунд
13. 1 кабельт Брит. = 0.183 км = 680 футов
14. 1 кабельт США = 219.3 м = 720 футов
15. 1 морская миля = 1.852 км =6076 футов

на языке оригинала

Вопросы:1. Вирази якого типу можна записувати після службового слова FOR?
2. Як організувати виконання декількох операторів у циклі FOR?
3. Чим відрізняється дія операторів FOR_TO_DO і FOR_DOWNTO_DO?
4. Коли завершується виконання циклу FOR?
5. Чи можна змінювати значення змінної-параметра циклу в середині циклу?
6. Чому дорівнює значення змінної-параметра циклу після виходу з циклу?

Программа:
Спроектувати і реалізувати програму розрахунку таблиці відповідностей між мірами. Початкове значення міри, крок зміни цього значення і кількість рядків у таблиці (10-15) задати в режимі діалогу. Оформити таблицю якнайкраще, застосовуючи форматування виводу. Приклад оформлення таблиці:

метри:3,5,7,9,11.
дециметри:30,50,70,90,110
сантиметри:300,500,700,900,1100

меры

1. 1 фінгер = 11.4 см = 4.5 дюйма
2. 1 фут = 0.3048 м = 12 дюймів
3. 1 ярд = 0.9144 м = 3 фути
4. 1 дюйм = 2.54 см = 12 ліній
5. 1 нейл = 5.7 см = 2.25 дюйма
6. 1 чейн будівельний = 30.48 м = 100 футів
7. 1 галон (США) = 0.0347 сак = 3.785 л
8. 1 галон(Брит.) = 1.2 галон(США) = 4.546 л
9. 1 драхм = 1.77185 г =0.06249 унцій
10. 1 унція = 28.353495 г = 142 карата
11. 1 доба = 24 години = 1440 хвилин
12. 1 година = 60 хвилин = 3600 секунд
13. 1 кабельт Брит. = 0.183 км = 680 футів
14. 1 кабельт США = 219.3 м = 720 футів
15. 1 морська миля = 1.852 км =6076 футів

Вернуться к обсуждению:
Спроектировать и реализовать программу расчета таблицы соответствий между мерами Turbo Pascal

Следующий ответ

Другие темы раздела
Turbo Pascal машинный код https://www.cyberforum.ru/ turbo-pascal/ thread656787.html Господа, помогите пожалуйста! Нужно написать программу позволяющую переводить двоичные числа в машинный код: прямой, обратный и дополнительный ход.	Структуированные типы. Массив записей. Структура: величина, наименование, обозначение, размер Turbo Pascal Создать список международной системы единиц. 1. Описать и ввести массив, содержащий 10 записей следующей структуры: величина (длина, масса, время и так далее), наименование единицы (метр, килограмм, секунда и так далее), обозначение межународное (m, kg, s и так далее), обозначение русское (м, кг, с и так далее), размер единицы (определён международным соглашением, мм, кг/(мм*м) и так далее)....
Turbo Pascal Вычислить значение выражение \frac{\left\|7,2-10x \right\|}{\sqrt{\frac{x}{9}+{e}^{2x}}}arctg\frac{4tg2x}{\sqrt{1,1{x}^{3}}} var x: real; begin writeln('Vvedite x'); readln(x); writeln((abs(7.2-10x))/(3(sqrt(x/9+exp(2x))))(arctn(4tn(2x)))/sqrt(1.1(((sqr x)x)))); readln; end. https://www.cyberforum.ru/ turbo-pascal/ thread656754.html	Turbo Pascal Формат вывода, типы данных https://www.cyberforum.ru/ turbo-pascal/ thread656742.html
Вычислить значение выражения Turbo Pascal Функции, отсутствующие в списке стандартных функций языка Turbo Pascal, следует выразить через имеющиеся.	Turbo Pascal Вычислить количество слов и вывести на печать самую длинную строку https://www.cyberforum.ru/ turbo-pascal/ thread656731.html для каждой строки текста нужно вычислить количество слов и вывести на печать строку, в которой больше слов. помогите пожалуйста, надо сделать через процедуру, через функцию, и без них.
Turbo Pascal По введенному дню недели определить, рабочий это день или выходной По введенному дню недели определить, рабочий это день или выходной https://www.cyberforum.ru/ turbo-pascal/ thread656728.html	Ввести с клавиатуры четырехзначное число и определить, есть ли среди цифр этого числа заданная цифра Turbo Pascal Ввести с клавиатуры четырехзначное число и определить, есть ли среди цифр этого числа заданная цифра.
Turbo Pascal Определить, принадлежит ли точка с координатами (x, y) заштрихованной фигуре https://www.cyberforum.ru/ turbo-pascal/ thread656725.html Даны переменные x, y. Выяснить, принадлежит ли точка с координатами (x, y ) заштрихованной фигуре	Turbo Pascal Заменить отрицательные элементы их абсолютными величинами, подсчитать число элементов, равных нулю https://www.cyberforum.ru/ turbo-pascal/ thread656687.html В заданном массиве Х1, Х2, и т.д заменить значения отрицательных элементов их абсолютными величинами, при этом подсчитать число элементов равных нулю
Найти наименьший элемент массива Turbo Pascal zd_2 задан одномерный числовой мас из 10 чисел необходимо найти наименьший элемент массива Требования к заданию а)ввод исх. данных в мас с использованием структуры цикл с предусловием(при отладке программы для быстрого заполнения массива рекомендуется использовать оператор massiv:= random(0,100); б)при организации перебора данных массива использовать цикл с параметром В) при организации...	Turbo Pascal Сформировать одномерный массив по формуле Zd_1 Задан одномерный числовой массив ( X)10ти чисел. Сформировать другой одномерный числовой массив (У), каждый элемент которого вычисляеся по формуле Y(i)= (1/(b^2))exp(-(x^2)/2(b^2))), где и b = 1,25 i=1,2,...,10 1)ввод исходных данных мас (Х) с использованием циклической группы с параметром. 2) расчет элементов масс (У) с использованием группы с пост условием 3)вывод результатов с... https://www.cyberforum.ru/ turbo-pascal/ thread656682.html