|
|
| Другие темы раздела | |
| Turbo Pascal Записи и файлы СРОЧНО Разработать алгоритм и программу для решения задачи с использованием типа запись. Даны сведения о результатах сессии: ФИО студента, название четырех предметов и оценки, полученные по каждому предмету. Требуется вывести фамилии студентов, общий бал которых отличается не более чем на 2 балла от максимального общего балла. https://www.cyberforum.ru/ turbo-pascal/ thread284226.html |
Одномерный масив Turbo Pascal Дан одномерный масив n-ой размерности. Определить сколько в масиве 0,1,2 и д.т (пример нулей - 0, двоек - 2, троек - 0, четверок -1 и т.д) |
|
Turbo Pascal Интегралы методом прямоугольников
https://www.cyberforum.ru/ turbo-pascal/ thread284213.html Добрый день! Посмотрите пожалуйста код программы, а то капаюсь в ней а ошибки исправить не могу... program integrals; type fun = function(x:real) : real; var a,b:real; n: integer; {$F+} function Q(X:real) : real; begin |
Turbo Pascal Нужно изминить (пример:sin+2y заменить на p1...p2...p3 и т.д.) program kursovakopach; uses crt; type arr= arrayof real; xrr= arrayof real; var a:arr; x:xrr; g:real; procedure mas(var a:arr); var i,j:integer; begin https://www.cyberforum.ru/ turbo-pascal/ thread284212.html |
|
Turbo Pascal Создание файла с заданым именем. Надо написать программу или блок программы , которая создаёт фаил с расширением .тхт , а имя файла вводится с клавиатуры. |
Turbo Pascal прямоугольная матрица
https://www.cyberforum.ru/ turbo-pascal/ thread284181.html Дана прямоугольная матрица. Все элементы, лежащие на главной диагонали, заменить на сумму элементов соответствующей строки. |
| Turbo Pascal [Решено]Проверка на анаграмму На вход подаются два слова разделенные пробелом. Длина слов может быть от 1 до 1000. Слова могут состоять из строчных букв латинского или русского алфавита. Ваша программа должна вывести слово Yes, если слова являются анаграммами и No в противном случае. var s: array of char; i,j,n,c:integer; b:boolean; Begin i:=0; while s<>#13 do https://www.cyberforum.ru/ turbo-pascal/ thread284168.html |
Мерцание и кое-что еще Turbo Pascal Вопрос таков : как убрать мерцание ? и почему когда я меняю приращение (dx,dy) задача перестает выполняться- шарик вылетает за границы квадрата program kurs; uses graph,crt; procedure zapros(var a,b:byte; var n, m: word); var txt: text; |
| Turbo Pascal Программа на тему "записи". Условие: База данных студентов содержит ФИО и средние баллы за 5 сессий. Написать программу, осуществляющую вычисление среднего балла каждого студента за все обучение и распечатывающую записи о студентах по трем категориям. Первая категория - средний балл за все обучение >= 4.6 Вторая >= 3.6 , но меньше 4.6.Третья - все остальные. Базу данных задать самостоятельно (20 записей).... https://www.cyberforum.ru/ turbo-pascal/ thread284148.html |
Turbo Pascal Массив записей
https://www.cyberforum.ru/ turbo-pascal/ thread284119.html Как реализовать передачу данных из файла типа record в массив этого же типа? Если можно напишите код в общем виде? |
|
Создать блок-схему для программы Turbo Pascal var a: array of integer; i,n,k,p: integer; Begin readln(n); p:=1; for i:=1 to n do begin readln(a); if (a>0) and (a<=4) then |
Turbo Pascal Дополнительные сиволы Наверное ответ очень простой, но материал не наешл. Мне нужна таблица расгиренных сиволов для паскаля, тоесть я хочу вставить символы: ╚║╝═╔ ╗ и т.д, но каким образом их вставить я не знаю. подскажите пож Добавлено через 10 минут все всем спасибо, я поспешил, сам нашел ответ https://www.cyberforum.ru/ turbo-pascal/ thread284110.html |
|
ТеслаЭнерджи
|
|
| 27.04.2011, 18:00 | 0 |
Определить каждую цифру рандомного числа - Turbo Pascal - Ответ 159310427.04.2011, 18:00. Показов 1401. Ответов 2
Метки (Все метки)
Ответ
вот спасибо, а то я совсем не знал что делать. скоро зачет, а я в паскале не шарю совсем.
Вернуться к обсуждению: Определить каждую цифру рандомного числа Turbo Pascal |
|
| 27.04.2011, 18:00 | |
|
Готовые ответы и решения:
2
|
| 27.04.2011, 18:00 | |
| 27.04.2011, 18:00 | |
|
Помогаю со студенческими работами здесь
0
Вывести все числа до заданного числа, которые делятся на каждую свою цифру. Реализовать функцию разложения числа на цифры и проверки деления исходного числа на каждую цифру Найти произведение числа А на каждую цифру числа Б.
|