Помощ ! Блок схема и програма на Паскал

[john41]

Блог Схема-Пресмятане на произведението 1х22,1х33 на 2, до н-та х н2-та Ето я и моята ,Който може да помогне ..)

[iliqnaaaaaaaa]

Да се състави блок-схема и програма на Паскал за изчисляване на периметър и лице на квадрат по зададена страна и се провери дали страната е положително число.Благодаря предварително !

[toshko45]

МОЛЯ ПОМОГНЕТЕ МИ !!!! Дадени са три числа. Да се пресметне и изведе колко са положителните числа и колко са отрицателните такива. ???? ПИШЕТЕ МИ АКО ИСКАТЕ В СКУПЕ toshko45

[r1odayftw]

Да се състави блок-схема и програмата на Паскал за функцията-y=max{x1,x2}като на y се зададе по голямото от двете числа
Помогнете плс ...

[Chacho]

Айде е ти: http://prikachi.com/images/230/4936230T.jpg

Там дето е y:=2 e y:=x2, ма се обърках. Много гадно се пише на комп.

[totkoto93]

Може ли някой да ми помогне?Благодаря Ви предварително.
Да се състави програман на Паскал за нуждите на списание за запознанства,която поддържа следната информация за своите клиенти:
-име;
-ЕГН;
-номер на домашен телефон;
-списък с интереси
и извършва следните операции:
-създава файл с данните на клиенти;
-добавя нови клиенти и изтрива отпаднали;
-извежда двойките М-Ж,котио имат общи интереси и тел.номера,започващи с 62;
-създава текстов файл с имената и номерата на дом.телефони на мъжете,по-възрастни от 30 години

[СНЗ]

Здравейте! Моля за помощ по курсова работа.Благодаря предварително.

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

[manixa]

Можете ли да ми направите блок схема на тази програма моля ви

program asd;
    uses Crt;
const
   broi_studenti = 2;

var
   I,J : Integer;
   Ime : Array[1..broi_studenti] of String;
   EGN : Array[1..broi_studenti] of String[10];
   Fno : Array[1..broi_studenti] of String[6];
   O : Array[1..broi_studenti,1..10] of Integer;
   Sr : Array[1..broi_studenti] of real;
   

procedure Pisane_na_fail;
     var _file: Text;
     begin
          Assign(_file,'C:\Studenti.txt');
          Rewrite(_file);
          for i:= 1 to broi_studenti do
              begin
              Writeln(_file,Ime[i]);
              Writeln(_file,EGN[i]);
              Writeln(_file,Fno[i]);
              for j:= 1 to 10 do
                  begin
                  Writeln(_file,O[i,j]);
                  end;
              end;
              Close(_file);
     end;

function Sreden_uspeh : real;
     begin
        for i:= 1 to broi_studenti do
            begin
            Sr[i]:=0;
            for j:= 1 to 10 do
                begin
                Sr[i]:= Sr[i] + O[i,j]
                end;
            Sr[i]:= Sr[i] / 10;
            writeln('Среден успех на ',Ime[i],' å ',Sr[i]:4:2);
            end;
     writeln('');
     end;

procedure fno_sr_april;
     begin
     for i:=1 to broi_studenti do
         begin
         if (copy(EGN[i],3,2)='04') then writeln(Fno[i],', ',Sr[i]:4:2);
         end;
     writeln('');
     end;
     
begin

for i:= 1 to broi_studenti do
    begin
    Write('Име на студент ',i,': ');readln(Ime[i]);
    Write('ЕГН на ',Ime[i],': ');readln(EGN[i]);
    Write('Факултетен номер на ',Ime[i],': ');readln(Fno[i]);
    for j:= 1 to 10 do
        begin
           Write('Оценка по предмет ',j,' на ',Ime[i],': ');readln(O[i,j]);
        end;
    end;
    
    writeln('');
    
    Pisane_na_fail;
    Sreden_uspeh;
    fno_sr_april;
end.

[etna]

Моля за малко помощ.Имам задача да направя програма на Паскал, в която се въвежда стойност на x и y по координатната ос за уравнението y=ax+b. И след това се извежда линията отговаряща на тези стойности. Много ви благодаря предварително.

[Викиту]

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

[bobi16]

Здравейте много ми трябва програма на паскал за квадратно уравнение за D>0 , D<0 , D=0 и от там x1 и x2 да се изведат много моля да помогнете защото ми трябва спешно , а нещо на мен не ми се получава.Мерси много предварително

[georgipopov]

Моля за помощ спешно ми трябват 3 задачи по информатика за понеделник! Те са:
-Намиране координатите на средата на отсечка.
-Намиране на числа в интервала [a, b], които удовлетворяват зададено свойство.
-Алгоритъм на Евклид (намиране на НОД на две естествени числа)
Благодаря предварително..... много моля за понеделник

[Valeriq777]

"Да се състави СОА,ГОА и програма на Паскал за решаване на линейно уравнение". Моля, ако някой може да го направи, да ми помогне. Спешно е!!!

[Еlmо]

Елмо иска да му се отблагодариш в натура.


PROGRAM Simq1;

USES WinCrt; { Crt for non-windows version}

CONST
Rmax = 3; Cmax = 3;

TYPE
Arys = ARRAY[1..Cmax] OF Real;
Ary2s = ARRAY[1..Rmax, 1..Cmax] OF Real;

VAR
Y, Coef: Arys;
A: Ary2s;
N: Integer;
YesNo: Char;
Error: Boolean;

PROCEDURE Get_Data(VAR A: Ary2s;
VAR Y: Arys;
VAR N: Integer);
{ Get values for N and arrays A, Y }

VAR
I, J: Integer;

BEGIN { procedure Get_Data }
WriteLn;
N := Rmax;
FOR I := 1 TO N DO
BEGIN
WriteLn(' Equation ', I:3);
FOR J := 1 TO N DO
BEGIN
Write(J:3, ': ');
Read(A[I,J])
END;
Write(', C: ');
ReadLn(Y[I])
END;
WriteLn;
FOR I:= 1 TO N DO
BEGIN
FOR J:= 1 TO N DO
Write(A[I,J]:7:4, ' ');
WriteLn(' : ', Y[I]:7:4)
END;
WriteLn
END; { procedure Get_Data }

PROCEDURE Write_Data;
{ print out the answers }

VAR
I: Integer;

BEGIN { Write_Data }
FOR I := 1 TO N DO
Write(Coef[I]:9:5);
WriteLn
END; { Write_Data }

PROCEDURE Solve(A: Ary2s;
Y: Arys;
VAR Coef: Arys;
N: Integer;
VAR Error: Boolean);
VAR
B: Ary2s;
Det: Real;
I, J: Integer;

FUNCTION Deter(A: Ary2s): Real;
{ the determinant of a 3-by-3 matrix }

VAR
Sum: Real;

BEGIN { function Deter }
Sum := A[1,1]*(A[2,2]*A[3,3]- A[3,2]*A[2,3])
- A[1,2]*(A[2,1]*A[3,3]- A[3,1]*A[2,3])
+ A[1,3]*(A[2,1]*A[3,2]- A[3,1]*A[2,2]);
Deter := Sum
END; { function Deter }

PROCEDURE Setup(VAR B: Ary2s;
VAR Coef: Arys;
J: Integer);
VAR
I: Integer;

BEGIN { Setup }
FOR I := 1 TO N DO
BEGIN
B[I,J] := Y[I];
IF J > 1 THEN B[I,J-1] := A[I,J-1]
END;
Coef[J] := Deter(B) / Det
END; { Setup }

BEGIN { procedure solve }
Error := False;
FOR I := 1 TO N DO
FOR J := 1 TO N DO
B[I,J] := A[I,J];
Det := Deter(B);
IF Det = 0.0 THEN
BEGIN
Error := True;
WriteLn(' ERROR: matrix singular')
END
ELSE
BEGIN
Setup(B, Coef, 1);
Setup(B, Coef, 2);
Setup(B, Coef, 3)
END { ELSE }
END; { procedure solve }

BEGIN { main program }
WriteLn;
WriteLn
(' Simultaneous solution by Cramer-s rule');
REPEAT
Get_Data(A, Y, N);
Solve(A, Y, Coef, N, Error);
IF NOT Error THEN Write_Data;
WriteLn; Write(' More? ');
ReadLn(YesNo)
UNTIL (UpCase(YesNo) <> 'Y');
DoneWinCrt { for Windows version only }
END.

[Dwyd96]

Елмо трябва да си провери кода... ГлупаГ

[divodo]

1вата задача е: Да се състави програма на Паскал, която отпечатва 10 реда от триъгълника на Паскал
2рата е: Програма, която отпечатва пермутациите на цифрите 1 2 3 4

[mirolyuba]

програма на паскал, която намира лице и периметър на трапец по зададена страна и височина HELP!!!

[Милко]

Здравейте. Много ще ви бъда благодарен, ако ми помогнете с една задача в Паскал. Ето и задачата:
Създайте комерсиална програма, с която да се изчисляват периметрите на равностранен триъгълник, квадрат и кръг, както и лицата на квадрата и кръга. Също така ми е дадено, че диаметъра на кръга е равен на страната на квадрата и на триъгълника.