Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Напишите комментарий к уже готовой программе https://www.cyberforum.ru/ delphi-beginners/ thread1347306.html
program bilet3; {$APPTYPE CONSOLE} uses SysUtils; var a:array of real;
Как написать свой класс для управления массивом записи? Delphi
есть модуль... подскажите как сделать вставки (универсальные) данных. как осуществлять универсальную сортировку этих данных... так как хочу заменить PData = ^TData; TData = record ID:...
Delphi Увеличить размер программы
Не спрашивайте зачем )) Нужно подсказка, как из 1 мб проги, сделать 150 мб или 200, что бы сам екзешник весил от 150мб )) Уже и картинки влепил в режиме скрыть по 20 мб, но прога глохнет при...
Delphi Перевод кода с СИ на Delphi Нужно вот такой код перевести на Delphi!Это функция, которая возвращает ранг матрицы!Помогите пожалуйста! // Приведение вещественной матрицы // к ступенчатому виду методом Гаусса с выбором //... https://www.cyberforum.ru/ delphi-beginners/ thread1347247.html
Delphi Ошибка: Runtime error 216 https://www.cyberforum.ru/ delphi-beginners/ thread1347238.html
Решил написать 3Д крестики нолики, на паскеле все хорошо работает, но вот на делфи выдает ошибку, не могу понять в чем причина unit Unit1; interface uses Windows, Messages, SysUtils,...
Как сделать функцию, отслеживающую процесс Delphi
Уважаемые форумчане, кто может подсказать функцию отслеживания процесса и выполнение условий, а именно: Имеется функция проверки процесса и скрытие формы если процесс запущен, нужно сделать так что...
Как вывести односвязный список в обратном порядке? Delphi
Всем привет. Подскажите, пожалуйста, как вывести односвязный список в обратном порядке.
Delphi Присвоение кода Всем привет, как зделать добавления нужного кода после того как создался компанент спомашью OnCreat дапустим на btn https://www.cyberforum.ru/ delphi-beginners/ thread1347218.html
Delphi Позиционирования окна приложения Delphi в определенном месте https://www.cyberforum.ru/ delphi-beginners/ thread1347124.html
Здравствуйте. Скажите пожалуйста как можно позиционировать форму Delphi в определенном месте. Может быть есть свойства позволяющие задавать положение формы. Вот к примеру созданная форма при...
Delphi Подсчёт знаков табуляции Добрый вечер. Есть кусок кода, который должен подсчитывать количество знаков табуляции (отступов, которые образуются в текстовых редакторах при нажатии клавиши Tab) В Memo1 загружается текст с... https://www.cyberforum.ru/ delphi-beginners/ thread1347076.html
Модератор
60569 / 45564 / 31446
Регистрация: 18.05.2008
Сообщений: 109,510
06.01.2015, 09:24 0

Исправьте небольшую ошибку

06.01.2015, 09:24. Просмотров 900. Ответов 6
Метки (Все метки)

Ответ

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 program Project2nnn;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
function f(x,a:real):real;
begin
if x<1 then f:=2*a*x+4
else if x=1 then f:=2*a*x-x*x
else f:=sin(cos(a*x));
end;
var x:real;
begin
writeln('-------------------------------------');
writeln('|  x  |   f(a1)  |  f(a2)  | f(a3)  |');
writeln('-------------------------------------');
x:=0;
while x<=2 do
 begin
  writeln('|',x:5:2,'|',f(x,4):8:4,' |',f(x,-3):8:4,' |',f(x,5):8:4,' |');
  x:=x+0.25;
 end;
writeln('-------------------------------------');
readln
end.


Вернуться к обсуждению:
Исправьте небольшую ошибку
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.01.2015, 09:24
Готовые ответы и решения:

исправьте ошибку
program Project5; {$APPTYPE CONSOLE} uses SysUtils; var a:array of integer; ...

исправьте ошибку
Дан двумерный массив размерности 10х10. Заполнить его случайными числами на отрезке . Найти...

Исправьте ошибку
Здравствуйте есть код procedure TForm1.Chromium1BeforePopup(Sender: TObject; const...

исправьте ошибку в рекурссии
function rec(n,a:real):real; var f:real; implementation {$R *.dfm} function...

6
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.