S
а ты си++ знаешь?? или хотя бы изучаешь??
Програмирование на PASCAL
- Автор темы kvvitka
- 32K
- Дата начала
-
- Теги
- паскаль
S
я тока вначале года начал изучать
K
Помогите, пожалуйста, решить следующую задачу "В заданном положительном целом числе найти количество нечётных цифр"
S
ребят срочно нужна помощь!!!!
нужно написать программу на Turbo Pascal
расчет y=2*sqr(X)
с выводом результатов в виде графика/диаграммы в Excel + результаты писались в отдельный txt файл
у меня никак не получается(
нужно написать программу на Turbo Pascal
расчет y=2*sqr(X)
с выводом результатов в виде графика/диаграммы в Excel + результаты писались в отдельный txt файл
у меня никак не получается(
S
на счет диаграммы ексель не знаю...а вот в файл вынести просто:
S
program xxx;
uses crt;
var y,x:real;
f:text;
begin
assign(f,'путь к файлу\имя.txt');
rewrite(f);
readln(x);
y:=2*sqr(x);
writeln(f,'y=',y:5:3);
close(f);
readkey;
end.
uses crt;
var y,x:real;
f:text;
begin
assign(f,'путь к файлу\имя.txt');
rewrite(f);
readln(x);
y:=2*sqr(x);
writeln(f,'y=',y:5:3);
close(f);
readkey;
end.
S
если чуть чуть еще позадрачивать ся то можно заставить ответ записываться в конец файла, а не перезаписывать его..)))
N
скажите пожалуйста, а в паскале, что вообще нельзя писать русскими буквами?
S
можно двумя способами:
1) для переключеня на русскую раскладку жми правые ctrl+shift
на английскую - левые ctrl+shift
2) зажимаешь правый ALT и на цифровой клавиатуре набираешь код символа.... набрала код - отпускай alt..(например А=128. Б=129....и т.д таблицы есть....)
1) для переключеня на русскую раскладку жми правые ctrl+shift
на английскую - левые ctrl+shift
2) зажимаешь правый ALT и на цифровой клавиатуре набираешь код символа.... набрала код - отпускай alt..(например А=128. Б=129....и т.д таблицы есть....)
S
первый способ работает только на русифицированных версиях
N
зажала alt но там какието непонятные символы((((
S
а паскаль в полноэкранном режиме у тебя или в окошке??
S
короче нажми ALT+ENTER
и повтори то же самое
и повтори то же самое
N
спасибочки большое))))
можно ли сделать русские буквы маленькими в турбо паскале?если да то как?
можно ли сделать русские буквы маленькими в турбо паскале?если да то как?
S
коды в таблицах ищи.....128 - А, 160 - а
S
176 - 223 разные уголки,
224 (р) опять руские буквы
224 (р) опять руские буквы
S
таблицу ASCII кодов можно найти в нете) или в старых учебниках по информатике ;-)
K
Помогите решить, заранеее за всё благодарен.1) "В заданном пятизначном положительном целом числе найти количество нечётных цифр."
2)Для целого числа n найти сумму его цифр. Найти сумму квадратов его цифр в случае, если n четырёхзначное.
2)Для целого числа n найти сумму его цифр. Найти сумму квадратов его цифр в случае, если n четырёхзначное.
S
вводи через массив....по одной цифре
S
проверка на нечетность
n:=0
for i:=1 to 5 do
begin
if ((x mod 2)<>0)and(x<>0) then n:=n+1
else if (x=0) then n:=n;
end;{если остаток от деления не равен 0 то число считаем количество нечетных, если цифра = 0 то четная}
writeln
;
n:=0
for i:=1 to 5 do
begin
if ((x mod 2)<>0)and(x<>0) then n:=n+1
else if (x=0) then n:=n;
end;{если остаток от деления не равен 0 то число считаем количество нечетных, если цифра = 0 то четная}
writeln
; E
предлагаю создать буферную переменную типа real или integer, ткнуть на форму timer, и через timer.interval присваивать буферной переменной приведенное к нужному типу значение из поля ввода...
E
хотя такой алгоритм не будет отличаться гибкостью и быстродействием...
R
омг, нахрен так, просто используйте функию StrToInt(переменная строки), присваиваете ее переменной типа интеджер и можна работать) как строку можна брать хоть чо, хоть лэйблы, хоть эдит, эт ниважна
E
нужно компонент сообразить новый))
S
Помогите Создать объект-родитель TParson, в рамках которого будут инкапсулированы поля и методы, общие для всех остальных объектов:
type
TPerson = object
{Поля объекта}
Age: Integer; {Возраст человека}
{Методы объекта }
Constructor Init(aAge: Integer);
{Создает экземпляр объекта}
Procedure Show;
{Ввыводим возраст человека}
end; {Конец описания объекта TPerson}
Constructor TPerson.Init(aAge: Integer);
begin
Age=aAge;
end;
Если класс-потомок определяет метод с таким же именем, как внутри предка, то такое действие называется переопределением метода. Тогда внутри метода класса- потомка можно вызвать метод класса-предка с использованием зарезервированного слова inherited.
Создайте следующий объект:
TPerson - объект людей.
Со следующим набором методов и полей: Age:integer; {возраст}
Man:boolean; {пол}
procedure Init(_Age:integer; _Man:boolean); {метод создания человека (заполнение полей)}
function IsWorking:boolean; {Метод-функция, определяющая, может ли человек работать (по возрасту) или нет}
function InfoString:string; {возвращает фразу о типе класса}
function IsWorkingString:string; {возвращает фразу о трудоспособности}
function ManString:string; {возвращает фразу о поле}
function AgeString:string; {возвращает фразу о возрасте}
И поражденный от него объект TPersonStudent.
type
TPerson = object
{Поля объекта}
Age: Integer; {Возраст человека}
{Методы объекта }
Constructor Init(aAge: Integer);
{Создает экземпляр объекта}
Procedure Show;
{Ввыводим возраст человека}
end; {Конец описания объекта TPerson}
Constructor TPerson.Init(aAge: Integer);
begin
Age=aAge;
end;
Если класс-потомок определяет метод с таким же именем, как внутри предка, то такое действие называется переопределением метода. Тогда внутри метода класса- потомка можно вызвать метод класса-предка с использованием зарезервированного слова inherited.
Создайте следующий объект:
TPerson - объект людей.
Со следующим набором методов и полей: Age:integer; {возраст}
Man:boolean; {пол}
procedure Init(_Age:integer; _Man:boolean); {метод создания человека (заполнение полей)}
function IsWorking:boolean; {Метод-функция, определяющая, может ли человек работать (по возрасту) или нет}
function InfoString:string; {возвращает фразу о типе класса}
function IsWorkingString:string; {возвращает фразу о трудоспособности}
function ManString:string; {возвращает фразу о поле}
function AgeString:string; {возвращает фразу о возрасте}
И поражденный от него объект TPersonStudent.
K
var a,b,c,n:integer;
begin
writeln ('n=');
readln;
for a:=1 to n do
for b:=1 to n do
for c:=1 to n do
if a*a*a+b*b*b+c*c*c=n then write(a,':',b,':',c,';');
readln;
end.
Программа должна определить можно ли данное число расписать как а в кубе+b в кубе+c в кубе.a,b,c>0. Программа выдаёт лишние значения. В чём ошибка? Заранее благодарен.
begin
writeln ('n=');
readln
;for a:=1 to n do
for b:=1 to n do
for c:=1 to n do
if a*a*a+b*b*b+c*c*c=n then write(a,':',b,':',c,';');
readln;
end.
Программа должна определить можно ли данное число расписать как а в кубе+b в кубе+c в кубе.a,b,c>0. Программа выдаёт лишние значения. В чём ошибка? Заранее благодарен.
L
дай саму задачу в оригинале
S
по моему тут нужно написать так:
.....for c:=1 to n do
begin
a:=a+1;
b:=b+1;
c:=c+1;
if.... then
begin
write(a,':',b,':',c,';');
break;
end;
end;
readkey;
end.
.....for c:=1 to n do
begin
a:=a+1;
b:=b+1;
c:=c+1;
if.... then
begin
write(a,':',b,':',c,';');
break;
end;
end;
readkey;
end.
S
как я понял нормально програмированием никто не занимается
S
это почему же...????я задрот этого дела)))))
S
Сергей, тогда реши мне пожалуйста вот такую задачу: если А+В+С>0, то каждому числу присвоить 2, если А+В+С<0, то вывести из сумму, иначе вывести ноль.
а я тока 1,5 месяца программированием занимаюсь=)))
а я тока 1,5 месяца программированием занимаюсь=)))
S
program xxx;
uses crt;
var a,b,c,s:real;
begin
writeln ('vvedite a,b,c');
readln(a,b,c);
s:=a+b+c;
if s>0 then
begin
a:=2;
b:=2;
c:=2;
end
else if s<0 then writeln(s)
else writeln('0');
readkey;
end.
uses crt;
var a,b,c,s:real;
begin
writeln ('vvedite a,b,c');
readln(a,b,c);
s:=a+b+c;
if s>0 then
begin
a:=2;
b:=2;
c:=2;
end
else if s<0 then writeln(s)
else writeln('0');
readkey;
end.
S
не уж то все настолько просто?!?!?!=))) спасиб большое=)))
S
вот ассемблер - это какая то полная х***ня которую фиг изучишь как ни хоти
S
ну знаешь ли, я тока начала всю эту фигню изучать!!!=))))
а чо у тя написано: readkey; ?????????=)) объясни дураку=)))
а чо у тя написано: readkey; ?????????=)) объясни дураку=)))
S
)))))это задержка....чтоб окошко не потухло а дождалось нажатия клавиши........)))процедура из модуля CRT в начале....с помощю нее можно узнавать какая клавиша нажата тока чуть помудрив
S
сергей ну дак помоги с задачей)
S
если ты про #92 то здесь я не шарю......ООП на С++ тока начал проходить....разберусь на С++ может и на Делфи попробую
S
ну это почти одно и тоже)))))делфи - ручное (мышкой размещаешь)ООП)))) они похожи....а в ТП прописывать каждый объект нужно))) ну и еще какие то языковые различия есть))))а так почти одно и тоже
S
да так то задача легкая просто с эсемблером щас немного ебусь а сдавать уже завтра надо и нифига не успеваю
S
досада))))а ассемблер реально легкий такой как все говорят???))0я ни фига понять не могу)))
S
да них*я он не легкий тупой язык самый и бесячий
S
в делфи писанины очень много. все то, что"вручную размещать" еще и описывать надо.
S
ребят, тут задача, очень простая вроде. а сайт какой-то 14 тест не пропускает по времени. скажите что не так... вот задача:
Необходимо вывести все простые числа от A до B включительно.
Входной файл INPUT.TXT содержит два натуральных числа A и B, разделенных пробелом (2 <= A <= B <= 106)
В выходной файл OUTPUT.TXT выведите в одной строке через пробел все простые числа от A до B в порядке возрастания. Если таковых чисел нет, то следует вывести «Absent».
Необходимо вывести все простые числа от A до B включительно.
Входной файл INPUT.TXT содержит два натуральных числа A и B, разделенных пробелом (2 <= A <= B <= 106)
В выходной файл OUTPUT.TXT выведите в одной строке через пробел все простые числа от A до B в порядке возрастания. Если таковых чисел нет, то следует вывести «Absent».
S
а вот решение:
var a, b, e, i, j, k:longint;
chisla: array[1..80000] of longint;
begin
assign(input, 'input.txt'); reset(input);
assign(output, 'output.txt'); rewrite(output);
readln(a,b);
e:=1;
for j:=a to b do
begin
k:=0;
for i:=1 to j do
if (j mod i)=0 then k:=k+1;
if (k=2) then
begin
chisla[e]:=j;
e:=e+1;
end;
end;
if chisla[1]<>0 then
for i:=1 to e-1 do
write(chisla,' ')
else writeln('Absent');
end.
var a, b, e, i, j, k:longint;
chisla: array[1..80000] of longint;
begin
assign(input, 'input.txt'); reset(input);
assign(output, 'output.txt'); rewrite(output);
readln(a,b);
e:=1;
for j:=a to b do
begin
k:=0;
for i:=1 to j do
if (j mod i)=0 then k:=k+1;
if (k=2) then
begin
chisla[e]:=j;
e:=e+1;
end;
end;
if chisla[1]<>0 then
for i:=1 to e-1 do
write(chisla,' ')
else writeln('Absent');
end.
K
Помогите решить задачу с помощью Паскаля:
Условия задачи: Дана сфера радиуса R, центр которой находится в центре координат. Необходимо определить количество точек, находящихся в сфере, с целочисленными координатами. Если точка лежит на поверхности сферы, то ее надо учитывать.
Условия задачи: Дана сфера радиуса R, центр которой находится в центре координат. Необходимо определить количество точек, находящихся в сфере, с целочисленными координатами. Если точка лежит на поверхности сферы, то ее надо учитывать.
N
а можно в качестве фона (не черный) сделать картинку?в паскале?
S
цвет поменять можно а картинку...скорее всего придется писать кучу библиотек.....а стандартно не поменяешь)))))))0
S
ребят, помогите с задачей пожалуйста, завтра желательно сдать
из величин, определяемых выражениями sin(x), cos(x), Lnlxl при заданном вещественном х, определите минимальное значение
из величин, определяемых выражениями sin(x), cos(x), Lnlxl при заданном вещественном х, определите минимальное значение
S
program xxx;
uses crt;
var x,c,s,l:real;
begin
writeln('vvedite x');
readln(x);
c:=cos(x);
s:=sin(x);
l:=ln(abs(x));
if c>s then begin
if s<l then writeln('sin=min')
else writeln('ln=min');
end
else begin
if c<l then writeln('cos=min')
else writeln('ln=min');
end;
readkey;
end.
uses crt;
var x,c,s,l:real;
begin
writeln('vvedite x');
readln(x);
c:=cos(x);
s:=sin(x);
l:=ln(abs(x));
if c>s then begin
if s<l then writeln('sin=min')
else writeln('ln=min');
end
else begin
if c<l then writeln('cos=min')
else writeln('ln=min');
end;
readkey;
end.