Delphi для начинающих

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

Войти

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

Другие темы раздела
Delphi Постройте пожалуйста блок-схему по моей программе пожалуйста Постройте блок-схему https://www.cyberforum.ru/ delphi-beginners/ thread1744930.html	Delphi Непонятное поведение программы Есть вот значит структура list, и хэш-таблица, хранящая массив списков. Добавила я туда значения (1, 1), (1, 2), (1, 3). Выбрала подсчет элементов с одинаковым ключом, и обнаружилось что функция hash выдает какое-то непредсказуемое значение. На скрине она выдала 3 при ключе 1, однако когда я запустила ее в следующий раз, на ключ 1 она выдала 0. Подскажите пожалуйста откуда происходит данный...
Delphi Программа построения диаграмм https://www.cyberforum.ru/ delphi-beginners/ thread1744911.html Всем доброго времени суток, прошу помочь срочно нужна программа в дельфи построение диаграмм	Delphi Уточнить корни нелинейных уравнений методом половинного деления методом половинного деления с точностью до 0,0001 https://www.cyberforum.ru/ delphi-beginners/ thread1744882.html
Delphi Реализация основных комбинаторных алгоритмов Необходимо разработать алгоритм генерации всех перестановок n-элементного множества за минимальное количество транспозиций. Помогите пожалуйста, буду очень благодарна, если кто-то поможет, заранее спасибо)	Delphi Площадь фигуры, ограниченная 2-мя линиями Всем привет! Есть задание Фигура получается при пересении 2-х графиков y=ax^2 + bx + c и y=kx Использовать численные методы для решения нелинейных уравнений и вычисления определенных интегралов Помогите пожалуйста с формулами https://www.cyberforum.ru/ delphi-beginners/ thread1744852.html
Delphi Переделать под с Паскаля в Делфи https://www.cyberforum.ru/ delphi-beginners/ thread1744833.html {$DEFINE DEBUG} program p0524; {$APPTYPE CONSOLE} uses SysUtils; const W = 4; // количество символов для отображения элементов (значений) массива	Delphi и отчет в Эксель Delphi Здравствуйте! Может ли кто объяснить как правильно осуществлять отчеты в MS Excel из Delphi. Прошлась по форму и Интернету в целом, прочла пару интересных статей. Но в них конкретного объяснения не нашла. (Возможно плохо искала)
Delphi Edit ограничение на ввод чисел от 0 до 255 https://www.cyberforum.ru/ delphi-beginners/ thread1744749.html Как создать процедуру для edit (именно для edit!) чтобы вводились числа в диапазоне только от 0 до 255?	Delphi Перевод макроса VB под Делфи Здравствуйте, помогите пожалуйста перевести код макроса VB под делфи Sub addSignature() Dim signtr As Office.Signature Application.ScreenUpdating = False SendKeys "{ENTER}", False Set signtr = ActiveDocument.Signatures.AddSignatureLine Selection.EndKey Unit:=wdStory Selection.ParagraphFormat.Alignment = wdAlignParagraphRight With signtr.Setup https://www.cyberforum.ru/ delphi-beginners/ thread1744720.html
Как сделать, чтобы облако остановилось и из него пошел дождь? Delphi Как сделать чтобы облако остановилось и из него пошел дождь, bmp файлы в архиве unit anim; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; const	Delphi Avi - преобразование Добрый день, Делаю некую игрушу, но темы не касается. Хочу сделать возможность записи видео с экрана. Итак, у меня есть по каждому кадру пусть jpeg (bmp, png), 1 картинка = 1 кадр. Так как это не видео, а %@&%*, мне нужно преобразовать к avi (говорят - легче всего к avi). Помогите пожалуйста. Добавлено через 6 минут Если у вас нет ответа на этот вопрос, то, если знаете, расскажите о... https://www.cyberforum.ru/ delphi-beginners/ thread1744714.html

egor_wheelman

0 / 0 / 0

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

Сообщений: 2

Программа не правильно выводит результат - Delphi - Ответ 9186834

25.05.2016, 12:17. Показов 498. Ответов 0

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

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

Здравствуйте. Вот код:

Delphi

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
type
  mass=array of real;
 
procedure sord(var a:mass; var n:integer);
var
  i:Integer;
  ch:Char;
begin
  n:=1;
  Writeln('vvedite 4isla');
  repeat
    setlength(a,n);
    read(a[n-1]);
    write(' ',a[n-1]:2:2);
    n:=n+1;
    readln;
    write('(y/n)');
    readln(ch);
  until upcase(ch)='N';
  writeln(' Massiv: ');
  for i:=0 to n-1 do
  write(a[i]:2:2,' ');
end;
 
Var k: real;
function Mul(A: mass; i:integer): real;
Begin
  k:=k+1;
  If i=0 Then Result:=A[i]-sqr(A[i])/(1+i)
  Else Result:=(A[i]-sqr(A[i])/(1+i))*Mul(A, i-1);
  Writeln(i,' ',Result:10:5);
end;
 
var N:Integer;
    x: mass;
begin
  sord(x ,n);
  Writeln;
  k:=mul(x,N-1);
  Writeln('Resultat vichislenya: ',Mul(x,N-1):10:5);
  Writeln('Glubina rekursii: ',k);
  Writeln('Obem rekursii: ',k-1);
  Readln;
end.

Препод говорит, что процедура sord не правильная. Выводит вот так:
Massiv:
4.00 8.00 2.00 5.00 0.00
Сколько бы я чисел не не ввел, все равно последним добавляется 0.00.
Как это исправить?

Вернуться к обсуждению:
Программа не правильно выводит результат Delphi

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

25.05.2016, 12:17

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

Программа на массивы неправильно выводит результат
var Form2: TForm2; {Переменные программы} a,b: array of double; ...

Программа не правильно выводит график
Не могу понять в чем ошибка. Выводит неправильно(второй снимок), а должно выводить как на первом...

Программа для тестирования не правильно выводит результат
Пишу тест. Подскажите пожалуйста в чем моя ошибка, почему не считает результат? public...

не правильно выводит результат
тестю код на таком примере 6 6 1 1 0 0 1 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 1 0 1 1...

	25.05.2016, 12:17

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

25.05.2016, 12:17

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

Не правильно выводит результат
Здравствуйте . Написал такую программу: i=1; x(1)=0.1; x(2)=0.9; x(3)=1.2; x(4)=1.5; x(5)=2.3;...

не правильно выводит результат (-2*40+1*82)/(12/4-1)
пример: (-2*40+1*82)/(12/4-1)=(-80+82)/(3-1)=2/2=1 в результате должно выводиться ответ 1, а у...

Не могу понять почему программа не выводит результат (простейшая программа)
Здравствуйте уважаемые форумчане! Я начал изучать C++ при помощи книги. На днях я столкнулся со...

Не выводит результат(. Считает все правильно проверял в консоле
//--------------------------------------------------------------------------- #include <vcl.h>...

Программа не выводит результат
Добрый вечер! Пытаюсь запустить программу на SWI-Prolog через консоль пролога используя start(X). ...

Программа не выводит результат
Ничего не хочет выводить в чем проблема? #include "stdafx.h" #include <iostream> #include...

Наверх