помогите в написании программ на паскале, пожалуйста (= Опции

[SaikS]

собственно тема вновь актуальна (до завтра до 6 часов утра)

нужно решить задачи (в прикреплённом документе)
очень срочно.
нужен сам код программы (:
по возможности сохраннёную программу для паскаля и блок схему (:
 ______.doc ( 18.5 килобайт ) Кол-во скачиваний: 27


---------------14th June 2008 - 14:47-------------

ап

---------------14th June 2008 - 15:38-------------

ап

[ZEF]

собственно тема вновь актуальна (до завтра до 6 часов утра)

нужно решить задачи (в прикреплённом документе)
очень срочно.
нужен сам код программы (:
по возможности сохраннёную программу для паскаля и блок схему (:

Эх не смог раньше на форум залезть, если ещё актуально, то:

1. Присвоить целой переменной d первую цифру из дробной части положительно вещественного числа x (так, если х=32.597, то d=5).

Код

d:=trunc(x*10) mod 10;

2. Дано: x и y - пpоизвольные вещественные числа. Опpеделить z по следующей фоpмуле: .

Код

function Max(const A, B: Extended): Extended;
begin
if A>B then Result:=A else Result:=B;
end;

function Min(const A, B: Extended): Extended;
begin
if A<B then Result:=A else Result:=B;
end;

function Z(const X, Y: Extended): Extended;
begin
if x<0 then Z:=Max(X,Y) else Z:=Min(X,Y);
end;

3. Дано действительное число х. Hе используя стандаpтные функции (за исключением abs), вычислить сумму следующего pяда с заданной точностью Е>0 (Е, x вводятся с клавиатуры): .

Этот вопрос поставлен некорректно (или я уже математические формулы забыл),
Е, х вводятся с клавиатуры а число n как тогда?
Е - как я понимаю количество знаков, после запятой.
Непонятно ещё одно (-1)^n*x^2*n/(2n)! - это последний кусок выражения?
потому как первые итерации цикла имеют вид x^n/n!

4. Поменять местами минимальный и первый отрицательный элементы массива.

Код

procedure SwapElements;
var a: array[1..1000] of Extended;
i,n,m : integer;
x: Extended;
first: boolean;
begin
{заполнение массива a}
m:=0;
n:=0;
x:=a[1];
first:=true;
for i:=1 to 1000 do begin
if first and (a[i]<0) then begin
first:=false;
m:=i;
end;
if a[i]<x then begin
x:=a[i];
n:=i;
end;
end;
x:=a[n];
a[n]:=a[m];
a[m]:=x;
end;

5. Дана матpица A[N,М]. Упорядочить строки матрицы в порядке не убывания их первых элементов

Методом пузырьковой сортировки можно решить задачу.

Код

procedure SortMatrix;
const
n=10;
m=100;
var
A: array[1..n,1..m] of Extended;
p: Extended;
i,j,k:integer;
begin
{заполнение массива a}
for k:=1 to n do
for i:=1 to m do
for j:=1 to m-1 do
if A[k,j]>A[k,j+1] then
begin  {Обмен элементов}
p:=A[k,j];
A[k,j]:=A[k,j+1];
A[k,j+1]:=P;
end;
{Вывод отсортированного массива A}
end;

[Kott]

Срочно нада решить задачи:
1. Проверить является ли число «а» четным.
2. Определить является ли число «n» одновременно «+» и кратным 3.
3. Является ли введенное число двузначным.
4. Пусть некто, обладая определенной денежной суммой, открыл счет в банке. Банк ежегодно начисляет определенный процент от вклада (это называется «учетной ставкой процента»), соответственно увеличивается и сумма вклада. Считается, что этот процент не зависит от времени и от величины вклада. Такая схема называется «правилом сложных процентов». Необходимо написать программу, которая рассчитывает величину вклада и выводит эту величину для каждого года до тех пор пока величина вклада не удвоится.
Актуально до субботы.
Заранее благодарен!!!

[stas9In]

Помогите найти ошибку. Вот я написал прогу program laba1;
uses crt;
var
y,x,x1,x2,x3,y1,y2,y3:integer;
flag:boolean;
function z(x1,x2,y2,y1:real):real;
var a:real; b:real;
begin
a:=x2-x1;
b:=y2-y1;
if a=(0) or b=(0) then flag:=false else flag:=true;
end;
write('vvedite koordinati pervoi tochki');
readln(x1,y1);
write('vvedite koordinati vtoroi tochki');
readln(x2,y2);
write('vvedite koordinati tretei tochki');
readln(x3,y3);
if z(false) then writeln(funkcia ne korektna) else writeln(''); end;

if x3-x1/x2-x1=y3-y1/y2-y1 then
writeln ('tochki nahoditsa na odnoi praymoi')
else
writeln('tochki ne nahoditsa na odnoi praymoi');
readln;
end.
Или это вообще неправельно написал? Условия такие Даны 3 точки определить лежат ли они на одной прямой. записать в виде функции

[barns]

а сам паскаль где ошибку находит?

[Flip]

а сам паскаль где ошибку находит?

та ошибок болше чем буков, щас напишу.

---------------8th January 2009 - 13:53-------------

Помогите найти ошибку. Вот я написал прогу program laba1;
uses crt;
var
y,x,x1,x2,x3,y1,y2,y3:integer;
flag:boolean;
function z(x1,x2,y2,y1:real):real;
var a:real; b:real;
begin
a:=x2-x1;
b:=y2-y1;
if a=(0) or b=(0) then flag:=false else flag:=true;
end;
write('vvedite koordinati pervoi tochki');
readln(x1,y1);
write('vvedite koordinati vtoroi tochki');
readln(x2,y2);
write('vvedite koordinati tretei tochki');
readln(x3,y3);
if z(false) then writeln(funkcia ne korektna) else writeln(''); end;

if x3-x1/x2-x1=y3-y1/y2-y1 then
writeln ('tochki nahoditsa na odnoi praymoi')
else
writeln('tochki ne nahoditsa na odnoi praymoi');
readln;
end.
Или это вообще неправельно написал? Условия такие Даны 3 точки определить лежат ли они на одной прямой. записать в виде функции

Сначала по ошибкам:
1 Программа вообще работать не будет:
начнём по сторокам:
строка 5 зачем входящие параметры типа риал, если читаешь ты их в интеджер. Тут же у функции по твоему результ тоже риал.
строка 9 не обоснованное использование глобальных переменных
строка 10 функция у тебя закончилась
строка 17 туту вообще бред ты пытаешься впихнуть в функцию с риаловским набором параметров стринг параметр, хотя тут даже не стринг , больше похоже на зарезервированное слово, и получить булевский результат. Вообщем тут просто бред.
Вообще к с лову алгоритм нахождение прямой по каноническому уровнению тоже переврат.
функция будет выглядить как то так на первый взгляд

CODE

Function checkline(X1_V,Y1_V,X2_V,Y2_V,X3_V,Y3_V:Real):Boolean;
Begin
Result := false;
If (X1_V = X2_V) and (X2_V = X3_V) and (Y1_V = Y2_V) and (Y2_V = Y3_V) // лежат в одной точке, т.е на одной прямой
Then Result := True
else
begin
If (X1_V = X2_V) and (Y1_V = Y2_V) //лежат на одной точке, т.е мы имеем всего 2 точки, через которых можно провести прямую
then Result := True
else
begin
Y3_V := (((Y3_V - Y1_V)*(X2_V - X1_V))/(Y2_V -Y1_V))+ X1_V;// из канонического уравнения прямой на плоскости о двух точках
if X3_V = Y3_V then
Result := true;
end;
end;
end;

[stas9In]

Вот я переделал, но тут другая ошибка возникла
program laba;
uses crt;
var
c,d,a,g,b,y,x,x1,x2,x3,y1,y2,y3:real;
function z(x1,x2,x3,y1,y2,y3:real):real;
var a,b,g:real;
begin
a:=x3-x1/x2-x1;
b:=y3-y1/y2-y1;
begin if (x2-x1=0) or (y2-y1=0)
then g:=1;
if g=1 then writeln('na nol nelzya delit'); exit;
else
if a=b then writeln('tochki na odnoi pryammoi');
if a<>b then
writeln('tochki ne odnoi pryaimoi');
end;
end;
begin
clrscr;
write('vvedite x1, y1'); readln(x1, y1);
write('vvedite x2, y2'); readln(x2, y2);
write('vvedite x3, y3'); readln(x3, y3);
writeln(z(x1,x2,x3,y1,y2,y3));
readln;
end.

[Flip]

Вот я переделал, но тут другая ошибка возникла
program laba;
uses crt;
var
c,d,a,g,b,y,x,x1,x2,x3,y1,y2,y3:real;
function z(x1,x2,x3,y1,y2,y3:real):real;
var a,b,g:real;
begin
a:=x3-x1/x2-x1;
b:=y3-y1/y2-y1;
begin if (x2-x1=0) or (y2-y1=0)
then g:=1;
if g=1 then writeln('na nol nelzya delit'); exit;
else
if a=b then writeln('tochki na odnoi pryammoi');
if a<>b then
writeln('tochki ne odnoi pryaimoi');
end;
end;
begin
clrscr;
write('vvedite x1, y1'); readln(x1, y1);
write('vvedite x2, y2'); readln(x2, y2);
write('vvedite x3, y3'); readln(x3, y3);
writeln(z(x1,x2,x3,y1,y2,y3));
readln;
end.

На пост выше я написал работаю функцию.
Насчёт этой по порядку:
Зачем вот эти глобальные переменные c,d,a,g,b, если в функции использованы локальные переменные с тем же именем.
Зачем функция типа риал? т.е для чег для значения которое по сути будет "либо" да либо "нет" вы используете тип с диапозоном - 3,40E + 38 — -1,18E - 38, 0 и 1,18E - 38 — 3,40E + 38.
далее вы сначала делаете расчёты. а потом только проверяете можнго делить на ноль или нет.
далее насчёт алгоритка, если проверять (x2-x1=0) or (y2-y1=0) то мы теряем вариант когда первые две точки лежат в одной точке, тогда относительно третьей вариант будет как раз такой что они лежат на одной прямой.
Насчёт ошибок:
if g=1 then writeln('na nol nelzya delit'); exit;
else
if a=b then writeln('tochki na odnoi pryammoi');
в данной конструкции всегда программа будет выходить, ибо exit в условие не входит, а в ходит в тело функции, поэтому минимум надо сделать так
if g=1 then begin
writeln('na nol nelzya delit');
exit;
end
else
if a=b then writeln('tochki na odnoi pryammoi');
Далее
end;
end;
один енд лишний.
далее вывод изображения на экран у вас реализован в самой функции, а тут
writeln(z(x1,x2,x3,y1,y2,y3));
вы пытаетесь вывести значение функции которых нет, т.е в самоей функции вы не присваиваете значений на выход не каких.
далее код очень грязный.
Мой совет возьмите функцию которую я написал, и приделайте к ней ввод/вывод, либо возьмите хороший учебник по паскал. и хотя бы прочитайте про функции, типы параметров.

[Akinfold]

Вот я переделал, но тут другая ошибка возникла
...

Главная ошибка здесь пожалуй -- это от, что вы вообще занялись программированием. Последуйте совету Flip'а, возьмите книжку по паскалю и прочтите хотябы половину.

[jyjey]

Главная ошибка здесь пожалуй -- это от, что вы вообще занялись программированием. Последуйте совету Flip'а, возьмите книжку по паскалю и прочтите хотябы половину.

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

[Flip]

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

Карли Ватсон
C#

[jyjey]

Карли Ватсон
C#

Интересует Делфи

[Flip]

Интересует Делфи

Если опять таки какой делфи и для чего?
Если для общего развития, то учи лучше тот делфи, по книге которую я дал.
Если для вуза то тут опять стоит вопрос какой делфи? Win32 или .NET?

[add deny ip from any to any]

все таки пожалуй делфи позапрошлый век ;(

[jyjey]

Если опять таки какой делфи и для чего?
Если для общего развития, то учи лучше тот делфи, по книге которую я дал.
Если для вуза то тут опять стоит вопрос какой делфи? Win32 или .NET?

делфи для вуза, первый курс.
win32

[dram4ik]

помогите пожалйста с написанием программы на паскале!!!
a. Матрица, в которой число строк n вдвое меньше числа столбцов, хранится в текстовом файле. Сохранить в этом файле матрицу порядка nn, удалив последние n столбцов.
б. В файле f записей хранится следующая информация о товарах, имеющихся на складе: наименование товара, цена единицы товара, общая стоимость и количество. В файле записей g хранится информация о заказах: наименование товара и его количество. Обновить файл f с учетом отпущенных товаров в соответствии с заказами из файла g. Если товар отпущен полностью, запись о нем из файла f удаляется


---------------24th November 2010 - 19:08-------------

помогите пожалйста с написанием программы на паскале!!!
a. Матрица, в которой число строк n вдвое меньше числа столбцов, хранится в текстовом файле. Сохранить в этом файле матрицу порядка nn, удалив последние n столбцов.
б. В файле f записей хранится следующая информация о товарах, имеющихся на складе: наименование товара, цена единицы товара, общая стоимость и количество. В файле записей g хранится информация о заказах: наименование товара и его количество. Обновить файл f с учетом отпущенных товаров в соответствии с заказами из файла g. Если товар отпущен полностью, запись о нем из файла f удаляется

13. a. Дан массив дробей, представленных записями. Определить наибольшую дробь. Использовать подпрограммы для ввода, вывода дроби и сравнения двух дробей.
б. Вывести буквы, которых нет в тексте, вводимом с клавиатуры. Признак конца ввода  точка.