|
Читаю-читаю и только задачи с матрицами имеют нормальные условия. Все остальное вроде должно быть в форме =Решите ла-ла-ла методом бла-бла с условиями ...=, но этого нет...
Где-то были у меня такие лабы, может поищу завтра.
Последний раз редактировалось fsage; 07.07.2009 в 00:12.
Не слушайте программистов! Они плохие, они пишут баги. (с)
Для начала, алгоритм - это последовательность действий, при которых в конечном итоге получается решить задачу. Для его составления не требуется знания никакого языка программирования. Напишите на листике последовательность действий, как вы бы сами решали каждую задачу. И тогда, возможно вы быстрее получите помощь. Все тоже хотят на пляже позагорать.
А если для Вы даже не представляете, как это всё нужно решать, то осмелюсь дать совет - бросайте учёбу. Не для Вас она. Потому что хорошего специалиста из Вас не выйдет.
Извините , если грубо.
что же тут тяжелого?
задача 2.41
алгоритм
1. условие если xi < blablabla
2. выполнение первого примера
3. условие если хi > blablabla
4. выполнение второго примера
5. вывод данных на монитор
что касается решения, паскаль 2 года назад учил уже забыл всё совсем (ниже написана задача тупо в блокноте с просоне и повторюсь паскаль не юзал 2 года нифига не помню
n=11
for i = {1:n} (в общем массив забыл как)
if x<(a-1)
yi=a+b/x
for i = {1:n} (в общем массив забыл как)
if x>=(a-1)
yi=e^xi+mod(sin(a-x));
printf yi;
спс, теперь уже и я поняла, чего там делать. типа так
uses crt;
const n=11;
var a,b:real;
x,y:array[1..11] of real;
i:byte;
begin
readln(a);
readln(b);
for i:=1 to n do readln(x[i]);
for i:=1 to n do
if (x[i]<(a-1)) and (x[i]<>0) then y[i]:=a+b/x
ellse
if (x[i]>=(a-1)) and (x[i]<>0)
then y[i]:=e^x[i]+mod(sin(a-x[i]));
for i:=1 to n do write(y[i]);
end.
где-то так
Последний раз редактировалось fsage; 16.07.2009 в 22:08. Причина: спасибо, guestik:)
Не слушайте программистов! Они плохие, они пишут баги. (с)
дааа) твой вариант будет куда лучше)
А я Pascal учил 6 лет назад но до сих пор помню, что присваивание переменной значения выглядит как i:= value а не i=value
Писалось на коленке, так что, может не работать местами
найти первый положительный элемент массива Ф, состоящего из Н элементов.
Н меньше либо равно 20.
uses crt;
const N=20;
var F: array [1..N] of integer;
m,i: byte;
begin
ClrScr;
Writeln('Введите размерность массива, до 20 элементов');
Readln(m);
Writeln('ВВведите элементы массива');
for i:=1 to m do Read(F[i]);
for i:=1 to m do
begin
if F[i]>0 then Writeln('Первый положительный элемент массива=', F[i]);
i:=i+1;
end;
end.
Найти наибольший положительный элемент каждой строки матрицы CQ[m,n], где m=2 n=3.
uses crt;
var CQ: array [1..2, 1..3] of integer;
max: integer;
i,j: byte;
begin
ClrScr;
Writeln('ВВведите элементы массива');
for i:=1 to 2 do
for j:=1 to 3 do
Read(F[i,j]);
max:=0;
for i:=1 to m do
begin
for j:=1 to n do
begin
if CQ[i,j]>0
then if CQ[i,j]>max
then max=CQ[i,j];
j:=j+1;
end;
Writeln('Максимальный положительный элемент,i,-ой строки = ',max);
i:=i+1;
end;
end.
Не слушайте программистов! Они плохие, они пишут баги. (с)
огромное спасибо всем , в особенности fsage
Последний раз редактировалось Fallout; 19.07.2009 в 01:53.
Социальные закладки