|
|
Другие темы раздела | |
Turbo Pascal Подсчет количеста аннаграм =)
https://www.cyberforum.ru/ turbo-pascal/ thread251473.html Здравствуйте var s, s1: string; i, j, kol, fac, fact, res, q: longint; begin readln(s); q:= 1; fac:= 1; for i:= 1 to length(s) do begin |
Turbo Pascal обработка файлов 1. Создайте файл f, компоненты которого являются действительными числами. Напишите программу вычисления суммы компонент файла f и наименьший компонент файла. 2. Создайте текстовый файл p так, что бы он был разбит на непустые строки. Напишите программу для подсчета числа строк, которые состоят из одинаковых литер. |
Turbo Pascal Вычислить сумму S=1*2+2*3*4+3*4*5*6+...+n(n+1)...2n. Вот такое вот задание: дано натуральное число n= 15. Вычислить сумму S=1*2+2*3*4+3*4*5*6+...+n(n+1)...2n. Вот такая получилась программа: n:=15; s:=0; for i:=1 to 15 do begin k:=i; https://www.cyberforum.ru/ turbo-pascal/ thread251460.html | Turbo Pascal Если скобки расставлены правильно (т.е. каждой открывающейся соответствует одна закрывающаяся), то вывести число 0 Дана строка, содержащая несколько круглых скобок. Если скобки расставлены правильно (т.е. каждой открывающейся соответствует одна закрывающаяся), то вывести число 0. В противном случае вывести или номер позиции, в которой расположена 1-ая ошибочно закрывающаяся скобка, или, если закрывающихся скобок не хватает, число - 1. https://www.cyberforum.ru/ turbo-pascal/ thread251422.html |
Определить максимальное и минимальное значения массива Turbo Pascal Создать программу, определяющую максимальное и минимальное значения массива(если можно с комментариями чтоб было понятно) |
Turbo Pascal Определить столбец матрицы с максимальным значением суммы положительных элементов
https://www.cyberforum.ru/ turbo-pascal/ thread251409.html В прямоугольной матрице размером М*К, , имеющей имя ММ содержаться целые числа. М- число строк, К- число столбцов. Ввести элементы матрицы с клавиатуры. Определить и вывести на экран сумму положительных элементов в каждом столбце. Определить столбец с максимальным значением этой суммы и вывести его номер на экран. |
Turbo Pascal Графика: одновременная анимация нескольких объектов Привет, подскажите как сделать, чтобы все эти 4 объекта запускались одновременно, а не как сейчас по очереди. uses crt, graph; const n=15; procedure Vrash(a:real;var x,y:integer;x0,y0,d:integer); begin a:=a*pi/180; x:=x0+round(d*cos(a)); https://www.cyberforum.ru/ turbo-pascal/ thread251382.html |
множества Turbo Pascal 1. В возрастающем порядке напечатать все целые числа из диапазона 1..100, представимые в виде n*n+m*m , где n,m>=0. 2. Ввести в качестве множества имена всех дней недели. из этого множества удалить выходные дни и напечатать элементы полученного множества. |
Turbo Pascal Составить рекурсивную подпрограмму вычисления n-ого члена последовательности
https://www.cyberforum.ru/ turbo-pascal/ thread251353.html Составить рекурсивную подпрограмму вычисления n-ого члена последовательности по рекуррентной формуле: аi = аi-1 +2, где а1 =1, i=2,3,4, … |
Turbo Pascal В заданном массиве К(N) найти индексы элементов, которые кратны минимальному значению элемента массива В заданном массиве К(N) найти индексы элементов, которые кратны минимальному значению элемента массива. https://www.cyberforum.ru/ turbo-pascal/ thread251352.html |
Turbo Pascal Получить действительный квадрат матрицу порядка 8, элементами которой являются числа от а1 до 64аб Даны Числа а1 до а64. Числа Генерировать в диапозоне от 1 до 64 по закону равномерного распределения. Получить действительный квадрат матрицу порядка 8, элементами которой являются числа от а1 до 64аб расположеные в ней по схеме. |
Turbo Pascal Все натуральные числа не превосходящие заданное число N и равное сумме кубов своих цифр.
https://www.cyberforum.ru/ turbo-pascal/ thread251337.html Найти все натуральные числа не превосходящие заданное число N и равное сумме кубов своих цифр. Знаю как решать. не знаю как написать(( вот что то написал но думаю не то пальто вообще... кто может, помогите)) program tak; var a,b,c,ch : integer; begin |
124 / 120 / 54
Регистрация: 10.02.2011
Сообщений: 202
|
||||||
03.03.2011, 14:28 | 0 | |||||
Записи - Turbo Pascal - Ответ 141727103.03.2011, 14:28. Показов 958. Ответов 1
Метки (Все метки)
Сообщение было отмечено desmond как решение
Решение
Вернуться к обсуждению: Записи Turbo Pascal
0
|
03.03.2011, 14:28 | |
Готовые ответы и решения:
1
Записи. Найти объем и площадь всей поверхности усеченного конуса, заданного в виде записи Напечатать те цифры, которые есть в записи первого и второго числа, но нет в записи третьего. Посчитать количество нулей в двоичной записи записи числа Записи: Вывести на печать информацию об инструменте с самым большим сроком использования и выполнить корректировку этой записи |
03.03.2011, 14:28 | |
03.03.2011, 14:28 | |
Помогаю со студенческими работами здесь
0
Даны три натуральных числа.Напечатать те цифры,которые есть в записи первого и второго числа,но нет в записи третьего Проверить, есть ли в записи числа m цифры, одинаковые с цифрами в записи числа n Записи. Записи Записи Записи |