RE: Решение задач на Паскале и Delphi
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
RE: Решение задач на Паскале и Delphi - 2009-04-06 22:44:33.660000
|
|
|
Bloody Tux
Сообщений: 33
Оценки: 0
Присоединился: 2008-11-29 16:21:10.216666
|
Нид хелп за денежки :) http://forum.xakep.ru/m_1492270/tm.htm
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2009-04-07 17:21:24.196666
|
|
|
Эйфория
Сообщений: 5
Оценки: 0
Присоединился: 2009-04-07 17:04:14.896666
|
Люди добрые, помогите, кто чем может. я не могу решить 2 задачи в паскале.
1. Дан текстовый файл f, найти количество слов в файле,сформировать файл g, записать в каждой его строчке по одному слову из файла f.
и еще одна: сформировать текстовый файл и посчитать в нем количество букв 'p '. Тут я вообще не наю как делать, подскажите, буду очень благодарна.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2009-04-07 17:22:27.486666
|
|
|
Эйфория
Сообщений: 5
Оценки: 0
Присоединился: 2009-04-07 17:04:14.896666
|
я тут сделала, чтобы считал количество слов, работает, а больше не могу
uses crt;
var s: string; k,i:integer;
begin clrscr;
writeln('vvedite stroky simvolov, поставьте точку в конце');
readln(s);
if (s='.') or (s='')or (s=' ') then writeln('ne verniy vvod') else begin
for i:=1 to length(s) do
if (s=' ') or (s='.') then k:=k+1;
writeln('v vvedennoy stroke slov = ',k); end ;
end.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2009-04-07 18:03:18.426666
|
|
|
Эйфория
Сообщений: 5
Оценки: 0
Присоединился: 2009-04-07 17:04:14.896666
|
если кто хочет помочь, то вторую задачу я уже сама решила, осталось 1 доделать. помогите, плиз
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2009-04-07 19:16:00.396666
|
|
|
unconnected2
Сообщений: 332
Оценки: 0
Присоединился: 2009-01-16 17:56:12.400000
|
http://forum.pascal.net.ru/index.php?showforum=18 тут всё, что тебе нужно.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2009-04-07 19:20:05.743333
|
|
|
tеstеr
Сообщений: 377
Оценки: -46
Присоединился: 2008-02-08 17:56:40.563333
|
var
f: text;
fName: string;
g: text;
gName: string;
i: longint;
s: string;
begin
write('Name of file F: ');
readln(fName);
Assign(f, fName);
Reset(f);
write('Name of file G: ');
readln(gName);
Assign(g, gName);
Rewrite(g);
i:=0;
while(not eof(f)) do
begin
readln(f, s);
inc(i);
writeln(g, i,' ',s);
end;
writeln('Count of string: ', i);
close(g);
close(f);
end.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2009-04-08 06:10:46.716666
|
|
|
Эйфория
Сообщений: 5
Оценки: 0
Присоединился: 2009-04-07 17:04:14.896666
|
спасибочки огромное, чтобы я без вас делала.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2009-04-08 16:23:23.916666
|
|
|
denfox
Сообщений: 27
Оценки: 0
Присоединился: 2009-03-18 20:07:08.263333
|
Доброго всем времени суток. Вот мне на учебе задали написать простейшую программу на паскале - тест.
выбрал я таблицу умножения, все вроде отлично работает, но вот хочеться, чтобы при правильном ответе программа говорила еще и "правильно".
Когда условный оператор в нормальном виде, т\е IF условие then команда ELSE еще команды
все работает. но нужен расширенный, чтобы впихнуть две команды.
1.добавление балла
2. writeln('pravilno!')
все сделал вроде нормально, но при запуске паскаль выдает error in statment, после закрыающимся "end;"
вобщем просмотрите код, я восклицательными знаками выделил кусок, который интересует.
Program tsTUmnD;
uses Crt;
label 1;
var
bal,i,k,a,b,otv:integer;
begin
writeln(' TEST ');
writeln('**************');
writeln;
i:=0;
For I:=1 to 12 do
1:begin
b:=random(10);
a:=random(10);
if (a<=1) then goto 1;
if (b<=1) then goto 1;
writeln('Skok budet',a,'*',b,'=');
readln(otv);
!!!!!!!!!!! if (otv=a*b) then
begin
bal:=bal+1;
writeln('Pravilno!');
end; !!!!!!!!!!!!!!
else writeln('Nepravilno! ',a,'*',b,'=',a*b);
end;
writeln('Najmi lubuy knopku, 4toby uznat kol-vo ballov');
readln;
Writeln('Tu nabral ',bal,' ballov!');
if (bal=0) or (bal=1) or (bal=2) or (bal=3) then writeln('Ujasno! Tebe nado sro4no na4inat u4ut tablicu umnojeniya');
if (bal=4) or (bal=5) or (bal=6) then writeln('Ploho, podu4u tablicu umnojeniya ewe 4ut-4ut');
if (bal=7) or (bal=8) then writeln('Normalno, no... Ne idealno. Nado u4ut ewe');
if (bal=8) or (bal=9) then writeln ('Xorowo, no tu mojew lu4we!');
if (bal=10) or (bal=11) then writeln ('Otli4no! Tu dostato4no xorowo znaew tablicu umnojeniya!');
if (bal=12) then writeln ('Otli4no! Viswiy bal! Tu znaew tablicu IDEALNO!');
readln;
end.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2009-04-08 16:35:32.510000
|
|
|
Genco
Сообщений: 1662
Оценки: 90
Присоединился: 2007-12-16 23:11:22.003333
|
if (otv=a*b) then Скобки ты забыл по ходу
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2009-04-08 16:48:38.600000
|
|
|
denfox
Сообщений: 27
Оценки: 0
Присоединился: 2009-03-18 20:07:08.263333
|
нет, не помогло. курсор при ошибке мигает прямо перед else
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2009-04-08 17:01:59.703333
|
|
|
OCTAGRAM
Сообщений: 20
Оценки: 0
Присоединился: 2006-05-04 15:40:00
|
Program tsTUmnD;
uses Crt;
label 1;
var
bal,i,k,a,b,otv:integer;
begin
writeln(' TEST ');
writeln('**************');
writeln;
i:=0;
For I:=1 to 12 do
1:begin
b:=random(10);
a:=random(10);
if (a<=1) then goto 1;
if (b<=1) then goto 1;
writeln('Сколько будет ',a,'*',b,'=');
readln(otv);
if otv=a*b then
begin
bal:=bal+1;
writeln('Правильно!')
end
else writeln('Неправильно! ',a,'*',b,'=',a*b);
end;
writeln('Нажми любую кнопку, чтобы узнать кол-во баллов');
readln;
Writeln('Ты набрал ',bal,' баллов!');
if (bal=0) or (bal=1) or (bal=2) or (bal=3) then writeln('Ужасно! Тебе надо срочно начинать учить таблицу умножения');
if (bal=4) or (bal=5) or (bal=6) then writeln('Плохо, подучи таблицу умножения еще чуть-чуть');
if (bal=7) or (bal=8) then writeln('Нормально, но... Не идеально. Надо учить еще');
if (bal=8) or (bal=9) then writeln ('Хорошо, но ты можешь лучше!');
if (bal=10) or (bal=11) then writeln ('Отлично! Ты достаточно хорошо знаешь таблицу умножения!');
if (bal=12) then writeln ('Отлично! Высший балл! Ты знаешь таблицу ИДЕАЛЬНО!');
readln;
end.
между end и else не надо ';'
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2009-04-08 17:04:20.566666
|
|
|
S00pY
Сообщений: 785
Оценки: 0
Присоединился: 2007-04-14 20:44:05.376666
|
";" перед else не ставиться))
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2009-04-08 17:11:27.126666
|
|
|
denfox
Сообщений: 27
Оценки: 0
Присоединился: 2009-03-18 20:07:08.263333
|
Спасибо огромное… в книжке по паскалю опечатка походу…
И еще такой вопрос. у меня версия под винду, сижу с висты… как в этом паскале перейти на русский язык? два шифта не пашут, уже что только не пробовал. только английский работает.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2009-04-08 17:23:55.323333
|
|
|
unconnected2
Сообщений: 332
Оценки: 0
Присоединился: 2009-01-16 17:56:12.400000
|
http://forum.pascal.net.ru/index.php?showtopic=779
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2009-04-08 18:05:55.103333
|
|
|
OCTAGRAM
Сообщений: 20
Оценки: 0
Присоединился: 2006-05-04 15:40:00
|
Зависит от дистрибутива. В School Pak, например, левый/правый Ctrl.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2009-04-08 19:41:49.796666
|
|
|
sanglls
Сообщений: 6
Оценки: 0
Присоединился: 2009-04-08 19:31:31.816666
|
У меня есть вопрос по написанию програмы в паскале тесты по правилам дорожного движения, вот мои наброски
program ...;
var i,a,b:string;
n:integer;
begin
writeln ('Vvedite nomer voprosa');
readln (n);
if n=1 then
begin
writeln ('vopr 1',i);
writeln ('.......?'); {Вопрос}
writeln ('a. .......'); {Варианты ответа}
writeln ('b....);
if i=a then
writeln ('Verno');
if i<>a then
writeln ('Neverno');
exit
end;
end.
У меня не выполняется условие при ответе, т.е. все время какой вариант не выбереш выдает "неверно" можете подсказать ошибку? Заранее спасибо
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2009-04-08 20:31:12.770000
|
|
|
relax_aka_men
Сообщений: 58
Оценки: 0
Присоединился: 2008-11-06 18:53:10.760000
|
ты просто вывел варианты вопросов и не считал ответ тот что должен ввести пользователь!!!!
немного переделал:
program vopros;
uses crt;
var
i, n: integer;
begin
write('Введите номер вопроса:');
readln(n);
if n=1 then
begin
writeln('Вопрос номер:', n);
writeln('2+2=?');
writeln('Вырианты:');
writeln('1. 4');
writeln('2. 5');
write('Ведите номер ответа: ');
readln(i);
if i=1 then
writeln ('Верно!')
else
writeln ('Неверно!');
end;
readln;
end.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2009-04-08 22:10:36.090000
|
|
|
sanglls
Сообщений: 6
Оценки: 0
Присоединился: 2009-04-08 19:31:31.816666
|
Большое спасибо!!!!!!!
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2009-04-09 09:21:32.220000
|
|
|
Марковка
Сообщений: 1
Оценки: 0
Присоединился: 2009-04-09 09:07:22.550000
|
Помогите, пожалуйста, решить 2 задачки.
1.Даны два массива..Размер массивов – N. Программа должна предъявлять исходные и новые (если требуется) массивы.Заполнить Y нарастающими суммами элементов Х. Я совсем не знаю как делать.
2. Даны две квадратные матрицы A, B 3-го порядка. Построить таблицу функции y = cx2 + d при х меняющемся от 0 до 1 с шагом 0.1, где с = sp(A), d = sp(B). (sp(A) - сумма элементов главной диагонали матрицы А).
Вторую задачу я делать начала, сумму элементов главной диагонали нашла, самое, главное. не могу сделать, Построить таблицу функции y = cx2 + d при х меняющемся от 0 до 1 с шагом 0.1. Помогите, пожалуйста.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2009-04-09 12:03:46.770000
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Пиши сюда всё, что уже написала - будем смотреть. И, пожалуйста, конкретные вопросы, а не "помогите решить".
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2009-04-09 12:48:28.893333
|
|
|
Romeo Ordos
Сообщений: 229
Оценки: 0
Присоединился: 2006-10-13 14:50:17.960000
|
2:
program Project1;
{$mode objfpc}{$H+}
uses
Crt;
const N=3;
var
A,B: array[1..N,1..N,1..N] of real;
y: array[1..10] of real;
c,d,x: real;
i,j,k,error:integer;
begin
// Инициализация переменных
c:=0;
d:=0;
x:=0;
// Ввод элементов
for i:=1 to N do
for j:=1 to N do
for k:=1 to N do
begin
repeat
write('Введите [',i,'][',j,'][',k,'] - элемент матрицы A: ');
{$IOChecks off}
readln(A[i,j,k]);
error:= IOResult;
if error<>0 then writeln('Ввод не верный. Повторите!');
until error=0;
repeat
write('Введите [',i,'][',j,'][',k,'] - элемент матрицы B: ');
readln(B[i,j,k]);
error:= IOResult;
if error<>0 then writeln('Ввод не верный. Повторите!');
until error=0;
{$IOChecks on}
if (i=j)and(i=k) then
begin // Вычисление диагоналей
c:=c+A[i,j,k];
d:=d+B[i,j,k];
end;
end;
// Очистка экрана после ввода
ClrScr;
// Заполнение таблицы и её вывод
for i:=1 to 10 do
begin
y:=c*sqr(x)+d;
x:=x+0.1;
write(y: 6 : 4,' ');
end;
Readkey;
end.
Скомпилино и проверено на freepascal 2.2.2. с турбо паскалем проблем быть не должно. Единственный бок, это возможный выход за пределы переменной при вводе данных. Ограничения при желании можешь сама поставить. Если где ошибся, поправьте.
З.Ы. Насчет первого, не могу понять задание. Нарастающими суммами это как? Каждый следующий элемент 2-го массива должен содержать сумму всех предыдущих+текущий элемент 1-го массива. Так?
З.Ы. З.Ы. Исправил по рекомендации _SAZ_ о 3-ем порядке
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2009-04-09 13:08:39.723333
|
|
|
tеstеr
Сообщений: 377
Оценки: -46
Присоединился: 2008-02-08 17:56:40.563333
|
Вот текcт программы.
Условие я не понял (если честно), и в программе можно обойтись одним массивом.
program prg1;
const
N = 10;
var
x: array[1..N] of word;
y: array[1..N] of longint;
i: word;
begin
writeln('Ввод элементов массива X');
for i:= 1 to N do
begin
write('X[',i:2,']=');
readln(x[i]);
if(i=1)then
y[i] := x[i]
else
y[i] := y[i-1] + x[i];
end;
writeln('Элементы и их нарастающие суммы.');
writeln('№':2, 'X':4,'Y':6);
for i:=1 to N do
writeln(i:2, x[i]:4, y[i]:6);
write('====the=end======');
readln;
end.
История из жизни.
Всем девушкам в нашей группе мы всегда помагали писать программы, если они в этом нуждались.
Девушек у нас в группе было рекордное количество - две.
Программы и подробные объяснения текста они получали просто за то, что они есть на свете и снизошли до того, что учатся с нами в одной группе.
Думаю, намек понятен (-:
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2009-04-09 14:56:27.373333
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Матрица 3-го порядка - это array[0..x,0..y,0..z] of blablabla;
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2009-04-09 16:43:55
|
|
|
sanglls
Сообщений: 6
Оценки: 0
Присоединился: 2009-04-08 19:31:31.816666
|
Можете подсказать что делать если в паскале не переходит на русский ни левыми Shift+Ctrl Ни правыми Shift+Crtl. И можно ли из текстового документа скопировать в паскаль текст? Спасибо заранее
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2009-04-09 16:51:34.830000
|
|
|
Zmaster
Сообщений: 930
Оценки: 0
Присоединился: 2007-02-09 19:02:43.500000
|
Во-первых скажи какая версия паскаля. Во-вторых, паскаль досовская программа. А в ms-dos-е не было общего буфера обмена. У каждой программы он был свой, следовательно нельзя скопировать текст из текстового документа в редактор паскаля, но можно создать файл с расширением .PAS и в него вписать текст, а потом открыть с помощью паскаля. Вот, вроде все сказал:)
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2009-04-09 16:58:25.796666
|
|
|
sanglls
Сообщений: 6
Оценки: 0
Присоединился: 2009-04-08 19:31:31.816666
|
У меня паскаль 7.1, спасибо на счет текста!
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2009-04-09 17:05:19.776666
|
|
|
Zmaster
Сообщений: 930
Оценки: 0
Присоединился: 2007-02-09 19:02:43.500000
|
Насчет русского языка:
качаешь отсюда прогу http://sources.codenet.ru/file/1150/KEYRUS.rar,
кидаешь в каталог с паскалем, делаешь батник, в котором сначала запускаешь прогу, а потом паскаль.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2009-05-04 19:17:54.690000
|
|
|
НастаSька
Сообщений: 13
Оценки: 0
Присоединился: 2008-12-16 00:37:31.680000
|
Здравствуйте!))))
Задачка (решить нужно в Паскале):
Дана строка символов, среди которых есть двоеточие. Получить все символы которые расположены до первого двоеточия включительно. Заранее спасибо!))))
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2009-05-04 19:33:52.153333
|
|
|
D. Scandal
Сообщений: 1360
Оценки: 345
Присоединился: 2007-12-01 16:39:35.550000
|
var
str:string;
i:integer;
begin
ReadLn(Str);
for i:=1 to Pos(':', str) do
write(str[i]);
WriteLn;
for i:=pos(':', str)+1 to Length(str) do
write(str[i]);
ReadLn;
end.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2009-05-04 19:45:51.343333
|
|
|
НастаSька
Сообщений: 13
Оценки: 0
Присоединился: 2008-12-16 00:37:31.680000
|
Спасибо ОГРОМНОЕ!!!!!!!))))))))
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2009-05-04 19:48:02.286666
|
|
|
НастаSька
Сообщений: 13
Оценки: 0
Присоединился: 2008-12-16 00:37:31.680000
|
Вот есчё задачка:
type
day=1..31; mon=1..12; year=1..2000;
date=record
d:day;
m:mon;
y:year
end; { все даты считать }
dayweek=(пн,вт,ср,чт,пт,сб,вс); { по новому стилю }
Написать программу, использующую функцию Dh(d) для определения дня недели, на который приходится эта дата d (учесть, что 1 января 1 года понедельник).
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2009-05-04 22:22:35.716666
|
|
|
lucie
Сообщений: 1
Оценки: 0
Присоединился: 2009-05-04 22:07:49.303333
|
Здравствуйте! Очень прошу Вас помочь решить задачу на Паскале
1. Дана строка. Удалить из нее каждый второй символ.
2. Дан массив St(m) , элементами которого являются строки - фамилии студентов. Если у студента есть задолжность, то перед его фамилией ставятся символы "Д*" . Переместить в начало массива фамилии студентов, имеющих
Хотя бы какую нибудь из двух…
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2009-05-11 14:55:32.963333
|
|
|
patr
Сообщений: 19
Оценки: 0
Присоединился: 2009-02-21 19:32:49.166666
|
помгите пожалкуйста найти ошибку.
Задача
quote:
Заданы десятичные записи четырёх целых чисел, в которых некоторые цифры заменены
знаком вопроса. Найти такие подстановки цифр вместо знаков вопроса, чтобы
совпали суммы двух первых и двух последних чисел.
program chisla;
uses crt;
var n:integer;
a,b,c,d:string;
function hhh(var z:string;n:integer):integer;
var k,k1,x,s:integer;i,j,t:byte;
begin
while not eof do begin
if (ord(z[i])>47) and (ord(z[i])<58) then begin
k:=1;s:=ord(z[i]);
for j:=1 to length(z)-i do begin
k:=10*k;
end;
x:=x+(s-48)*k;
end;
if z[i]='?' then begin
k1:=1;
for t:=1 to (length(z)-i) do begin
k1:=10*k1;
end;
x:=x+n*k1;
end;
end;
hhh:=x;
end;
begin
clrscr;
writeln ('Vvedi 1-e chislo'); readln(a);
writeln ('Vvedi 2-e chislo'); readln(b);
writeln ('Vvedi 3-e chislo'); readln(c);
writeln ('Vvedi 4-e chislo'); readln(d);
for n:=0 to 9 do begin
if (hhh(a,n)+hhh(b,n))=(hhh(c,n)+hhh(d,n)) then begin
writeln(hhh(a,n));
writeln(hhh(b,n));
writeln(hhh(c,n));
writeln(hhh(d,n));
end;
end;
readkey;
end.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2009-05-11 16:09:48.503333
|
|
|
f1rs
Сообщений: 1
Оценки: 0
Присоединился: 2009-05-11 16:06:09.820000
|
Разрабоать алгоритм и программу, которые выводят на экран первую часть таблицы кодировки символов (символы, имеющие коды от 0 до 127). Таблица должна состоять из 8 колонок и 16 строк.В 1й колонке должны быть символы, имеющие код от 0 до 15, во 2й от 16 до 31 и т.д. заранее спасибо
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2009-05-14 15:23:20.140000
|
|
|
OCTAGRAM
Сообщений: 20
Оценки: 0
Присоединился: 2006-05-04 15:40:00
|
quote:
ORIGINAL: Zmaster
Насчет русского языка:
качаешь отсюда прогу (link), кидаешь в каталог с паскалем, делаешь батник, в котором сначала запускаешь прогу, а потом паскаль.
Чем выискиватъ довески типа keyrus на одном сайте, русские BGI шрифты на другом сайте, русский IDE на третьем сайте, патч против ошибки 200 на четвёртом сайте, проще сразу скачать нормальную версию, где всё есть.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2009-05-14 17:59:36.633333
|
|
|
Zmaster
Сообщений: 930
Оценки: 0
Присоединился: 2007-02-09 19:02:43.500000
|
quote:
ORIGINAL: OCTAGRAM
quote:
ORIGINAL: Zmaster
Насчет русского языка:
качаешь отсюда прогу (link), кидаешь в каталог с паскалем, делаешь батник, в котором сначала запускаешь прогу, а потом паскаль.
Чем выискиватъ довески типа keyrus на одном сайте, русские BGI шрифты на другом сайте, русский IDE на третьем сайте, патч против ошибки 200 на четвёртом сайте, проще сразу скачать нормальную версию, где всё есть.
А я что против? Человек просил просто чтобы в редакторе паскаля можно было писать по русски. Программа как раз это и обеспечивает. Там можно писать по русски и другим способом: ALT+код символа, например 127но так недолго и с ума сойти. Про ошибку 200 я ничего не знаю, т.к. на паскале не пишу. И зачем вообще качать русский IDE и BGI. Без них тоже как-то живется. Короче, ко мне никакий претензий, у меня спросили, я ответил, кто не согласен, тогда ищите другой способ, и ко мне никаких претензий. Вот типа того;)
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2009-05-14 18:31:16.240000
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Delphi console application - и этим всё сказано
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2009-05-14 19:13:11.496666
|
|
|
OCTAGRAM
Сообщений: 20
Оценки: 0
Присоединился: 2006-05-04 15:40:00
|
В Delphi кодировка IDE отличается от кодировки консоли; нет модуля CRT (в стандартной поставке, по крайней мере)
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2009-05-14 20:40:12.273333
|
|
|
OCTAGRAM
Сообщений: 20
Оценки: 0
Присоединился: 2006-05-04 15:40:00
|
quote:
ORIGINAL: Zmaster
И зачем вообще качать русский IDE и BGI. Без них тоже как-то живется.
Ну это если раньше не доводилось. А потом к хорошему быстро привыкаешь )))
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2009-05-14 20:42:50.663333
|
|
|
Genco
Сообщений: 1662
Оценки: 90
Присоединился: 2007-12-16 23:11:22.003333
|
Ну конечно, зачем оно там, CRT с аналогичными возможностями Delphi не сравнить.
|
|
|
|
|
|
