Перейти к содержимому




 

Свернуть блок чата Чат Открыть чат во всплывающем окне


Фотография

Программы на Pascale


  • Авторизуйтесь для ответа в теме
Сообщений в теме: 8

#1
Razor

Razor

    Дедушка админ

  • Пользователь написал
  • 875 сообщений
  • 4 благодарностей
Скачать TP можно по следующей ссылке: скачать

при публикации своего исходника, цитируйте задание для программы и все константы

Делитесь исходниками своих программ здесь! Будем рады помощи.
  • 2

#2
Razor

Razor

    Дедушка админ

  • Пользователь написал
  • 875 сообщений
  • 4 благодарностей
Найти Y и S при х=3,4 и а=-1,5

Изображение

Program N1; Uses  CRT; Var  y,s,a,x: Real;  Ch,Zn,Dp: Real;Begin		ClrScr;		Write('vvedite a=');		Readln (a);		Write('vvedite x=');		Readln (x);		Ch:=(0.0025E-03*cos(x)-a*x);		Zn:=(a*sqrt(abs(a*sin(x)+exp(x+2))));		y:=Ch/Zn;		Writeln('y=',y);		Readln;		Ch:=(2.3E4*exp(1/9*ln(exp(x)-a*sin(x))));		Zn:=a+sin(x);		Dp:=x/(1+a);		s:=(Ch/Zn)-Dp;		Writeln('s=',s);		Readln;End.

  • -1

#3
Razor

Razor

    Дедушка админ

  • Пользователь написал
  • 875 сообщений
  • 4 благодарностей
Найти Y при любых значениях с и х вводимых с клавиатуры

где Изображение

Program Lab2;Uses CRT;VAR x,y,c: Real;BeginClrScr;Write('vvedite znachenie c=');Readln(c );Write('vvedite znachenie x=');Readln(x);If x>=2 Then begin{1}  if (x*x)>c   then y:=c   else y:=((c*c)*cos(x)); end{1}        Else begin{2}  if x<c   then y:=(c-sin(x))   else y:=(c+sin(x)); end;{2}Write('y=',y);Readln;End.

  • -1

#4
Razor

Razor

    Дедушка админ

  • Пользователь написал
  • 875 сообщений
  • 4 благодарностей
Простейшая программа для школьников, Даны положительные числа a,b,c,d. Выяснить можно ли прямоугольник со сторонами a,b уместить внутри прямоугольника со сторонами c,d. Все значения вводятся с клавиатуры. Аналогично втречал про равнобедренный треугольник.

[codebox]Program Прямоугольник;
USES CRT;
Var a,b,c,d:Real;
BEGIN
ClrScr;
Write('a,b,c,d= ');
Readln(a,b,c,d);
If (a+b )>(c+d) Then Write('Уместить можно!')
else write('Уместить нельзя!');
Readln;
END.[/codebox]
  • -1

#5
Razor

Razor

    Дедушка админ

  • Пользователь написал
  • 875 сообщений
  • 4 благодарностей
Программа с реализацие массивов:

Вычислить Прикрепленный файл  3.jpg   4,66К   9 Количество загрузок: для x, изменяющегося в пределах от х1 до х2 с шагом dx. Сформировать массивы результатов из положительных и отрицательных значений Z (Z=0 исключить!). Определить среднее геометрическое результатов Z>Alpha

Program lab3;Uses CRT;Var x,G,Al,x1,x2,dx,Z:Real;    MasPol,MasOtr,MasAl:array[1..100] of real;    I,Imax,Io,Ip,IAl:Integer;    {Io-kolichestvo otrizatelnix chisel, Ip-//-polozitelnix,    IAl-chisla minshie Z}Begin    ClrScr;    IAl:=0; Io:=0; Ip:=0;    For I:=1 to 60 do     begin{ochistit'}      MasPol[I]:=0;      MasOtr[I]:=0;      MasAl[I]:=0;     end;{ochistit'}    Writeln('Al,x1,x2,dx=');{vvod constant}    Readln(Al,x1,x2,dx);    Imax:=round((x2-x1)/(dx));{opredelenie kolichestva shagov}  For I:=0 To (Imax) Do                       begin{1}                        x:=x1+dx*I;                        Z:=(0.3*sqr(Al)*sin(sqr(x)))-(2*ln(x-Al));           If Z<0 Then{esli otrizatelnii rez.=> formirui massiv iz otr chisel}                  begin                   Io:=Io+1;                   MasOtr[Io]:=Z;                  end;           If Z>0 Then{esli polozitelnii rez.=> formirui massiv iz pol chisel}                  begin                   Ip:=Ip+1;                   MasPol[Ip]:=Z;                  end;                       end;{1}           If Z>Al Then{vipolnenie zadania srednego geometricheskogo pri Z>Al}   begin    IAl:=IAl+1;    MasAl[IAl]:=Z;   end;  If IAL=0   Then    G:=0   Else    begin{2}     G:=1;{nachalnaya ystanovka}      For I:=1 To IAl Do       begin        G:=G*MasAl[I];{Raschet srednego geom-go rez. Z>Al}       end;     G:=exp(ln(G)/IAl);    end;{2}  Writeln('MasOtr chisel');  For I:=1 To Io Do Write(MasOtr[I]:6:2);  Writeln;  Writeln;  Writeln('MasPol chisel');  For I:=1 To Ip Do Write(MasPol[I]:6:2);  Writeln;  Writeln;  Writeln('Srednee geometricheskoe G=',G:6:2);  Readln;  End.

  • -1

#6
Sattana

Sattana

    Аd'skiJ Rap'eR

  • PipPip
  • Пользователь написал
  • 47 сообщений
  • 0 благодарностей
Прога чето типа калькулятора. Есть 4 варианта а+b+c, а-b-с, а*b*с, а/b/c. Вариант выбирает пользователь; а, b, c вводяться с клавы.
Program po_figy;
uses crt;
var S, a, b, c, m:real;
begin
   ClrScr;
   writeln ('для сложения нажмите 1, для вычитания -- 2, для умножения -- 3 и для деления -- 4. И введите 3 числа для выбраного вами действия');
   readln(m, a, b, c);
	 if m=1 then S:=a+b+c;
		if m=2 then S:=a-b-c;
		   if m=3 then S:=a*b*c;
			  if m=4 then S:=a/b/c;
				 if (m<>1) and (m<>2) and (m<>3) and (m<>4)
				 then
				 writeln('!!eror!!');
	 writeln('S=',S);
	 readln;
end.

  • -1

#7
Sattana

Sattana

    Аd'skiJ Rap'eR

  • PipPip
  • Пользователь написал
  • 47 сообщений
  • 0 благодарностей
Даны три матрицы ([n], [m], [h]) найти и вывести наибольшее среднее арифмитическое
Program new_zadanie;
uses crt;
const n=5; m=6; h=4;
type ma=array [1..m];
var
i,g:integer;
sn,sm,sh:real;
a:ma;
Procedura resh(k:integer; var s:real);
begin
writeln('Введите массив из ',k,' чисел');
for i:=1 to k do
read(a[i]);
g:=0;
for i:=1 to k do
g:=g+a[i];
s:=g/k
end;
begin
clrscr;
resh(n,sn);
resh(m,sm);
resh(h,sh);
if (sn>sm) and (sn>sh) then
write(sn:6:2);
if (sm>sn) and (sm>sh) then
write(sm:6:2);
if (sh>sm) and (sh>sn) then
write(sh:6:2);
readln
end.
{З.Ы. Rаzor, я заметил мы тока вдвоем умеем прогить на паскале, так что прошу протестируй мою прогу и отпишись у мя паскаль полетел}
  • 0

#8
Argentum

Argentum

    Участник

  • Pip
  • Пользователь написал
  • 17 сообщений
  • 0 благодарностей
Вот программа для сортировки матриц. Констаны вначале обозначают: st-количество столбцов, sr-количество строк, col-количество елементов.
program matrix;
 const
  st=6;
  sr=6;
  col=36;
 var
  i,j,l:integer;
  m,n:integer;
  B:array[1..col] of integer;
  A:array[1..st,1..sr] of integer;
begin
 write('Ââåäèòå ìàòðèöó:');
 for m:=1 to st do
 for n:=1 to sr do
  read(A[n,m]);
 writeln('Ââåä¸ííàÿ ìàòðèöà:');
 l:=1; 
 for n:=1 to st do
 for m:=1 to sr do
  begin
   write(A[m,n],' ');
   if l=st then
	begin 
	 writeln;
	 l:=1;
	end
   else l:=l+1; 
  end; 
 l:=1; 
 for n:=1 to st do
 for m:=1 to sr do
   begin
	B[l]:=A[m,n];
	l:=l+1;
   end;  
 for j:=1 to col-1 do 
 for i:=1 to col-j do
  if B[i]< B[i+1] then else 
   begin
	B[i]:=B[i]+B[i+1];
	B[i+1]:=B[i]-B[i+1];
	B[i]:=B[i]-B[i+1];
   end;
 l:=1;	
 for i:=1 to st do
 for j:=1 to sr do
  begin
   A[i,j]:=B[l]; 
   l:=l+1;
  end;  
 writeln('Îáðàáîòàíàÿ ìàòðèöà:');
 l:=1; 
 for n:=1 to st do
 for m:=1 to sr do
  begin
   write(A[n,m],' ');
   if l=st then
	begin 
	 writeln;
	 l:=1;
	end
   else l:=l+1; 
  end; 
end.

  • 2

#9
aparkastore

aparkastore

    Участник

  • Pip
  • Пользователь написал
  • 20 сообщений
  • 0 благодарностей
UggsUgg bootsUgg chinelosUgg chinelosUggsUgg boots Ugg boots outlet Online, uggshoes.me language: gericon.gifDeutsch fricon.gif iticon.gifitaliano esicon.gifEspañol pticon.gifPortuguês jpicon.gif日本語 ruicon.gifrussian aricon.gifarabic noicon.gifnorwegian svicon.gifswedish daicon.gifdanish nlicon.gifNederlands fiicon.giffinland gaicon.gifireland icon.gifEnglish Welcome! Assinar em ou Register spacer.gifSeu carrinho está vazio logo.gifDesenvolvido por Zen Cart :: A arte do E-Commerce A CASA Women ugg boots Homens ugg boots Ugg crianças Moedas US Dollar Euro GB Pound Canadian Dollar Australian Dollar Jappen Yen Norske Krone Swedish Krone Danish Krone CNY Categorias Casa Casa There are no products to list in this category. A CASA frete por atacado ordem rastreamento cupons métodos de pagamento entre em contato conosco botas UGG novas UGG botas MENS UGG botas mulheres UGG botas crianças desconto UGG botas botas UGG barato Copyright © 2012-2013 todos os direitos reservados. Ugg sale Ugg Australia Australia blog Australia About uggshoes.me blog
Mens timberland boots | Mens timberland boots | TIMBERLAND outletMens timberland boots | Mens timberland boots | TIMBERLAND outletTIMBERLAND outletMens timberland boots boots blog boots About blog
Mens timberland boots | Mens timberland boots[Mens timberland boots | Mens timberland boots | TIMBERLAND outlet
TIMBERLAND outlet
Mens timberland boots

TimberlandTimberland botas para HomensTimberland botasTimberland botas Timberland Timberland botas para Homens Sapatos Timberland homens do barco 2- Eye Claret Branco - $124.00 : Tomada de Timberland , timberlandwomen.top US Dollar Euro GB Pound Canadian Dollar Australian Dollar Jappen Yen Norske Krone Swedish Krone Danish Krone CNY Categorias Botas Timberland Mens Botas Homens Timberland 6 Inch Botas Homens Timberland Euro pedestrianismo Botas Timberland Homens de barco Botas Timberland Homens Nellie Chukka Homens Timberland Guardiões Homens Timberland rolo Top Botas Homens Timberland Sapatos praia Botas Timberland das mulheres Destaques - [mais] Timberland-Men-Roll-Top-Boots-Black-WithTimberland Homens rolo Top Botas Preto Com LãTimberland Homens rolo Top Botas Preto Com Lã$167.00 $133.00 Poupe: 20% menos Timberland-Men-6-Inch-Boots-Black-YellowTimberland Homens 6 Inch Botas Preto AmareloTimberland Homens 6 Inch Botas Preto Amarelo$148.00 $133.00 Poupe: 10% menos Timberland-Men-Roll-Top-Boots-Whole-WheaTimberland Homens rolo Top Botas Trigo IntegralTimberland Homens rolo Top Botas Trigo Integral$211.00 $133.00 Poupe: 37% menos Casa :: Botas Timberland Mens :: Botas Timberland Homens de barco :: Sapatos Timberland homens do barco 2- Eye Claret Branco .jqzoom{ float:left; position:relative; padding:0px; cursor:pointer; width:301px; height:300px; } Timberland-Men-2-Eye-Boat-Shoes-Claret-WSapatos Timberland homens do barco 2- Eye Claret Branco Sapatos Timberland homens do barco 2- Eye Claret Branco $181.00 $124.00 Poupe: 31% menos Seleccione: Size Select Size US10, UK9.5, EU44 US11, UK10.5, EU45 US12, UK11.5, EU46 US7, UK6.5, EU40 US7.5, UK7, EU41 US8.5, UK8, EU42 US9, UK8.5, EU43 Adicionar ao Carrinho de Compras: visamastercard.jpg Perfeito para os indivíduos que se orgulham de seu estilo casual, nosso discreto Timberland 2- Eye Boat Claret Branco apresenta couro premium e solas siped canalizar longe de água e adicionar tração enquanto você está no convés. Um sapato de tempo quente perfeito, o brigue está pronto para acompanhá-lo em suas aventuras , seja náutico ou em terra seca. Importado . Detalhes : * Haste de nylon para sustentação de arco * OrthoLite ? palmilha proporciona amortecimento durante todo o dia e apoio * Forro de malha e cobertura palmilha para maior conforto e controle climático * Full- grão e nubuck couro premium superior para o conforto, durabilidade e desgaste de longa duração * Sola de borracha siped canais de distância de água para máxima tração e durabilidade * Leve flexível, não-marcação sola de borracha para maior durabilidade e tração é feita com 5% de borracha reciclada Timberland-Men-2-Eye-Boat-Shoes-Claret-W/timberland_03/Mens-Timberland/Men-Timberland-Boat/Timberland-Men-2-Eye-Boat-Shoes-Claret-White.jpg Related Products Timberland-Men-2-Eye-Boat-Shoes-Nubuck-WSapatos Timberland homens do barco 2- Eye Nubuck Branco Timberland-Men-Boat-Shoes-Whole-Wheat.jpSapatos Timberland Homens barco Trigo IntegralSapatos Timberland Homens barco Trigo Integral Timberland-Men-2-Eye-Boat-Shoes-Claret-WSapatos Timberland homens do barco 2- Eye Claret Branco Timberland-Men-Boat-Shoes-Brown-Black.jpSapatos Timberland Homens barco Brown BlackSapatos Timberland Homens barco Brown Black button_write_review.gifEscrever Comentário Casa Remessa Atacado Rastrear Pedido cupons Métodos de Pagamento Entre Em Contato Conosco NEW TIMBERLAND MENS TIMBERLAND MULHERES TIMBERLAND KIDS TIMBERLAND TIMBERLAND DESCONTO TIMBERLAND BARATO © Copyright 2012 Todos os direitos reservados. Timberland mens shoes Timberland Mulheres Venda blog Venda About timberlandwomen.top blog
[b]Timberland
[b][url=h
Timberland
Timberland botas para HomensTimberland botas







Timberland botas para Homens | Timberland | Timberland botas para Homens
Homens Timberland Botas saída venda 2014US DollarEuroGB PoundCanadian DollarAustralian DollarJappen YenNorske KroneSwedish KroneDanish KroneCNY
[b][url=http://www.timberlandwomen.top/pt/]TimberlTimberland mens shoes
Timberland Mulheres

  • 0