|
|
| Другие темы раздела | |
| 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. |
|
Turbo Pascal Определить максимальное и минимальное значения массива
https://www.cyberforum.ru/ turbo-pascal/ thread251415.html Создать программу, определяющую максимальное и минимальное значения массива(если можно с комментариями чтоб было понятно) |
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)); |
Turbo Pascal множества
https://www.cyberforum.ru/ turbo-pascal/ thread251359.html 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) найти индексы элементов, которые кратны минимальному значению элемента массива. |
| Turbo Pascal Получить действительный квадрат матрицу порядка 8, элементами которой являются числа от а1 до 64аб Даны Числа а1 до а64. Числа Генерировать в диапозоне от 1 до 64 по закону равномерного распределения. Получить действительный квадрат матрицу порядка 8, элементами которой являются числа от а1 до 64аб расположеные в ней по схеме. https://www.cyberforum.ru/ turbo-pascal/ thread251342.html |
Turbo Pascal Все натуральные числа не превосходящие заданное число N и равное сумме кубов своих цифр.
https://www.cyberforum.ru/ turbo-pascal/ thread251337.html Найти все натуральные числа не превосходящие заданное число N и равное сумме кубов своих цифр. Знаю как решать. не знаю как написать(( вот что то написал но думаю не то пальто вообще... кто может, помогите)) program tak; var a,b,c,ch : integer; begin |
|
Turbo Pascal Деление отрезка пополам Помогите пожалуйста написать программу, которая считает корни функции с погрешностью методом деления отрезка пополам. |
Turbo Pascal Определить количество цифр в цифровой записи числа
https://www.cyberforum.ru/ turbo-pascal/ thread251313.html Дано натуральное число N. Определить количество цифр в цифровой записи данного числа, которые имеют наибольшее значение. Подскажите как исправить код. Когда преподавателю показал, задал мне число 23453, вот тут у меня и возникла ошибка... а вот например число 1808 считает спокойно выдаёт 2. var n,k,min:integer; begin cls; min:=9; k:=0; |
|
alexandr18
|
|
| 0 | |
обработка файлов - Turbo Pascal - Ответ 141681503.03.2011, 11:24. Показов 515. Ответов 0
Метки (Все метки)
2. Создайте текстовый файл p так, что бы он был разбит на непустые строки. Напишите программу для подсчета числа строк, которые состоят из одинаковых литер. Вернуться к обсуждению: обработка файлов Turbo Pascal |
|
| 03.03.2011, 11:24 | |
|
Готовые ответы и решения:
0
Обработка файлов. Обработка файлов Обработка файлов Обработка файлов |
| 03.03.2011, 11:24 | |
| 03.03.2011, 11:24 | |
|
Помогаю со студенческими работами здесь
0
Обработка текстовых файлов
|
Наверх