Форум
» Назад на решение задач по физике и термеху
Регистрация | Профиль | Войти | Забытый пароль | Присутствующие | Справка | Поиск

» Добро пожаловать, Гость: Войти | Регистрация
    Форум
    Информационные технологии
        Решение задач на Pascal. Форум 3.
Отметить все сообщения как прочитанные   [ Помощь ]
» Добро пожаловать на форум "Информационные технологии" «

Переход к теме
<< Назад Вперед >>
Несколько страниц [ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 ]
Модераторы: paradise, KMA
  

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)

-----
yu

Всего сообщений: 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

Отправка ответа:
Имя пользователя   Вы зарегистрировались?
Пароль   Забыли пароль?
Сообщение

Использование HTML запрещено

Использование IkonCode разрешено

Смайлики разрешены

Опции отправки

Добавить подпись?
Получать ответы по e-mail?
Разрешить смайлики в этом сообщении?
Просмотреть сообщение перед отправкой? Да   Нет
 

Переход к теме
<< Назад Вперед >>
Несколько страниц [ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 ]

Форум работает на скрипте © Ikonboard.com