sorsuire
Новичок
|
       
здравствуйте, помогите пожалуйста решить, сроки поджимают, не успеваю:
1)Создать двумерный массив (M x N). Найти сумму элементов каждой строки.
2)Перевести число:
А= 199,719(10) > A(2) > A(8) > A(16)
Выполнить действия в двоичной системе счисления:
А + В при А = 20(10) и В =38(10)
|
Всего сообщений: 6 | Присоединился: ноябрь 2010 | Отправлено: 29 нояб. 2010 21:46 | IP
|
|
azazelka04
Новичок
|
никак не могу решить, помогите!!!
Составить программу обработки двумерного массива на языке Турбо Паскаль. В квадратной матрице порядка n вывести элементы, расположенные над главной диагональю, которые не встречались под главной диагональю.
|
Всего сообщений: 4 | Присоединился: декабрь 2010 | Отправлено: 2 дек. 2010 21:37 | IP
|
|
bolon
Новичок
|
Помогите пожалучто завтро практика и надо решить 3 задачи
1.Одномерный массив, переставить max элемент с последним!
2.заменить все входяшие слова а на б
3.проверить является ли введенная фраза словестной и зашифровать
Заранее спасибо!
|
Всего сообщений: 3 | Присоединился: декабрь 2010 | Отправлено: 18 дек. 2010 1:20 | IP
|
|
paradise 
Долгожитель
|
2 bolon
1 Задача.
const n=10;
var
a: array [1..n] of integer;
i, max,ind, temp: integer;
begin
cls;
ind:=1;
for i:=1 to n do
begin
a:=random(10);
write(a,' ');
end;
writeln;
max:=a[1];
for i:=1 to n do
if a>max then
begin
max:=a;
ind:=i;
end;
temp:=a[n];
a[n]:=a[ind];
a[ind]:=temp;
for i:=1 to n do
write(a,' ');
end.
|
Всего сообщений: 428 | Присоединился: ноябрь 2008 | Отправлено: 18 дек. 2010 1:42 | IP
|
|
bolon
Новичок
|
a:=random(10); ошибку выдает тут типо
попытка присвоить переменную типа array [1..10]
|
Всего сообщений: 3 | Присоединился: декабрь 2010 | Отправлено: 18 дек. 2010 2:11 | IP
|
|
paradise
Долгожитель
|
ой, не заметила, там должны быть квадратные скобки и в них i
|
Всего сообщений: 428 | Присоединился: ноябрь 2008 | Отправлено: 18 дек. 2010 10:21 | IP
|
|
Oleg002
Новичок
|
Помогите пожалуйста исправить программу,условия ниже:
1)Вычислить сумму "S" с заданной точностью "E".Считать,что заданная точность достигнута,если очередное слагаемое по модулю меньше "E".
2)Определить номер и величину последнего учитываемого слагаемого.
S= -cosx + cos2x / 2^2 +...+(-1)^n * cosnx / n^2 +...
x=П/4(Пи на четыре)
E=0.1, E=0.001.
Вот так выглядит моя программа:
Program s_001;
uses crt;
var x,e,sum,an,Sn:real;
n:integer;
Label b1;
begin
clrscr;
writeln('vvedite e,x');
readln (e,x);
Sum:=0;
Sn:=0;
n:=1;
an:=1;
b1: an:=an*(-1);
Sn:=cos(n*x)/n*n*an;
if abs(Sn)>=e then
begin
n:=n+1;
Sum:=Sum+Sn;
goto b1;
end
else;
writeln('sum=',Sum:2:3);
readkey;
end.
При проверке программы он считает сумму,т.е первое задание считает всё нормально,но вот второе(Определить номер и величину последнего учитываемого слагаемого) он не делает..как этого добиться что нужно дописать в программу?
помогите пожалуйста,очень на вас надеюсь!!
я ничего в этом не понимаю, а задачу мне делал человек с которым сейчас нет никакой возможности связаться и узнать 
(Сообщение отредактировал Oleg002 19 дек. 2010 0:29)
|
Всего сообщений: 1 | Присоединился: декабрь 2010 | Отправлено: 18 дек. 2010 23:46 | IP
|
|
GODZILLA
Новичок
|
помогите, пожалуйста, написать программу: которая генерирует массив из 8 целых чисел из диапазона [-256;256] и меняет порядок элементов в массиве на обратный.
|
Всего сообщений: 3 | Присоединился: декабрь 2010 | Отправлено: 20 дек. 2010 17:47 | IP
|
|
arcacar
Новичок
|
не получается одна задачка помогите срочно
Инвертировать часть массива с первого элемента до самого правого минимального элемента.
Program laba12;
var
k,i,n,imin:integer;
min,b:real;
x:array [1..10] of real;
begin
for i:=1 to 10 do
begin
write('Введите x[',i,']=');
readln(x)
end;
min:=x[1];
k:=1;
for i:=2 to 5 do
if x<=min then
begin
min:=x;
imin:=i;
end;
k:=1;
n:=min;
for i:=1 to 10 div 2 do
begin
b:=x[n];
x[n]:=x[k];
x[k]:=b;
k:=k+1;
n:=n-1;
end;
writeln('Инвертированный массив');
for i:=1 to 5 do
begin
write ('x[',i,']');
writeln(x);
end;
write('min[',imin,']=',min);
end.
|
Всего сообщений: 1 | Присоединился: декабрь 2010 | Отправлено: 20 дек. 2010 20:54 | IP
|
|
cnamuk
Новичок
|
пожалуйста помогите,
условие задачи:
Дана строка символов. Распечатать ее в обратном порядке, сохранив лишь порядок следования цифр (например, ‘asdf %e456tyh’ должна быть выведена как ‘hyt456e% fdsa’).
я смог написать код только для переворота, но как при этом пропустить цифры не могу понять. пожалуйста помогите, заранее огромное спасибо.
вот код:
uses crt;
var s1,s2,word1:string; i:byte;
begin
clrscr;
writeln('введите текст-->'); readln(s1);
s2:='';
repeat
word1:='';
while i<=length(s1) do
begin
word1:=s1[ i ]+word1;
i:=i+1;
end;
s2:=s2+word1;
until i>length(s1);
writeln(s2);
readkey
end.
|
Всего сообщений: 1 | Присоединился: декабрь 2010 | Отправлено: 20 дек. 2010 23:26 | IP
|
|
|
Форум
Решение задач на Pascal. Форум 3.
