Програмирование на PASCAL

K

kvvitka

Все ответы на свои вопросы по паскалю ты получишь в этой теме =)
 
R

ru_BibleVerses

оО а с задачей конкретной поможите?)
Задача: Если во вводимой последовательности символов присутствует каждая из букв слова "pascal" ,тогда в качестве ответа вывести значение "true", иначе "false". Ввод продолжать до нажатия клавиши "PgDn" на допполнительной клавиатуре.
Комментарии: решать, используя ASCII-коды, строковый тип использавать нельзя.
Плиз помагите решить)))
 
O

Olyanas

1)тема"Работа с данными типа множеств"
задание. Опишите множества R и L содержащие русские и латинские буквы.В цикле вводите русские и латинские буквы и выводитесоответствующие сообщение.Выход из цыкла -введенная буква Z
 
L

luftaffe

Привет, кто ни будь пожалуйста подскажите адрес, по которому можно скачать TurboPascal 7.0. А то я винт отформатировал, в месте Pascal`ем...
 
N

Natallly

люди, могу помочь отчасти со спортивным программированием - обращайтесь!
 
E

Egoist1

что еще за спортивное программирование? типа кто быстрее накарябает прогу?))
 
N

Natallly

ага и притом надо программе все тесты проходить за опр. время (в основном 2 сек)
 
B

belonesox

Лди, пишу статус чекер для аськи на основе проверки на сайте...

Нашел скрипт на пхп...

на делфи сможете мне переввести ))


function check2($num) {
$user_agent="Mozilla/5.0 (Windows; U; Windows NT 6.0; ru; rv:1.9.0.3) Gecko/2008092417 Firefox/3.0.3";
$fp = fsockopen("inviz.su", 80, $errno, $errstr, 10);
$out = "GET /?uin=".$num." HTTP/1.0\r\n";
$out .= "Host: inviz.su\r\n";
$out .= "User-Agent: ".$user_agent."\r\n\r\n";
fwrite($fp, $out);
$an = '';
while(!feof($fp))
{
$an .= fgets($fp,128);
}
fclose($fp);
preg_match_all("|</p><p>(.+)</p><p>|U", $an, $check);
$ch=str_replace("<br/>", "\r\n", $check[1][0]);
return $ch;
}
 
E

ecco_san

мня интресуит GRAPH
подскажите, возможно ли на нем увеличить кол-во цветов (скажем, до 256)
 
D

dtolmachev

ЛЮДИ, помогите решить задачку-
В строке записаны слова исходного текста, в отдельной строке - одно из слов, которое может быть в строке (количество букв в не превышает 10). В словах исходного текста могут быть ошибки, в частности, могут быть переставлены две соседние буквы. Проверить текст в строке и, если в нем имеется слово с наличием указанной ошибки, то необходимо скорректировать это слово.
 
F

fearout

помогите решить задачку: Среди n точек подсчитать число точек,находящихся внутри круга радиуса r с центром в начале координат.Координаты вводятся с клавиатуры
 
S

Sychov

Люди,выручайте где можно скачать старую прогу GRAN1,очень нужно,в поисковике не нахажу:((((((((((
 
M

mashadrokova

Паца помогите!!! Напишите кто может... Как это квадратное уровнение будет выглядит в решонном виде в tyrbo paskal. есле можно чтоб без ошибок...... и чтоб без пояснений, а сразу программа.... Заранее СПАСИБО!!!
5x2+35x-60=0; 2-это квадрат.
 
M

mashadrokova

Всмысле рисовал, Блок схему чтоли? Мне надо написать это уровнение в виде программы чтоб начиналось с Program A1 и заканчивалось END. только если можно чтоб без ошибок, и пояснений, Только программа и ответ.Заранее СПАСИБО!!!!!!!!
 
L

Ladanspb

Алексею Волкову на вопрос от 19 фев 2009 в 23:09
Если расстояние от точки до начала координат <= r, то точка - в круге.
Расстояние вычисляется, в данном случае, как корень квадратный из (x*x + y*y). Теорема Пифагора))

const n=20, r=25.3;
var x, y: array[1..n] of real;
i, c: byte; {c - переменная, в которую записываем количество попавших в круг точек}
begin
c:=0;
for i:=1 to n do begin
write('Vvedi koordinaty ', i, ' to4ki:');
readln(x, y)
if sqrt(sqr(x)+sqr(y))<=r then
c:=c+1;
end;
writeln('V krug popalo ', c, 'to4ek);
end.

Upd. Пожалуйста
 
L

Ladanspb

Владу Ступаку на вопрос от 25 мар 2009 в 9:27

const a=5.0, b=35.0, c=-60;
var d: real;
begin
d:=b*b-4*a*c;
if d<0 then
writeln('Uravnenie ne imeet deistvitelnyh kornei')
else
writeln('x1=', (-b+sqrt(d))/2/a:7:3,' x2=',(-b-sqrt(d))/2/a:7:3)
end. { деццццкий сад }

Upd. Пожалуйста
 
O

otgovori

Народ, всем превет кто может памочь зделать лаби по Paskal пліс....
 
L

Ladanspb

Судя по названию темы, некоторые могут)
 
S

SGL

Кто знает, помогите пожалуйста!
Вот дан двумерный массив 8x8, как задать такой(ие) цикл(ы), чтоб проверить элементы стоящие только на одной диагонали?
 
S

SGL

Уже не надо! Гсподь помог! Слава Ему!
 
A

aleshaten

Чисто на будущее:
for i:=1 to 8 do
for k:=1 to 8 do
begin ... end; для главной диагонали и

for i:=1 to 8 do
for k:=8 downto 1 do
begin ... end; для второй диагонали.
А так много иетересного пишут в учебниках, попробуй почитать
 
S

SGL

то что ты написал, это цикл пробегает не по диагонали, а по всему массиву
 
Y

Yusmal

“Ипподром”. Играющий выбирает одну из трех лошадей, состязающихся на бегах, и выигрывает, если его лошадь придет первой. Скорость передвижения лошадей на разных этапах выбирается программой с помощью датчика случайных чисел. А такое поможете? ) желательно с граф оформлением
 
C

Chkon

Помогите плиз, бо меня скоро выгонят из универа!!! На Pascal:

Задано масив на 10000 элементов действительного типа, упорядочить его по снижению значений его элементов. ?4?езультаты внести в текстовый файл.
 
D

dstavisky

var a:array[1..10000] of real;
m,c:real;
f1,f2:integer;
data:text;
begin

{...}
{ Тут надо задать массив }
{ Например: }
randomize;
for f1:=1 to 10000 do a[f1]:=random;
{ Или любым другим способом }
{...}

{ Сортировка }
for f1:=1 to 10000 do begin
m:=a[f1];
for f2:=f1+1 to 10000 do
if m<a[f2] then begin
c:=m;
m:=a[f2];
a[f2]:=c;
end;
a[f1]:=m;
end;

{ Запись значений столбиком в текстовый файл }
assign(data,'file.txt');
rewrite(data);
for f1:=1 to 10000 do writeln(data,a[f1]);
close(data);

end.
 
N

Nameless_girl

люди.помогите с задачей на Paskale.никак не могу её сделать.

построить программу-справочник.Предметная область-справочное бюро железно-дорожного вокзала.Система должна содержать 10-15 вопросов и ответов.Диалог должен быть дружественным.

Очень прошу,помогите!!!!!!!!!!!
 
A

afisha_msk

Народ, у кого-нибудь есть код игры "Сбей самолёт" на паскале. Это курсовая работа. Очень нужно срочно!!!!! HELP!!! HELP!!! HELP!!!
 
N

nomnol

Кто-нибудь помогите пожалуйста!!! Вот такая задача: Двоичное кодирование вещестественных чисел в нормализованной форме с фиксированной разрядностью регистра.
Ввод: 1) распределение бит регистра 2) десятичное число в естественной или нормализованной форме.
Вывод: Двоичный код числа (размещение в регистре) или сообщение о переполнении
Указание: Алгоритм перевода должен быть реализован программно (недопустимо использование соответствующих функции языка программирования).
ЕСЛИ КТО-НИБУДЬ МОЖЕТ ПОМОЧЬ, ПИШИТЕ В ЛИЧКУ! HELP!!!!
 
L

lady_puma

Помогите пожалуйста,ооочень нужна помощь!!
Задача: Пусть многочлен задан последовательностью своих не нулевых коэффициентов.Вычислить значение многочлена в точке х.
14х20+0,5х7+10х3-2 (20,7,3-степени)
Для хранения использовать список с 2-мя унифицированными полями(1-коэф.,2-номер степени).
Удобнее коэф. вводить в порядке убывания степеней.

Писать с помощью динамических структур!!
 
K

Kиca

ПОМОГИТЕ КТО МОЖЕТ
задача на перебор

дано некоторое количество отрезков координаты начала и конца считываются из файла
вот и тот отрезок который пересекает самое большое число отрезков выделить другим цветом
 
A

Aglaya_

Задание (общее ко всем вариантам).
Написать программу работы с массивом с использованием процедур и функций распечатки и частичной обработки массива.
При написании подпрограмм не использовать глобальные переменные, кроме имен файлов. Все обмены данными между подпрограммами и вызывающей программой выполнять через параметры подпрограмм.
Исходные данные читать из существующего текстового или двоичного файла. Результаты расчета выводить в форматном виде в выходной текстовый файл.
Оформить отчет по лабораторной работе аналогично оформлению предыдущих работ.
Требования к программе и отчету по работе
• В таблице распределения памяти привести имена, используемые как в основной программе, так и в подпрограммах, в том числе и формаль-ные параметры процедур и функций.
• Алгоритмы каждой подпрограммы и основной программы выполнить отдельно.
• Все значения, на которые по смыслу накладываются ограничения, должны при вводе проверяться.
• Все выводимые данные должны подписываться.
Содержание программы.
• Заголовок программы с комментарием;
• Описание типов массивов;
• Описание переменных основной программы;
• Описание процедур и функций;
• Ввод необходимых исходных данных с клавиатуры;
• Открытие входных и выводного файлов;
• Ввод необходимых исходных данных из файла;
• Вывод исходных данных, в том числе массива в выводной файл. При выводе массива использовать созданную процедуру;
• Обработка массива в соответствии с заданием с применением разра-ботанной процедуры или функции;
• Вывод результатов обработки в выводной файл, возможно с приме-нением процедуры;
• Закрытие всех файлов.

Программа:Одномерный символьный массив длиной 300 элементов заполнить символами из файла, начиная с начала. С помощью процедуры заполнить новый одномерный символьный массив символами из исходного массива без повторения символов.

Процедуры (Функции):1) Построить процедуру, кото-рая в исходном массиве заме-няет пробелом все вхождения первого встретившегося сим-вола (не пробела) и возвращает этот стертый символ в вызы-вающую программу.
2) Печатать каждый массив с помощью процедуры.

M<= : 300

Файл с данными:SIMBOL.
TXT

Ктонить может это сделать?

Заранее ОГРОМНОЕ спасибо!
 
J

Jilbertina

1) Вычислить сумму квадратов всех элементов заданного массива X(N), за исключением элементов, кратных пяти.
2) Из заданной матрицы A(N,M) удалить строку с номером K и столбцы с номерами P и Q. Полученную матрицу уплотнить.
3) Элементы заданной матрицы A(N,M) переписывать построчно в одномерный массив до тех пор, пока не встретится нулевой элемент.
4) Каждые n символов во введенном тексте отделить знаком "!".
5) Удвоить каждую букву в заданном тексте.
Все задачи на Pascal :) Хелп плиз, пишите только в личку или в аську 455553908
 
Z

zaich0nok

Владу Ступаку на вопрос от 25 мар 2009 в 9:27

program Project2;

{$APPTYPE CONSOLE}

var a,b,c,x,d,xx:real;

begin
writeln('vvedite a,b,c');
readln(a,b,c);
if a=0 then
if b<>0 then
begin
x:=-c/b;
writeln('koren=',x:5:5);
readln;
end else
if c<>0 then writeln ('korney net') else
writeln('koren - luboe chislo');
readln;
d:=b*b-4*a*c;
if d<0 then
begin
writeln('korney net');
readln;
end else
if d=0 then
begin
x:=-b/(2*a);
writeln('koren=',x:5:5);
end else
begin
x:=(-b+sqrt(d))/(2*a);
xx:=(-b-sqrt(d))/(2*a);
writeln('korni=',x:5:5,' ',xx:5:5);
end;
readln;
end.

это в консоле у Дельфи, но прокатит и в турбопаскале.

P.S. решает квадратные уравнения с любыми a,b,c
 
J

Jilbertina

1) Вычислить сумму квадратов всех элементов заданного массива X(N), за исключением элементов, кратных пяти.
2) Из заданной матрицы A(N,M) удалить строку с номером K и столбцы с номерами P и Q. Полученную матрицу уплотнить.
3) Элементы заданной матрицы A(N,M) переписывать построчно в одномерный массив до тех пор, пока не встретится нулевой элемент.
4) Каждые n символов во введенном тексте отделить знаком "!".
5) Удвоить каждую букву в заданном тексте.
Все задачи на Pascal :) Хелп плиз
 
K

kehskas

Всем привет)))Кто может мне помоч с процедурами..я не понимаю их)))Заранее спасибо))
 
A

aboutgames

Прога норм...
Я там анимацию делал))xD
Кораблик нарисовал,волны
Сделал чтоб был прыжок,движени(200) и прикольно получилось))
 
N

nikitaoduvan

1.помогите пожалуйста написала программу(это моя первая программа, я самостоятельно изучаю паскаль)
вот текст
program Triagle;
var
a, b: integer;
S: integer;
begin
writeln (' введите катеты треуголника' )
readln (a , b )
S:= a * b * 0.5;
writeln ( ' площадь треугольника равна ' , S)
end.readln

так вот при запуске компилятора он выдает ошибку
Error 26 : Type mismath

а курсор появляеться в конце этой строки S:= a * b * 0.5;

помогите пожалуйста что не так с текстом программы

2.помогите пожалуйста почему когда я скомпилировал программу и запустила ее, ввожу числа чтоб она посчитала, нажимаю ввод и экран пропадает!почему так?
 
K

Kиca

надо переменные S,a,b присвоить тип real а не integer так как integer это целые числа a real это с дроной частью. площать может быть и не ровной и там еще деление пополам если есть деление или умножениние то тип integer нельзя ставить вот текст попробуй так должно работать
program Triagle;
var
a, b,S: real;
begin
writeln (' введите катеты треуголника' );
readln (a , b );
S:= a * b * 0.5;
writeln ( ' площадь треугольника равна ' , S);
readln;
end.
 
N

nikitaoduvan

спасибочки большое)))))))))))))))))))))))все работает)))))))))))
огромное при огромное спасибо)))))))))))))это моя первая программа и она работает)))))))))дай вам Бог всего самого наилучшего))))))

у меня еще вопрос про паскаль почему после выполнения этой программы
program Triagle;
var
a, b,S: real;
begin
writeln (' введите катеты треуголника' );
readln (a , b );
S:= a * b * 0.5;
writeln ( ' площадь треугольника равна ' , S);
readln;
end.
я ввела числа 12 и 14 должно было получиться 90 а он выдает
9,0000000000Е+01
почему так?
 
R

ru_BibleVerses

Напиши вместо "writeln ( ' площадь треугольника равна ' , S);"
"writeln ( ' площадь треугольника равна = ' , S:5:0);" например)
1е число отвечает за кол-во символов, которое буит отдаваца под написание значения переменной S
2е отвечает как рас за кол-во знаков после запятой
 
K

Kиca

так и получется если это число перевести в нормальный вид получется 90 т.е. 9*10 в певрой степени поищи там есть какой то модуль который переводит число в нормальнй вид
 
E

evgenja

program zastawka;
uses crt;
var x,y,dx,dy,n:integer;
begin
clrscr;
x:=1;
y:=1;
dx:=1;
dy:=1;
repeat
window (x,y,x+5,y+5);
textbackground (n);
textcolor (n);
clrscr;
delay (6000);
window (x,y,x+4,y+5);
textbackground (black);
textcolor (black);
clrscr;
x:=x+dx;
y:=y+dy;
if (x>=75) or( x<=0) then begin dx:=-dx; n:=n+1 end;
if (y>=46) or (y<=0) then begin dy:=-dy; n:=n+1 end;
if n mod 8=0 then
n:=n+1;
until keypressed;
end.

вот вам
 
S

Sueta

Вот интересная анимашка,тока в строке
initgraph(dv,mv,'d:\all\programs\bp\bgi');
вместо d:\all\programs\bp\bgi напишите свой путь к папке BGI :

program graphhhh;
uses crt,graph;
var dv,mv,i,t,ttt,ks,x1,k,y1,x2,y2,a,b,c:integer;
m:array[1..99] of integer;
begin

dv:=9;
mv:=2;
initgraph(dv,mv,'d:\all\programs\bp\bgi');
randomize;
clrscr;
while i=0 do begin

a:=random(getmaxx);
b:=random(getmaxy);
c:=random(getmaxx);

setcolor(random(15));
settextstyle(3,0,4);
setlinestyle(4,1,1);

for k:=getmaxx downto 1 do begin
setcolor(random(15));
settextstyle(0,0,3);

circle(getmaxx div 2,getmaxy div 2,{random(getmaxx)}k);
{line(1,1,random(getmaxx),random(getmaxy));
line(getmaxx,1,random(getmaxx),random(getmaxy));
line(1,getmaxy,random(getmaxx),random(getmaxy));
line(getmaxx,getmaxy,random(getmaxx),random(getmaxy));}
K:=k-1;
t:=t-1;
if k<=1 then
begin
a:=random(getmaxx);
b:=random(getmaxy);
c:=random(getmaxx);
for k:=1 to getmaxx do begin
k:=k+1;
setcolor(random(15));

circle(getmaxx div 2,getmaxy div 2,k);
circle(getmaxx,getmaxy,k);
circle(a,a,k);
circle(b,b,k);
circle(a,b,k);
circle(b,a,k);
circle(c,a,k);
circle(c,b,k);
circle(a,c,k);
circle(b,c,k);
circle(c,c,k);
circle(getmaxx div 2,getmaxy,k);
circle(getmaxx,getmaxy div 2,k);
circle(1,1,k);
circle(getmaxx,1,k);
circle(getmaxx div 2,1,k);
circle(1,getmaxy div 2,k);
circle(1,getmaxy,k);

if k>=getmaxx then k:=getmaxx;

if keypressed then break;
end;
end;

circle(getmaxx,getmaxy,k);
circle(getmaxx div 2,getmaxy,k);
circle(getmaxx,getmaxy div 2,k);
circle(1,1,k);
circle(getmaxx,1,k);
circle(getmaxx div 2,1,k);
circle(1,getmaxy div 2,k);
circle(1,getmaxy,k);
circle(a,a,k);
circle(b,b,k);
circle(a,b,k);
circle(b,a,k);
circle(c,a,k);
circle(c,b,k);
circle(a,c,k);
circle(b,c,k);
circle(c,c,k);

if keypressed then break;
end;
nosound;
{for x1:=1 to getmaxy do
for y1:=1 to getmaxx do
begin
putpixel(y1,x1,random(getmaxx));
if keypressed then break;
end; }
if keypressed then break;
end;
readkey;
end.
 
O

okinternetblog

помогите, пожалуйста. как вычислить в виде программы, чтобы начиналось с Program и заканчивалось на энд. a=∜(y+∛(x-1)) ; b=|x-y|*(sin2(z)+tg(z)) где x=17.421, y=10.365, Z=0.828. очень срочно нужно.

и точно так же еще одно.a=(x^(y+1)+e^(y-1))/(1+x*|y-tg(z)|); b=1+(|y-x|)/x+〖|x-y|〗^2/〖(y)〗^2 +〖|y-x|〗^3/〖|z|〗^3 ; где x=2.444; y=0.869; z=-0.166. заранее спасибо.
 
S

Sueta

это жесть....задолбаешься на паскале писать.....пиши на си++...там функции возведения в степень готовые есть
 
E

Egoist1

Сергей Ружейников)) слушай, если ты знаешь плюсы, помоги ка кой в чем... например, y=45 градусов, как вычислить косинус от y?
 
S

Sueta

program xxx;
uses crt;
var x,y:real;
begin
writeln('введите X в радианах');
readln(x);
y:=cos(x);
writeln('y=',y:5:2);
readkey;
end.

Угол в радианах можно найти в таблице....
 
E

Egoist1

)) я просил показать, как это на с++ буит, хоть тема и про паскаль, но все же...
 
S

Sueta

#include <iostream.h>
#include <conio.h>
#include <math.h>
int main ()
{double x,y;
cout<<"Введите X в радианах"<<endl;
cin>>x;
y=cos(x);
cout<<"cos("<<x<<")="<<y;
getch();
return 0;}
 

Статистика форума

Темы
200.634
Сообщения
380.522
Пользователи
327.876
Новый пользователь
pm1199
Сверху Снизу