Задачи на Pascal/Delphi (РЕШЕНИЕ)

[payk]

Var S:array[1..10] of integer;

a,b,c,i,n,f,g:integer;

begin

writeln('veedite interval');

readln(a,;

n:=b-a;

writeln('vvedite chisla v intervsle');

for i:=1 to n do begin

readln©;

S:=c;

end;

for i:=1 to n do begin

f:=S;

g:=g+f;

end;

g:=g/n; (вот тута ошибка, будьте добры, обьясните как правильно ))

writeln('srednee znachenie =',g);

readln;

end.

[TolkienDRR]

g:=g/n; (вот тута ошибка, будьте добры, обьясните как правильно ))

у тебя при делении g на n - получается число с плавающей запятой (real), а g описано как целое.

или округляй (round/trunc) или делай g типа real.

[Vanix]

Felon

2) Найти сумму s=1\2^0+1\2^1+1\2^2+1\2^7 найти сумму ряда и распечатать все члены ряда.

Может s=1/2^0+1/2^1+1/2^2+...+1/2^7 или s=(1/2)^0+(1/2)^1+(1/2)^2+...+(1/2)^7?

[TolkienDRR]

Vanix, ты написал один и тот же ряд

[payk]

TolkienDRR Спасибо )) как-то сразу недошло )))

[SpinFire]

1. y=sin^3(x^2+a)^2-sqrt(x/b)

z=((x^2)/a)+cos(x+^3

a=1.1; b=0.004; x=0.2

2. система: 1) y=sin x *lgx; x>3.5

2) y=cos^2 (x); x=<3.5

3. s=1-(((pi/6)^2)/2!)+(((pi/6)^4)/4!); точность выше 0,5*10^(-4)

4. F(10;10)

транспортировать матрицу и вывести на печать элементы главной диоганали, расположенной под главной. Результаты результаты в 2 строках;

заранее спасибо

[skyline1984]

1. Составить программу, которая по заданным году и номеру месяца (m) определяет количество дней в этом месяце.

я сделал по месяцу а как грёбанный вис. год не понял

[coder]

skyline1984

Год високосный, если он делится на четыре без остатка, но если он делится на 100 без остатка, это не високосный год. Однако, если он делится без остатка на 400, это високосный год.

Result := (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0));

[SaS]

up

Может закрепить тему.

А то каждый новую тему создаёт.

[dan+e]

Помогите плз, нужна прога на Pascal'е: "Вывод на экран числа в словесной форме"

[Inclodes]

%пустое_сообщени%

[Chip313]

if Listbox1.Items:=1 then

begin

WebBrowser1.Navigate(ExpandFileName('mini_igra.swf'));

пишет [Error] Unit1.pas(66): Incompatible types: 'TStrings' and 'Integer'

Помогите пожалуйста!

[payk]

Chip313

if Listbox1.Items:=1 then \\здесь двоеточие уберите

begin

WebBrowser1.Navigate(ExpandFileName('mini_igra.swf'));

[Chip313]

Спасибо! Уже разобрался... надо было Itemindex, а я блин...

[so1o]

1)В массиве целых чисел с количеством элементов n найти наиболее часто встречающееся число. Если таких чисел несколько, то определить наименьшее из них.

2)Дана квадратная матрица A(N,N). Записать на место отрицательных элементов матрицы - нули,а на место положительных - единицы. Вывести на печать треугольную матрицу в общепринятом виде.

3)Дана строка. Определить,сколько в ней символов *,;,:.

паскаль

[!=Вовк@=!]

Помгите пожалуйста с задачей!

Дана строка символов. Словом будет называть группу символов, раздельных пробелом(либо несколькими). Подсчитать кол-во слов в данной строке.

[payk]

!=Вовк@=!

n:=1;

for i:=1 to length(s) do

begin

if (s=' ')and(s[i+1]<>' ') then n:=n+1;

end;

n // кол-во слов.

s //строка

[!=Вовк@=!]

payk

Там че то типо токого надо если два пробело то один тчо бы программа удаляла?

[dan+e]

Помогите плз, нужна прога на Pascal'е: "Вывод на экран числа в словесной форме"

[payk]

payk

Там че то типо токого надо если два пробело то один тчо бы программа удаляла?

чё ? )))

[!=Вовк@=!]

Там надо что бы лишние пробелы удаляло, типо если там несколько пробелов то что бы она их удали и остался один!

А то если несколько пробелов то она их считает за слова. Помоги пжалуйста.

[payk]

!=Вовк@=!

там где я написал, всё норм должно считать! ! ! ты не пробовал ?

[!=Вовк@=!]

Не я пробовал!

Дай аську свою если есть там я тебе напишу чот да как!?

[olegbat]

"solo7777"

1)В массиве целых чисел с количеством элементов n найти наиболее часто встречающееся число. Если таких чисел несколько, то определить наименьшее из них.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

const n = 10;

type

TForm1 = class(TForm)

Button1: TButton;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

a: array [0..n-1] of integer;

b: array [0..1,0..n-1] of integer;

c: array [0..1] of integer;

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

var i,j: integer;

begin

a[0]:=7;

a[1]:=1;

a[2]:=4;

a[3]:=7;

a[4]:=7;

a[5]:=4;

a[6]:=3;

a[7]:=4;

a[8]:=3;

a[9]:=1;

for i:=0 to 1 do

for j:=0 to n-1 do

b[i,j]:=0;

end;

procedure TForm1.Button1Click(Sender: TObject);

var i,j1,j,k,l:integer;

bool: boolean;

begin

i:=0;

j:=-1;

for k:=0 to n-1 do begin

bool:=false;

for j1:=0 to j do begin

if b[0,j1]=a[k] then begin

bool:=true;

break;

end;

end;

if bool then

inc(b[1,j1])

else begin

inc(j);

b[0,j]:=a[k];

b[1,j]:=1;

end;

end;

bool:=true;

while bool do begin

for j1:=0 to j-1 do begin

bool:=false;

if b[1,j1]

c[0]:=b[0,j1];

c[1]:=b[1,j1];

b[0,j1]:=b[0,j1+1];

b[1,j1]:=b[1,j1+1];

b[0,j1+1]:=c[0];

b[1,j1+1]:=c[1];

bool:=true;

end;

end;

end;

bool:=true;

l:=b[1,0];

while bool do begin

for j1:=0 to j-1 do begin

bool:=false;

if b[1,j1+1]<>l then

break

else begin

if b[0,j1]>b[0,j1+1] then begin

bool:=true;

c[0]:=b[0,j1];

c[1]:=b[1,j1];

b[0,j1]:=b[0,j1+1];

b[1,j1]:=b[1,j1+1];

b[0,j1+1]:=c[0];

b[1,j1+1]:=c[1];

end;

end;

end;

end;

//Искомый результат = b[0,0]

end;

end.

2)Дана квадратная матрица A(N,N). Записать на место отрицательных элементов матрицы - нули,а на место положительных - единицы. Вывести на печать треугольную матрицу в общепринятом виде.

for i:=1 to N do begin

for j:=1 to N do begin

if A[i,j]>0 then

A[i,j]:=1

else

A[i,j]:=0;

end;

end;

[!=Вовк@=!]

Помогите пожалуйста с задачей на ТУрбо Паскале!

Тема такая "Программирование задач с использованием подпрограмм"

Вычислить z=(X(m1снизу)+Xm2)\2, где Xm1 и Xm2-наименьшие элементы массивов X1(m), X2(n)