Форум программистов, компьютерный форум, киберфорум
Наши страницы

Free Pascal


Язык Free Паскаль. Форум программистов Free Pascal. Программирование на языке Free Pascal. Решение задач, программирование и готовые программы на Free Паскаль.
Войти
Регистрация
Восстановить пароль
Новая тема
Темы раздела : Free Pascal Искать в этом разделе
Объявление
22.05.2012 mik-a-el (Администратор)
Объявление
Просмотров: 3,133,691 Посмотреть объявление Объявление: Правила форума
22.11.2007 mik-a-el (Администратор)
  Рейтинг Тема / Автор Последнее сообщение Ответов Просмотров
 
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
     
 
Задать вопрос
Имеется программа игры в кости по следующим правилам: играющий (их число не больше 4) называет...
DmitryStrs
07.03.2018 05:44
1 166
Здравствуйте, столкнулся со следующей проблемой. По заданию программа должна отсортировать данные,...
GMax
05.03.2018 20:49
2 123
Здравствуйте, возникла проблема с выводом результата в текстовый файл. По заданию программа должна...
GMax
05.03.2018 10:38
11 348
Есть такая задача: Волк гонится за зайцем, но всегда смотрит на него (т.е скорость волка всегда...
mezoil
04.03.2018 10:54
0 136
Никогда не писал на FP, можете помочь переписать программу на код для FP? program laba5_1; ...
GMax
03.03.2018 19:54
3 806
Задание Написать программу для реализации линейного однонаправленного списка в консольном...
Kunnoichi
01.03.2018 10:00
7 845
uses crt; function Armstrong(n:longint):boolean; var t,m,p,s,i,j:integer; a,b:arrayof...
JIewsha
27.02.2018 19:40
1 132
В таблице подсчетов наименьшей существенной разности, есть предел в процентном соотношении...
АсанМухтаров
27.02.2018 12:29
0 104
Вы любите играть в игры? Конечно, любите! Но про эту игру, возможно, ничего не знаете и не слышали...
PascalGod
26.02.2018 17:16
9 339
var s,w,z:string; i,n:byte; k:boolean; begin writeln('Введите строку: '); readln(s); s:=s+'...
codcw
26.02.2018 06:23
11 893
Возникает многочисленные ошибки ordinal expression expected.А также в 29 строчке illegal type...
Kemsy
23.02.2018 20:35
3 735
Вычисление разницы между 4-значным числом и числом, записанным в зеркальном порядке. помогите
pasha07
23.02.2018 15:38
2 705
Здравствуйте, уважаемые пользователи форума! Есть программа, которая ищет по матрице смежности...
LamyFromSafari
22.02.2018 14:46
2 203
Найти все К-разрядные числа Армстронга (К=2,3,4,5)
JIewsha
22.02.2018 00:36
2 153
Есть команда в Лазарусе которая вызывает командную строку Windows? С последуйщим АВТОМАТИЧЕСКИМ...
VintageLuke
21.02.2018 19:07
2 152
как лучше выдернуть значение из строки в котором эти значения делятся (сепаратором :: ) или может...
aleks79bsk
20.02.2018 16:19
6 211
Вобщем, нашел я интересную статью , но к сажелению фичу быстро пофиксили, есть ли аналоги для...
VintageLuke
20.02.2018 00:33
2 146
Доброго времени суток. Столкнулся с такой проблемой, что в Free pascal нет модуля Sound. Недавно...
VintageLuke
17.02.2018 00:10
2 123
знаю как работает алгоритм , но не пойму эту строку:cry: program sort; type mas = array of...
mr James
14.02.2018 16:04
2 200
Прописал я команду s:=Sound s:=Sound.Create('Windows Balloon.wav'); // mix_46s...
VintageLuke
12.02.2018 21:31
11 320
Здравствуйте! Есть программа, которая позволяет пользователю вводить матрицу смежности графа, а так...
LamyFromSafari
12.02.2018 14:15
5 829
С помощью изобретенной профессором машины Фарнсворт и Эми меняются телами с целью осуществить свои...
Pavlin234
12.02.2018 00:06
5 438
Доброго времени суток! Я новичок в программировании, поэтому мой вопрос для вас может показаться...
dima1987
11.02.2018 17:31
1 175
Здравствуйте, при изменении данных в типизированном файле где-то происходит ошибка, на выход файл...
ESSA
11.02.2018 07:55
1 165
Делаю простые арифметические действия выдает это постоянно: Вот собственно простой код: ...
lephin
05.02.2018 11:25
5 778
Прошу помощи! Проверочная система школьной олимпиады постоянно выдаёт ошибку, подозреваю, что...
vtl9719
05.02.2018 09:13
2 192
Найти пробел в строке и удалить следующий за ним символ
ERA-12
04.02.2018 11:08
5 193
Прошу помощи со следующим заданием: Дан массив n × m. Требуется повернуть его по часовой стрелке...
Капинус
03.02.2018 13:32
3 217
Здравствуйте. Помогите, пожалуйста, написать программу, которая проверяла бы число 12345678654321...
UnionT
01.02.2018 17:01
1 722
У меня осталось мало дней до сдачи. Пожалуйста помогите следующим: У меня есть 3 звука:...
Faimen
31.01.2018 13:49
0 136
Почему не выполняется цикл? procedure TForm1.Timer4Timer(Sender: TObject); var k:integer;...
VintageLuke
30.01.2018 20:48
3 762
Зделал я команду if Label3.Caption<>Label3 then if Edit1.Text='2' then...
VintageLuke
30.01.2018 11:03
5 434
Нужный функционал: 1) Параллельное проигрывание нескольких звуков, музыки. 2) Возможность...
Faimen
29.01.2018 12:52
1 747
вроде все правильно пишу, до этого с VAL пробовал, ничего не помогает :help: var s,w:string;...
codcw
29.01.2018 11:14
7 793
Вел я команду- if Edit1.Text='1' then Label1.Caption:=inttostr(2+Random (10)) if...
VintageLuke
29.01.2018 08:35
2 759
Ввел я команду if Edit1.Text='1' then Label1:= Random (2,11)P.S.- суть команды такова, если в поле...
VintageLuke
28.01.2018 19:55
1 141
Что я тут не так зделал, кто нибудь знает???
VintageLuke
28.01.2018 19:31
1 122
Вёл я командуif Edit1.Text('1') then ShowMessage('ЕСТЬ надежда') P.S.- Суть ее такова- если в...
VintageLuke
28.01.2018 19:10
1 115
Вобщем, тут такое дело, нужно мне чтобы при открытии программы нельзя было закрыть диспетчер задач,...
VintageLuke
27.01.2018 21:33
20 556
При прямом вводе/выводе программа работает, как только через файл так выдает ошибку Ошибка...
Zyn
27.01.2018 15:12
6 182
Найти все положительные четырехзначные числа у которых: все цифры разные, хотя бы две цифры...
KASH_PC
27.01.2018 15:09
1 219
Пытаюсь я значит сделать цикл, так чтоб мигали цвет, но когдка я ввел команду- while k<=1000 do,...
VintageLuke
26.01.2018 20:27
3 138
Почему не выполняется цикл?
VintageLuke
26.01.2018 20:25
1 106
putimage(x,y,p^,xorput); y:=y+dy; x:=x+dx; if y+32<800 then bb:=false; if (x+48>1366)or(x-48<0)...
Faimen
26.01.2018 14:55
8 171
procedure ris(st:string;var p:pointer); var f:file; sz:longint; begin ...
Faimen
26.01.2018 14:50
2 159
procedure ris(st:string;var p:pointer); var f:file; sz:longint; begin ...
Faimen
26.01.2018 10:36
0 116
Всем привет, у меня есть задание 1.В произвольном натуральном числе найти: •количество цифр, ...
KASH_PC
25.01.2018 17:22
3 165
Дан массив А(20). Найти минимальный и максимальный элементы массива, и их порядковые номера.
WafflenSS
25.01.2018 16:27
1 120
Program Equation; const eps=1e-6; var x,x_0:real; function f(x:real):real; begin...
Толик1098
25.01.2018 15:24
1 193
Входные данные Во входном файле записаны целые числа N (4N20) и M(1M100) - количество героев...
st1ck1
24.01.2018 23:22
2 820
 
     
 
Новая тема
Опции раздела Искать в этом разделе
Искать в этом разделе :

Расширенный поиск Темы без ответов

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