|
|
| Другие темы раздела | |
|
Turbo Pascal Нужно добавить комментарии
https://www.cyberforum.ru/ turbo-pascal/ thread1952963.html Может поможет кто чем может пожалуйста. Нужно написать алгоритм решения (//комментарии). Определить число, получаемое выписыванием в обратном порядке цифр заданного натурального числа n. Вводите число n как значение типа integer. Например, если n = 1234, то ответ равен 4321. Строки не использовать. var a,d,m:integer; b:longint; begin write('a='); |
Построить таблицу соответствий между мерами Turbo Pascal построить таблицу соответствий между мерами. Начальное значение меры, шаг изменения этого значения и количество строк в таблице (10-15) задать самостоятельно в режиме диалога. Подготовить таблицу лучше используя форматы ввода. 1квартет = 291 л. = 5123.24 чарок. |
|
Turbo Pascal Определить, является ли сумма элементов массива четным числом
https://www.cyberforum.ru/ turbo-pascal/ thread1952437.html Задан массив целых чисел. Определить, является ли сумма элементов этого массива четным числом. |
Turbo Pascal Определить максимальный элемент матрицы Задана матрица целых чисел. Определить максимальный элемент этой матрицы и записать нули в строку, в которой он находится. https://www.cyberforum.ru/ turbo-pascal/ thread1952436.html |
|
Turbo Pascal Объясните, что делает эта процедура. Построчно Procedure vvod(Var x:Matr; n:Byte); Var d,i,j:Byte; S,y : String; Begin clrscr; writeln('Введите матрицу построчно'); For i:=1 to n do begin y:=' '; |
Turbo Pascal Вычислить значение выражения Составить схему расчета при условии, что величина N вводится с клавиатуры, последовательности ak, bk вводятся в процессе вычислений с магнитного диска, результат выводится на печать. S=\sum_{k=1}^{N}(-1)^k\left(a_k+b_k \right) https://www.cyberforum.ru/ turbo-pascal/ thread1951862.html |
| Turbo Pascal Написать функцию, выводящую имена файлов текущей директории по заданной маске написать функцию, выводящую на экран(в файл) имена файлов в текущей директории по заданной параметром маске, возвращающую 0, если файлов не найдено, -1, если произошла ошибка при обращении к устройству или др., положительное число в остальных случаях, равное количеству найденных имен. https://www.cyberforum.ru/ turbo-pascal/ thread1951836.html |
Turbo Pascal Вычислить номер дня в году по дате Написать функцию, вычисляющую порядковый номер заданного датой дня от начала соответствующего года. входные параметры: день месяц год, выходные: номер дня во введенном году |
| Turbo Pascal Функция okr Здравствуйте. Имеется старая программа на турбо Паскаль, которую нужно переделать так, чтобы она работала на абс. Модуль okrugl нынешний паскаль не поддерживает. И по функции okr не могу никакой информации найти. Где можно про неё почитать? Или, если знаете, как она работает, чем можно заменить? https://www.cyberforum.ru/ turbo-pascal/ thread1951570.html | Turbo Pascal В одномерном числовом массиве найти суммы элементов по заданным условиям В одномерном числовом массиве найти: а) сумму всех элементов, стоящих на четных местах; б) сумму всех элементов, имеющих нечетное значение. https://www.cyberforum.ru/ turbo-pascal/ thread1951556.html |
|
Найти все натуральные числа, не превосходящие заданного N и равные сумме кубов его цифр Turbo Pascal Найти все натуральные числа, не превосходящие заданного N и равные сумме кубов его цифр. var i,j,k,n: integer; begin write('Введите значение n='); readln(n); begin for i:=1 to n do for j:=0 to n do |
Turbo Pascal Посчитать средний балл студентов определённой группы
https://www.cyberforum.ru/ turbo-pascal/ thread1951451.html Посчитать средний бал студентов определенной группы. (Через записи в Pascal) |
|
0 / 0 / 1
Регистрация: 04.04.2017
Сообщений: 23
|
|
| 04.04.2017, 16:20 [ТС] | 0 |
Вывести на печать заданную фразу - Turbo Pascal - Ответ 1029386504.04.2017, 16:20. Показов 3520. Ответов 7
Метки (Все метки)
Ответ
Спасибо.Но программа слишком легко выглядит.
Вернуться к обсуждению: Вывести на печать заданную фразу Turbo Pascal
0
|
|
| 04.04.2017, 16:20 | |
|
Готовые ответы и решения:
7
В текстовом файле заменить одну заданную фразу на другую (файловый ввод/вывод)
|
| 04.04.2017, 16:20 | |
| 04.04.2017, 16:20 | |
|
Помогаю со студенческими работами здесь
0
Вывести фразу Вывести фразу из модуля Вывести фразу внутри кольца Как в калькуляторе вывести случайную фразу
Ввести фразу и вывести ее в обратном порядке |