Форум программистов, компьютерный форум, киберфорум
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
2 / 2 / 0
Регистрация: 28.12.2014
Сообщений: 56
0

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

06.01.2015, 06:39. Просмотров 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
program Project24444;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var f,x,a:real;// переменные
begin
a:=4;
x:=0; // оператор присваивания
while x<=2 do  //  пока  x<=2 выполняется составной оператор
begin
if x<1 then f:=2*a*x+4 // по заданному условию  x<1 если оно верно вычисляем значение функции  f:=2*a*x+4 и т.д.
else if x=1 then f:=2*a*x-x*x 
else f:=sin(cos(a*x)) 
 begin
writeln('|',x:5:2,'|',f(x,a):8:4,'|');// вывод значения на экран
x:=x+0.25;//  наращивание x на 0.25
end;
writeln('----------------------------------');
readln
end;
end.


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

исправьте ошибку
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.