Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Снизу вверх на экране растет и увеличивается какой-либо объект Снизу вверх на экране растет и увеличивается окружность что то типо овала становится, можно любой другой объект . Кто поможет буду очень благодарен. https://www.cyberforum.ru/ turbo-pascal/ thread1422312.html	Turbo Pascal Заполните стек упорядоченными по убыванию числами. После заданного числа в стеке вставьте число 0 Заполните стек упорядоченными по убыванию числами. После заданного числа в стеке вставьте число 0. Буду благодарен. Можно исправить данный код под задание: uses crt; type stek=^node; node=record data:integer; pred:stek end; var last,cur,p:stek;n,i:byte;
Turbo Pascal Изменить матрицу, увеличив каждый элемент, который меньше элемента главной диагонали https://www.cyberforum.ru/ turbo-pascal/ thread1422121.html Помогите пожалуйста решить задачу. Дан массив c1,c2,...,cn Изменить матрицу,увеличив каждый элемент, который меньше элемента главной диагонали , находящегося с ним в одной строке,на Ci , I-номер строки.Подсчитать число изменившихся элементов. Вот на фортране dimension A(5,5),C(5) integer k,I,J real A,C write (,) 'vvedite matrizy'	Turbo Pascal Определить сумму элементов матрицы, лежащих ниже главной диагонали Помогите пожалуйста решить задачу на Паскале. Если целочисленная квадратная матрица симметрична относительно главной диагонали, обнулить все элементы,лежащие выше главной диагонали.и определить сумму элементов, лежащих ниже главной диагонали Вот на фортране: !simmetrichna li matriza logical function PP1(A,n) dimension A(n,n) integer I,J,A https://www.cyberforum.ru/ turbo-pascal/ thread1422120.html
Шифр Цезаря с ключевым словом Turbo Pascal помогите разобраться с программой : программа должна быть написана по формуле E(ti)=(ati+bi) mod ,i=0,n-1 a-1 E(ti)=(ti+a-1 bi)mod m ti=a-1(E(ti)-bi)mod m Где B= b0?b1.... bn-1 y - ключевое слово m- длина алфавита а-параметр	Turbo Pascal Рекурсия. Удалить из списка те вхождения слова «программирования», которым предшествует слово «языки» Пусть дан список, хранящий слова некоторого предложения. Удалите из списка те вхождения слова «программирования», которым предшествует слово «языки». Если нет специальных оговорок, то входная информация должна браться из файла. Результаты также должны сохраняться в файле. Для пользователя должны выводиться исходные данные, а также результат (помимо записи его в файл). При решении задачи должна... https://www.cyberforum.ru/ turbo-pascal/ thread1421938.html
Turbo Pascal Описать рекурсивную функцию DigitSum(K) целого типа, которая находит сумму цифр целого числа K https://www.cyberforum.ru/ turbo-pascal/ thread1421937.html Описать рекурсивную функцию DigitSum(K) целого типа, которая находит сумму цифр целого числа*K, не используя оператор цикла.	В массиве выделить натуральные числа и подсчитать их количество Turbo Pascal В массиве из N действительных чисел(N<=10 и числа вводятся с клавиатуры)выделить натуральные числа и подсчитать их количество
Turbo Pascal Рандомный вывод латинских букв Можно как-то организовать такое? https://www.cyberforum.ru/ turbo-pascal/ thread1421860.html	Turbo Pascal Решить СЛАУ Решите численно следующую систему линейных алгебраических уравнений 1.0{X}_{1}+1.0{X}_{2}-1.0{X}_{3}+3.0{X}_{4} = 8.2\\\\ -8.0{X}_{1}+2.0{X}_{2}+3.0{X}_{3}+1.0{X}_{4} = -4.1\\\\ 3.0{X}_{1}-1.0{X}_{2}+4.0{X}_{3}-2.0{X}_{4} = -2.9\\\\ 2.0{X}_{1}-6.0{X}_{2}+1.0{X}_{3}-1.4{X}_{4} = -7.9 итерационным способом методом Зейделя с выбором ведущего элемента. Представьте решение на экране... https://www.cyberforum.ru/ turbo-pascal/ thread1421824.html
Turbo Pascal Нужна идея написания программы Ребята я долго писал программы на паскале, и вот теперь скачал турбо паскаль. Язык конечно устарел, но написать что нибудь хочется :3 Подкиньте идей, креативных таких. Чтобы написать интересные программы!	Turbo Pascal В массиве найти два элемента, среднее арифметическое которых ближе всего к X https://www.cyberforum.ru/ turbo-pascal/ thread1421779.html Даны действительное число X и массив A. В массиве найти два члена среднее арифметическое которых ближе всего к X. Прошу написать полное решение, по заданию. Буду очень благодарен!

Alexey0

1 / 1 / 4

Регистрация: 11.12.2014

Сообщений: 28

Разбить программу на процедуры - Turbo Pascal - Ответ 7486566

16.04.2015, 10:49. Показов 431. Ответов 1

Метки (Все метки)

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

Разбить программу на процедуры и описать каждая из них делает.
Сама задача:
Вложение 515356
Программа:

Pascal

  N, i, t1, t2, j, t:longint;
  str:string;
  a: array[1..3,2000..5001] of integer;
begin
  Readln(N);
  for i:=1 to N do begin
  readln(str); t1:=0; t2:=0; t:=0;
  for j:=1 to length(str) do begin
  if (str[j]<>' ') and (t=2) then begin
  t1:=t1*10+ord(str[j]) - ord('0');
  end;
  if (str[j]<>' ') and (t=3) then begin
  t2:=t2*10+ord(str[j]) - ord('0');
  end;  
  if str[j]=' ' then inc(t);  
  end; 
  inc(a[t1 div 5 - 2,t2]);
  end;
  for i:=1 to 3 do begin
  for j:=2000 to 5001 do
  if a[i,j]<>0 then break;
  write(a[i,j],' ');
  end;
  writeln();
 end.

Комментарий модератора

Текст на картинках запрещен

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

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

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

16.04.2015, 10:49

Готовые ответы и решения:

Разбить программу на процедуры
var a:array of integer; i,j,n,m,t,min,min1,f:integer; begin write('M='); readln(m);...

нужно разбить на процедуры
Здравствуйте, уважаемые) Необходимо было написать задачу с применением процедур, вот условие:...

Разбить программу на процедуры
Пожалуйста, помогите разбить программу на процедуры. const n=7; type mas=array of integer; ...

	16.04.2015, 10:49

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

16.04.2015, 10:49

Помогаю со студенческими работами здесь

Разбить программу на процедуры
uses crt; var y,ym:array of real; n,m,i,j:integer; x,s:real; begin writeln('Массив...

Разбить программу на процедуры
const maxn=100; type mas=arrayof integer; var b,a:mas; n,i,j,k:integer; begin ...

Разбить программу на процедуры и вывести её в меню
заранее спасибо за помощь. есть программа. нужно разбить на процедуры и сделать вывод в меню....

написала программу, нужно разбить ее на процедуры
Написала программу, потом сказали что ее нужно разбивать на подпрограммы (процедуры). тут только...

Разбить на процедуры
var n,m,i,j : integer; a:array of double; s:array of integer; begin //считываем n и m ...

Разбить на процедуры
Помогите пожалуйста разбить код на процедуры. Промучался 2 часа. Ничего так и не получилось....

Наверх