- Форум
- По малко от всичко
- Тийн Учител - есета, теми, съчинения...
- Помощ ! Блок схема и програма на Паскал
Блог Схема-Пресмятане на произведението 1х22,1х33 на 2, до н-та х н2-та Ето я и моята ,Който може да помогне ..)
Да се състави блок-схема и програма на Паскал за изчисляване на периметър и лице на квадрат по зададена страна и се провери дали страната е положително число.Благодаря предварително !
МОЛЯ ПОМОГНЕТЕ МИ !!!! Дадени са три числа. Да се пресметне и изведе колко са положителните числа и колко са отрицателните такива. ???? ПИШЕТЕ МИ АКО ИСКАТЕ В СКУПЕ toshko45
Да се състави блок-схема и програмата на Паскал за функцията-y=max{x1,x2}като на y се зададе по голямото от двете числа
Помогнете плс ...
Айде е ти: http://prikachi.com/images/230/4936230T.jpg
Там дето е y:=2 e y:=x2, ма се обърках. Много гадно се пише на комп.
Има 10 вида хора. Тези, които могат да четат двоичен код и тези, които не могат.
Може ли някой да ми помогне?Благодаря Ви предварително.
Да се състави програман на Паскал за нуждите на списание за запознанства,която поддържа следната информация за своите клиенти:
-име;
-ЕГН;
-номер на домашен телефон;
-списък с интереси
и извършва следните операции:
-създава файл с данните на клиенти;
-добавя нови клиенти и изтрива отпаднали;
-извежда двойките М-Ж,котио имат общи интереси и тел.номера,започващи с 62;
-създава текстов файл с имената и номерата на дом.телефони на мъжете,по-възрастни от 30 години
Здравейте! Моля за помощ по курсова работа.Благодаря предварително.
Ето и условието :
Да се състави блок-схема и програма за Паскал за въвеждане на N цели числа , най - малкото от тях да се замени със средноаритметичното им , а най-голямото с произведението им.
Можете ли да ми направите блок схема на тази програма моля ви
Код: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.
Моля за малко помощ.Имам задача да направя програма на Паскал, в която се въвежда стойност на x и y по координатната ос за уравнението y=ax+b. И след това се извежда линията отговаряща на тези стойности. Много ви благодаря предварително.
Имам нужда от помощ,благодаря предварително .Имам да съставя блок схема и програма на Паскал,която по зададен радиус изчислява дължина на окръжност и лице на кръг.Ще съм много благодарна,мерси
Здравейте много ми трябва програма на паскал за квадратно уравнение за D>0 , D<0 , D=0 и от там x1 и x2 да се изведат много моля да помогнете защото ми трябва спешно , а нещо на мен не ми се получава.Мерси много предварително
Моля за помощ спешно ми трябват 3 задачи по информатика за понеделник! Те са:
-Намиране координатите на средата на отсечка.
-Намиране на числа в интервала [a, b], които удовлетворяват зададено свойство.
-Алгоритъм на Евклид (намиране на НОД на две естествени числа)
Благодаря предварително..... много моля за понеделник
"Да се състави СОА,ГОА и програма на Паскал за решаване на линейно уравнение". Моля, ако някой може да го направи, да ми помогне. Спешно е!!!
Елмо иска да му се отблагодариш в натура.
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.
Последно редактирано от Еlmо : 06-16-2016 на 06:49
1вата задача е: Да се състави програма на Паскал, която отпечатва 10 реда от триъгълника на Паскал
2рата е: Програма, която отпечатва пермутациите на цифрите 1 2 3 4
програма на паскал, която намира лице и периметър на трапец по зададена страна и височина HELP!!!
Здравейте. Много ще ви бъда благодарен, ако ми помогнете с една задача в Паскал. Ето и задачата:
Създайте комерсиална програма, с която да се изчисляват периметрите на равностранен триъгълник, квадрат и кръг, както и лицата на квадрата и кръга. Също така ми е дадено, че диаметъра на кръга е равен на страната на квадрата и на триъгълника.