Имам Курсова задача и се нуждая от помощ! Не съм наясно със съставянето на сложни задачи в Паскал и се надявам някой да може да ми помогне. Задачата ми е да се състави програма, която по пространствените координати на три точки намира тангенсите на половинките на ъглите на триъгълника, които тези три точки организират....Очевидно никой никога не е решавал такава задача, тъй като не можах да намеря нищо подобно дори...

Имам Курсова задача и се нуждая от помощ! Не съм наясно със съставянето на сложни задачи в Паскал и се надявам някой да може да ми помогне. Задачата ми е да се състави програма, която по пространствените координати на три точки намира тангенсите на половинките на ъглите на триъгълника, които тези три точки организират....Очевидно никой никога не е решавал такава задача, тъй като не можах да намеря нищо подобно дори...

Пиши на Skype: plamko80

Здравейте,нищо не разбирам от Паскал,а наистина ми е спешно решението на тази задача,която на вас може би ще се стори много глупава,но да мен ме затруднява :

 

Зад.1 : Да се състави програма на Паскал,при която се въвеждат  реални числа 'x' и 'y'.Извежда се техния сбор,разлика и произведение.

 

Благодаря Ви предварително

Здравейте,

 

Имам курсова работа по програмиране със следното условие:

 

За произволно естествено число N и реалните стойности на А1,....Аn, да се състави блок - схема и програма на Pascal за изчисляване на

 

sin / A1+A2+A3+....+An /

 

Помагайте...., че нищо не разбирам.

 

Предварително Благодаря!

Здравейте имам кyрсова задача с която не мога да се справя и съм принyден да помоля за помощ

Задачата е следната
"Да се създаде програма,която: Позволява въвеждане на N (цяло число).
Програмата намира и извежда:
сyмата на числата от 1 до N,които са нечетни и се деля на 9 "


Предварително благодаря ! 

Здравейте имам кyрсова задача с която не мога да се справя и съм принyден да помоля за помощ

Задачата е следната

"Да се създаде програма,която: Позволява въвеждане на N (цяло число).

Програмата намира и извежда:

сyмата на числата от 1 до N,които са нечетни и се деля на 9 "

Предварително благодаря ! 

Започнете с писането, ние ще помагаме. Но така наготово няма да стане!

Започнете с писането, ние ще помагаме. Но така наготово няма да стане!

Извинявам се малко е нахално да  

Ето до каде съм стигнал 

var

n,s,i:integer;

begin

N:=strtoint(Edit1.text);

s:=0;

for i:=1 to n do

    if (i mod 2 =1) and (i mod 9 = 0) then s:=s+i;

Edit2.text:=inttostr(s);

end;

Извинявам се малко е нахално да  

Ето до каде съм стигнал 

var

n,s,i:integer;

begin

N:=strtoint(Edit1.text);

s:=0;

for i:=1 to n do

    if (i mod 2 =1) and (i mod 9 = 0) then s:=s+i;

Edit2.text:=inttostr(s);

end;

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

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

Да,прав сте.Обаче закъсах до тyк малко помощ занапред?

Моля ви.. имам зададена курсова задача,но доста се затрудних при направата и.

Та задачата е такава :

Даден е двумерен масив А с m реда и n стълба.Да се състави програма,която създава нов масив b1,b2...bm като стойността на bi е равна на броя на ненулевите елементи в i-тия ред.

 

По принцип трябва да направя и блок-схема на програмата,но ако не ви се занимава ще се опитам аз.

Редактирано 9 ноември 201411 г. от encorebg (преглед на промените)

Надявам се да не е нахално да ви моля за помощ, но е спешно.

С един приятел трябва да направим задача на паскал която е следната:

Да се състави програма на паскал която въвежда от клавиатурата N на брой числа от подходящ тип. Програмата да намери и изведе произведението на нечетните числа.

Благодаря предварително

Да се направи програма която има за вход дължините на страните на триъгълника.Изход лице и периметър,медиани и ъглополовищи към трите страни. Предлагам заплащане програмата трябва да се направи на Lazarus.

Здравейте . Може ли някой да ми помогне с една програма , която трябва да се напише на Паскал. Условието е следното : Да се състави програма която въвежда от клавиетурата цяло число n  и след него  n на брой цели числа . Програмата да проверява има ли между тях последователно равни числа и да извежда съобщение  yes   или  no .? 

Здравейте . Може ли някой да ми помогне с една програма , която трябва да се напише на Паскал. Условието е следното : Да се състави програма която въвежда от клавиетурата цяло число n  и след него  n на брой цели числа . Програмата да проверява има ли между тях последователно равни числа и да извежда съобщение  yes   или  no .? 

 

Не знам Паскал. Ще я напиша на С. Ползвай я за алгоритъм.

#include <stdio.h>

int main()
{
	int l = 0;
	int k;
	int n;
	int i;
        printf("input n = ");
	scanf("%u", &n);
	for(i = 1; i <= n; i++)
	{	
	        printf("\n\n%u. Input a non zero whole number = ", i);
		scanf("%u", &k);
		if (l ==k)
		{
			printf("\n\nYES !!!\n\n");
			return 0;
		}
		l = k;
        }
	printf("\n\nNO !!!\n\n");
	return 0;
}

Редактирано 8 юни 201511 г. от Реджеп Иведик (преглед на промените)

Не знам Паскал. Ще я напиша на С. Ползвай я за алгоритъм.

Нулата е цяло число. Защо си я изключил от възможния вход?

Програмата по условие трябва да печата за всяко въведено дали съвпада с предното. А ти печаташ дали съществува поне едно съвпадение. Всъщност е малко неясно, но е казано да въведеш всичките n числа

Редактирано 8 юни 201511 г. от flare (преглед на промените)

Нулата е цяло число. Защо си я изключил от възможния вход?

Програмата по условие трябва да печата за всяко въведено дали съвпада с предното. А ти печаташ дали съществува поне едно съвпадение.

 

Не си прав. В условието пише буквално, "ако има последователни числа, които да са равни, да изведе YES, в противен случай да изведе NO".

 

След като има две последователни равни числа, значи така или иначе трябва да се изведе YES и програмата няма смисъл да продължава.

 

Иначе, ако приемем, че ти си прав, то тогава трябва за да има равнопоставеност при тълкуване на условието, след абсолютно всяко въвеждане да извежда или YES или NO. Тъй като всеки две числа или са равни или не са.

Редактирано 8 юни 201511 г. от Реджеп Иведик (преглед на промените)

Иначе, ако приемем, че ти си прав, то тогава трябва за да има равнопоставеност при тълкуване на условието, след абсолютно всяко въвеждане да извежда или YES или NO. Тъй като всеки две числа или са равни или не са.

Е точно така го разбирам аз.

А нулата?

Ето, ако ти си прав и трябва постоянно да извежда YES или NO

 

И нулата ако приемем, че е също цяло число, както твърдиш.

#include <stdio.h>

int main()
{
	int l;
	int k;
	int n;
	int i;
        printf("input n = ");
	scanf("%u", &n);
	for(i = 1; i <= n; i++)
	{	
	        printf("\n\n%u. Input a whole number = ", i);
		scanf("%u", &k);
		if (i == 1)
		{
			l = k;
			continue;
		}
		if (l == k)
		{
			printf("\n\nYES !!!\n\n");
			
		}
		else printf("\n\nNO !!!\n\n");
		l = k;
        }
	
	return 0;
}

Редактирано 8 юни 201511 г. от Реджеп Иведик (преглед на промените)

Здравейте имам кyрсова задача с която съм затруднен неможах да започна трябва ми малко помощ да се подсещам

Задачата е следната
" Дадени са двата едномерни масива A и B. Да се състави програма, която преработва масивите така, че най-малката стойност в масива A да мине на първа позиция, а най-голямата стойност в масива B да мине на последна позиция."

Предварително благодаря !

Редактирано 23 ноември 201510 г. от Бюрхан (преглед на промените)

Здравейте, имам задача да съставя програма на Паскал, но не мога . Надявам се да ми помогнете! Благодаря предварително.

Задачата

Дадени са двата едномерни масива А и В. Да се състави програма, която определя, масива с повече нечетни числа.

http://upload.wikimedia.org/wikipedia/ru/1/14/Opyat_dvoyka.jpg

Цитат

Едно цяло число се нарича автоморфно ако се съдържа в края на своя квадрат (25 на 2 = 625). Да се намерят първите 20 автоморфни числа.

Защо пък да са само първите 20, като може да са първите 30, 50 или пък 100

Program Avtomorphic;
Var A, B, R  : Array of Byte;
    N, Z, Br : integer;

function CheckA : Boolean;
var i, j, c :integer;
begin
   for i:=0 to Z do
      R[i]:=0;
   for i:=0 to Z do
   begin
      c:=0;
      for j:=0 to Z-i do
      begin
         c:=c+A[i]*A[j]+R[i+j];
         R[i+j]:=c mod 10;
         c:=c div 10;
      end;
   end;
   for i:=Z downto 0 do
      if A[i]<>R[i] then exit(false);
   CheckA := true;
end;

function makeB : boolean;
begin
   if Z=0 then B[Z]:=6
   else B[Z]:=9-A[Z];
   makeB:=B[Z]>0;
end;

procedure print(t : array of byte);
var i : integer;
begin
   inc(Br);
   Write(Br:3,'. ');
   for i:=Z downto 0 do
      Write(char(t[i]+48));
   Writeln(' .',Z+1);
end;

begin
   Write('N = ');
   Readln(N);
   if N<1 then Halt(1);

   Z:=3*N div 5 + 1;
   SetLength(A,Z);
   SetLength(B,Z);
   SetLength(R,Z);

   Z:=0;
   Br:=0;
   A[0]:=1;
   print(A);
   A[0]:=5;
   while Br<N do
   begin
      if checkA then
      begin
         if makeB then
         begin
            if A[Z]<B[Z] then
            begin
               print(A);
               if Br<N then print(B);
            end else begin
               print(B);
               if Br<N then print(A);
            end;
         end else print(A);
         inc(Z);
         A[Z]:=0;
      end;
      inc(A[Z]);
      if A[Z]=10 then
      begin
         B[Z]:=9;
         print(B);
         A[Z]:=0;
         inc(Z);
         A[Z]:=1;
      end;
   end;
end.

 

Редактирано 29 януари 201610 г. от ined (преглед на промените)

Да се състави главна програма за обработка на три масива P(10x12) Q(14x16)  и R(15,19) данните са числа в интервала [-0-999]. Съответните подпрограми да извършват следните обработки:

-извеждане на условието на задачата и името на автора

-въвеждане на входните данни

-извеждане на входните данни

-да се намери средноаритметичната стойност на елементите, разположени между макс и мин елементи по редове. Да се изведат стойностите на индексите на мин и макс е-нти

-Резултатите да се изведат на екрана.

 

Моля помагайте!