sweta159887
Новичок
|
    
помогите решить я экономистка а не програмXt я в этом ни бум бум!
написать программу умножения двух матриц А и В размерностью n*n(n<=10):С=A*B
Величина n должна быть входным параметром программы.
Заранее спасибо большое!
|
Всего сообщений: 1 | Присоединился: май 2011 | Отправлено: 29 мая 2011 18:48 | IP
|
|
host42
Новичок
|
Не могу понять задачу, как и с чего начать не знаю... Помогите.
На тренировках спортсмен ежедневно пробегает некоторую дистанцию, с каждым днём увеличивая её на 10%. Составить программу, определяющую по расстоянию, преодолённому спортсменом в первый день:
а) длину дистанции на k-ый день тренировок;
б) кол-во тренировок, после которых ежедневная дистанция превысит s км;
в) кол-во дней, за которые спортсмен пробежит суммарный путь, превышающий n км.
|
Всего сообщений: 1 | Присоединился: июнь 2011 | Отправлено: 12 июня 2011 20:29 | IP
|
|
kana2525
Новичок
|
помогите пожалуйста решить задачу она почти сделана но что то не то не могу понять что помогите
задача должна сортировать по возврастанию
uses crt;
var n,j,i:integer;f:file of integer;
a:array[1..100]of integer;
procedure swap(var x,y:integer);
var t:integer;
begin
t:=x;
x:=y;
y:=t
end;
begin
assign(f,'1.txt');
rewrite(f);
writeln('n');readln(n);
for i:=1 to n do
begin
writeln(i,' вв-те число ');
readln(a);
write(f,a);
end;
close(f);
reset(f);
while not eof(f) do
begin
read(f,a);
for j:=1 to n-1 do
for i:=1 to n-j do
if a>a[i+1] then swap(a,a[i+1]);
write(a); end;
close(f);
end.
|
Всего сообщений: 2 | Присоединился: июнь 2011 | Отправлено: 14 июня 2011 14:54 | IP
|
|
vetalfani
Новичок
|
Помогите решить задачу.Условия: из множества латинских литер создать множество, которое состоит из символов, не входящих в множество символов вашего имени. Вывести созданную множество на экран.
(Сообщение отредактировал vetalfani 19 июня 2011 13:10)
|
Всего сообщений: 1 | Присоединился: июнь 2011 | Отправлено: 19 июня 2011 13:05 | IP
|
|
Dale
Участник
|
 
vetalfani , это не совсем задача. Это собственно именно то что нужно сделать:
1)создать множество латинских литер
2)Создать множество символов вашего имени
3)Результат = из первого множества вычесть второе множество
|
Всего сообщений: 139 | Присоединился: май 2009 | Отправлено: 22 июня 2011 12:24 | IP
|
|
Dale
Участник
|
kana2525 , потрудись сначала задачу нормально запостить и объясни, что именно не получается
|
Всего сообщений: 139 | Присоединился: май 2009 | Отправлено: 22 июня 2011 12:26 | IP
|
|
kana2525
Новичок
|
все я решил уже не надо!
|
Всего сообщений: 2 | Присоединился: июнь 2011 | Отправлено: 22 июня 2011 12:34 | IP
|
|
Stupid user
Новичок
|
Кароч, ну пропустил одну лекцию, а теперь хватаюсь за голову... Нетипизированные файлы,
чё к чему хз:
Создать и заполнить файл f1 числами. Переписать из файла f1 в f2 только чётные числа....
Помогите, буду очень благодарен, заранее спасибо!
|
Всего сообщений: 1 | Присоединился: июнь 2011 | Отправлено: 30 июня 2011 18:50 | IP
|
|
Mark1992
Новичок
|
Дана матрица 10Х10, значении задаются случайным образом в диапазоне -128 до 127. Найти max и min в матрице и разделить их на сумму тех строк в которых они лежал.
Ну значит я разобрался с матрицей и написал код программы для её выведения с поиском минимума и максимума. А сейчас нужно правильно вставит randome и деление на сумму минимума и максимума. Как правильно это сделать ?
Вот код программы:
Program Z;
USES
CRT;
CONST
kol_strok=5;
kol_stolbcov=4;
VAR
A:array[1..10,1..10] of Real;
i,j:integer;
max_stroka,max_stolbec,min_stroka,min_stolbec:integer;
BEGIN
Writeln('Vvedite znachenii matrix А:');
for i:=1 to kol_strok do
for j:=1 to kol_stolbcov do
Read(A[i,j]);
max_stroka:=1;
max_stolbec:=1;
min_stroka:=1;
min_stolbec:=1;
for i:=1 to kol_strok do
for j:=1 to kol_stolbcov do
begin
if A[i,j]>A[max_stroka,max_stolbec] then
begin
max_stroka:=i;
max_stolbec:=j;
end;
if A[min_stroka,min_stolbec]>A[i,j] then
begin
min_stroka:=i;
min_stolbec:=j;
end;
end;
ClrScr;
Writeln('Matrix А:');
for i:=1 to kol_strok do
begin
for j:=1 to kol_stolbcov do
Write(A[i,j]:4:2,' ');
Writeln;
end;
Writeln;
Writeln('Max aliment A[',max_stroka,';',max_stolbec,'] = ',A[max_stroka,max_stolbec]:4:2);
Writeln('Min aliment A[',min_stroka,';',min_stolbec,'] = ',A[min_stroka,min_stolbec]:4:2);
Readln;
end.
Заранее спасибо !
|
Всего сообщений: 2 | Присоединился: июль 2011 | Отправлено: 1 июля 2011 11:05 | IP
|
|
Fikon
Новичок
|
Помогите пожалуйста решить задачи.
1. 2 Алгоритма. 1-ый алгоритм Бойер-Мура. Подсчитать кол-во строения символов.
2-ой Алгоритм: поиск таблицы без ключа. Поменять один while на repeat. Оба алгоритмы сделать как процедуры.
2. 2 Алгоритма.Сортировка. 1-ый: быстрая сортировка.2-ой: бинарными вставками. 2ой алгоритм-отсортировать по уменьшению. Подсчитать кол-во сравнений ключей в обоих алгоритмах.
3. Создать однонаправленный циклический список. Запись с конца. И двунаправленный циклич. список-Запись с начала. Собрать все отрицательные числа в один список,а положительные в другой.
4. Создать стек в виде массива. Перенести положительные числа в очередь,которая в виде циклического списка.
|
Всего сообщений: 1 | Присоединился: сентябрь 2011 | Отправлено: 11 сен. 2011 17:56 | IP
|
|
|
Форум
Решение задач на Pascal. Форум 3.
