Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Нужно чтобы выводился график для кубической функции https://www.cyberforum.ru/ turbo-pascal/ thread1056101.html имеется программа для решения кубического уравнения методом Ньютона;задается интервал,и коэффициенты перед х, точность. нужно чтобы выводился график для кубической функции, которую, соответственно, вводить пользователь помогите пожалуйста, как соединить все в одной проге? uses crt,graph; var A,B,C,D,h1,h2,F,F2,E,g :real; X: array of real; i:integer; m:boolean;	Нужна теория по файлам и модулю Turbo Pascal Нужна теория по файлам и модулю в Паскале.Покидайте что у вас есть...
Turbo Pascal Объединить несколько готовых и работающих программ в одну Помогите пожалуйста объединить 3 case в 1 repeat. 1)var i,sum: integer; begin sum:=0; for i:=17 to 28 do if i mod 2=0 then sum:=sum+i; writeln(sum); https://www.cyberforum.ru/ turbo-pascal/ thread1056068.html	Turbo Pascal Найти координаты точки (графика) https://www.cyberforum.ru/ turbo-pascal/ thread1056065.html Найти координаты точки, симметричной данной точке М с координатами (x1, y1) относительно прямой Ax+By+C=0. Исходные данные считываются из текстового файла input.txt. Результаты в графическом виде отображаются на экране.
Программа вычисляющая сумму P по заданной формуле Turbo Pascal программа вычисляющая сумму P по заданной формуле, натуральное число N вводится с клавиатуры P=1/3^2+1/5^2+1/7^2+...+1/(2n+1)^2, помогите пожалуйста.	Turbo Pascal Определить в диапазоне количество строк с положительной суммой элементов https://www.cyberforum.ru/ turbo-pascal/ thread1055993.html Определить в диапазоне количество строк с положительной суммой элементов. Помогите пожалуйста!
Turbo Pascal Найти количество введенных чисел, когда их сумма превысила 100 с клавиатуры вводятся числа и последовательно суммируются.найти количество введенных чисел, когда их сумма превысила 100. https://www.cyberforum.ru/ turbo-pascal/ thread1055984.html	В заданном тексте везде заменить слово А1 на А2 Turbo Pascal в заданном тексте везде заменить слово А1 на А2. длины слов не совпадают
Turbo Pascal Текст содержащий менее 25 символов равномервно вставить пробелы между словами, чтобы длина текста составляла ровно 25 символов в текст содержащий менее 25 символов равномервно вставить пробелы между словами, чтобы длина текста составляла ровно 25 символов https://www.cyberforum.ru/ turbo-pascal/ thread1055982.html	Turbo Pascal В заданном тексте везде заменить слово A1 на слово A2 https://www.cyberforum.ru/ turbo-pascal/ thread1055919.html в заданном тексте везде заменить слово A1 на слово A2(длины слов не совпадают)
Turbo Pascal Значения элементов кратные 3 увеличить в 3 раза, значения элементов кратных 4 увеличить в 4 раза. Для решения следующей задачи: Дан массив из 15 целых чисел . Значения элементов кратные 3 увеличить в 3 раза, значения элементов кратных 4 увеличить в 4 раза. Преобразованный массив вывести на экран в одну строку. Ввод массива, преобразование массива, вывод преобразованного массива оформить в виде подпрограмм. Помогите пожалуйста кому по силам !	Turbo Pascal Вычисление определителя и обратной матрицы из матрицы nxn https://www.cyberforum.ru/ turbo-pascal/ thread1055885.html Код уже есть, обратная матрица работает, но при вычислении определителя с n>5 забивает всю память {$R-} uses crt; const nmax=50; eps=0.00001; type Tmas=^TTmas; TTmas=array of real;

kirin1234

0 / 0 / 0

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

Сообщений: 20

Нужна блок схема к этой работе(не через программу) - Turbo Pascal - Ответ 5556365

25.12.2013, 23:51. Показов 509. Ответов 1

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

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

Pascal

uses crt;
const n=5;
var a:array[1..n,1..n] of integer;
i,j,max:integer;
BEGIN
clrscr;
    for i:=1 to n do
     for j:=1 to n do
      a[i,j]:=random(100);
 
      for i:=1 to n do
       begin
        for j:=1 to n do
         write(a[i,j]:4);
         writeln;
       end;
 
        max:=a[1,1];
 
        for i:=1 to n do
         if a[i,i]>max then
          max:=a[i,i]
         else
          if a[i,n-i+1]>max then
           max:=a[i,n-i+1];
 
           writeln;
 
           writeln('MAX = ',max);
readkey;
END.

Нужно создать блок схему) новую) а не через программу)
очень надо на завтра)

Добавлено через 10 часов 51 минуту
ну же

Вернуться к обсуждению:
Нужна блок схема к этой работе(не через программу) Turbo Pascal

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

25.12.2013, 23:51

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

Нужна блок-схема для этой задачи.
Нужна блок-схема для этой задачи. var a,b,c:byte; begin writeln('Введите a,b,c'); ...

Блок-схема к этой задаче
program Project1; {$APPTYPE CONSOLE} uses SysUtils; var i, minLen, B,A, c : integer; ...

Блок схема к курсовой работе
Помогите сделать блок схему к курсовой работе PROGRAM TextGraph; USES crt; CONST x = 18; y =...

Начертите Укрупненная блок-схема для этой программы
Program 22; uses crt; const a = ; type masstr = array of string; var s,s1,sg: string; s2:...

	25.12.2013, 23:51

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

25.12.2013, 23:51

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

Блок-схема к программе по работе с матрицами
Середину сделал, а начало и конец не могу сообразить. Кто сможет, помогите, пожалуйста.) uses...

Нужна блок схема к этой программе, можно на бумаге и скинуть фото. пожалуйста:(
Здравствуйте, прощу вашей помощи помочь составить мне блок схему к программе. ...

Блок-схема для этой программы
const m = 10; var arr: array of integer; i, j, k: integer; begin randomize; ...

Блок-Схема срочно на экзамен к этой программе
#include<iostream> #include<string.h> using namespace std; struct TNode; typedef TNode * PNode;...

Наверх