payk Опубликовано 25 декабря, 2009 Жалоба Опубликовано 25 декабря, 2009 Var S:array[1..10] of integer;a,b,c,i,n,f,g:integer;beginwriteln('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 Опубликовано 25 декабря, 2009 Жалоба Опубликовано 25 декабря, 2009 g:=g/n; (вот тута ошибка, будьте добры, обьясните как правильно ))у тебя при делении g на n - получается число с плавающей запятой (real), а g описано как целое.или округляй (round/trunc) или делай g типа real. Цитата
Vanix Опубликовано 25 декабря, 2009 Жалоба Опубликовано 25 декабря, 2009 Felon2) Найти сумму 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 Опубликовано 25 декабря, 2009 Жалоба Опубликовано 25 декабря, 2009 Vanix, ты написал один и тот же ряд Цитата
payk Опубликовано 25 декабря, 2009 Жалоба Опубликовано 25 декабря, 2009 TolkienDRR Спасибо )) как-то сразу недошло ))) Цитата
SpinFire Опубликовано 28 декабря, 2009 Жалоба Опубликовано 28 декабря, 2009 1. y=sin^3(x^2+a)^2-sqrt(x/b) z=((x^2)/a)+cos(x+^3a=1.1; b=0.004; x=0.22. система: 1) y=sin x *lgx; x>3.5 2) y=cos^2 (x); x=<3.53. s=1-(((pi/6)^2)/2!)+(((pi/6)^4)/4!); точность выше 0,5*10^(-4)4. F(10;10)транспортировать матрицу и вывести на печать элементы главной диоганали, расположенной под главной. Результаты результаты в 2 строках;заранее спасибо Цитата
skyline1984 Опубликовано 28 декабря, 2009 Жалоба Опубликовано 28 декабря, 2009 1. Составить программу, которая по заданным году и номеру месяца (m) определяет количество дней в этом месяце.я сделал по месяцу а как грёбанный вис. год не понял Цитата
coder Опубликовано 28 декабря, 2009 Жалоба Опубликовано 28 декабря, 2009 skyline1984Год високосный, если он делится на четыре без остатка, но если он делится на 100 без остатка, это не високосный год. Однако, если он делится без остатка на 400, это високосный год.Result := (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0)); Цитата
SaS Опубликовано 5 мая, 2010 Жалоба Опубликовано 5 мая, 2010 upМожет закрепить тему.А то каждый новую тему создаёт. Цитата
dan+e Опубликовано 10 мая, 2010 Жалоба Опубликовано 10 мая, 2010 Помогите плз, нужна прога на Pascal'е: "Вывод на экран числа в словесной форме" Цитата
Chip313 Опубликовано 11 мая, 2010 Жалоба Опубликовано 11 мая, 2010 if Listbox1.Items:=1 thenbeginWebBrowser1.Navigate(ExpandFileName('mini_igra.swf'));пишет [Error] Unit1.pas(66): Incompatible types: 'TStrings' and 'Integer'Помогите пожалуйста! Цитата
payk Опубликовано 11 мая, 2010 Жалоба Опубликовано 11 мая, 2010 Chip313if Listbox1.Items:=1 then \\здесь двоеточие уберитеbeginWebBrowser1.Navigate(ExpandFileName('mini_igra.swf')); Цитата
Chip313 Опубликовано 11 мая, 2010 Жалоба Опубликовано 11 мая, 2010 Спасибо! Уже разобрался... надо было Itemindex, а я блин... Цитата
so1o Опубликовано 12 мая, 2010 Жалоба Опубликовано 12 мая, 2010 1)В массиве целых чисел с количеством элементов n найти наиболее часто встречающееся число. Если таких чисел несколько, то определить наименьшее из них.2)Дана квадратная матрица A(N,N). Записать на место отрицательных элементов матрицы - нули,а на место положительных - единицы. Вывести на печать треугольную матрицу в общепринятом виде.3)Дана строка. Определить,сколько в ней символов *,;,:.паскаль Цитата
!=Вовк@=! Опубликовано 12 мая, 2010 Жалоба Опубликовано 12 мая, 2010 Помгите пожалуйста с задачей! Дана строка символов. Словом будет называть группу символов, раздельных пробелом(либо несколькими). Подсчитать кол-во слов в данной строке. Цитата
payk Опубликовано 12 мая, 2010 Жалоба Опубликовано 12 мая, 2010 !=Вовк@=!n:=1;for i:=1 to length(s) do begin if (s=' ')and(s[i+1]<>' ') then n:=n+1; end;n // кол-во слов.s //строка Цитата
!=Вовк@=! Опубликовано 12 мая, 2010 Жалоба Опубликовано 12 мая, 2010 paykТам че то типо токого надо если два пробело то один тчо бы программа удаляла? Цитата
dan+e Опубликовано 12 мая, 2010 Жалоба Опубликовано 12 мая, 2010 Помогите плз, нужна прога на Pascal'е: "Вывод на экран числа в словесной форме" Цитата
payk Опубликовано 13 мая, 2010 Жалоба Опубликовано 13 мая, 2010 paykТам че то типо токого надо если два пробело то один тчо бы программа удаляла? чё ? ))) Цитата
!=Вовк@=! Опубликовано 13 мая, 2010 Жалоба Опубликовано 13 мая, 2010 Там надо что бы лишние пробелы удаляло, типо если там несколько пробелов то что бы она их удали и остался один!А то если несколько пробелов то она их считает за слова. Помоги пжалуйста. Цитата
payk Опубликовано 13 мая, 2010 Жалоба Опубликовано 13 мая, 2010 !=Вовк@=!там где я написал, всё норм должно считать! ! ! ты не пробовал ? Цитата
!=Вовк@=! Опубликовано 13 мая, 2010 Жалоба Опубликовано 13 мая, 2010 Не я пробовал!Дай аську свою если есть там я тебе напишу чот да как!? Цитата
olegbat Опубликовано 14 мая, 2010 Жалоба Опубликовано 14 мая, 2010 "solo7777"1)В массиве целых чисел с количеством элементов n найти наиболее часто встречающееся число. Если таких чисел несколько, то определить наименьшее из них.unit Unit1;interfaceuses 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; Цитата
!=Вовк@=! Опубликовано 25 мая, 2010 Жалоба Опубликовано 25 мая, 2010 Помогите пожалуйста с задачей на ТУрбо Паскале!Тема такая "Программирование задач с использованием подпрограмм"Вычислить z=(X(m1снизу)+Xm2)\2, где Xm1 и Xm2-наименьшие элементы массивов X1(m), X2(n) Цитата
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.