Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal строковые переменные Имеется строка,содержащая буквы латинского алфавита и цифры.Вывести на экран количество букв в строке. https://www.cyberforum.ru/ pascal/ thread88136.html	двумерный массив Pascal дан двумерный массив, сформированый случайным образом, найти количество положительных элементов в нечетных столбцах и количество отрицательных элементов в четных столбцах.
Pascal Запись. Символьные файлы Дано символьные файлы f и g. Записать в файл p сначала компоненты файла f, а потом файла g с сохранением порядка спасибо =) https://www.cyberforum.ru/ pascal/ thread88130.html	Pascal В матрице 5 на 5 максимальные элементы заменить нулями https://www.cyberforum.ru/ pascal/ thread88129.html Помогите, пож-ста =)
Pascal Комбинированные типы данных (записи). Известны данные о 20 сотрудниках фирмы(фамилия, зарплата и пол). Определить: а) Фамилию мужчины, имеющего самую большую зарплату (считать, что такой есть и он единственный); б) Фамилии мужчины и женщины, имеющих самую маленькую зарплату (считать, что такие есть и они единственные в своей группе сотрудников). Напишите пожалуйста две программы!	Pascal Программы в паскале. https://www.cyberforum.ru/ pascal/ thread88123.html Помогите плиз написать несколько программ: 1) Последовательность слов переменной длинны (от 1 до 10 символов) может содержать максимально 10 слов. Слова разделяются пробелом, последовательность заканичвается точкой. Упорядочить слова по возрастанию длины. 2) В последовательности, состоящей из 5 чисел, заменить максимальный элемент на произведение всех отрицательных элементов. Нахождение...
Pascal Сортировка Методом Вставки https://www.cyberforum.ru/ pascal/ thread88117.html Ребята вот у меня такая загвоздка ! с сортировкой Короч ! в одномерном массиве нужно отсортировать только положительные элементы с не парными индексами ! условие построил но куда вставить ?? ума не хватает! if (m>0) and (i mod 2 <>0) then Program masiv; uses crt; const n=10; var m: array of integer; k,j,g,tmp,i: integer; begin clrscr; Randomize;	Pascal N Муравьев в момент времени 0 начинают одновременно двигаться по горизонтальному отрезку со скоростью 1см в секунду в заданных направлениях... N Муравьев в момент времени 0 начинают одновременно двигаться по горизонтальному отрезку со скоростью 1см в секунду в заданных направлениях . Если 2 муравья сталкиваются , то они мгновенно разворачиваются и двигаются с прежней скоростью в противоположенном направлении. Муравей, дошедший до края отрезка падает. Определите. Через сколько секунд упадет последний муравей.
Pascal Множества. https://www.cyberforum.ru/ pascal/ thread88115.html Опешите множества m1(1,2) и m2(2,1). Сравните множества m1 и m2 на равенство.	Pascal Двумерный массив Уважаемые, задача следующая: Пусть дан вещественный массив размером 20 30. Необходимо упорядочить его строки по неубыванию наибольших элементов строк. https://www.cyberforum.ru/ pascal/ thread88114.html
Pascal дата,кто сможет сделать??? дана дата,нужно подсчитать какой это будет день недели если 1 января 2010 это пятница???	Pascal Курсовая работа Дано натуральное k. Вставить между некоторыми цифрами, записан-ными в таком порядке: (1, 2, 3, 4, 5, 6, 7, 8, 9), знак (+ ) или (-) так, чтобы значением получившегося выражения было число k. Напpимеp, если k=122, то подойдет следующая расстановка : 12+34-5-6+78+9. https://www.cyberforum.ru/ pascal/ thread88110.html

antoine_vix

4 / 4 / 0

Регистрация: 31.05.2009

Сообщений: 69

21.01.2010, 15:07

Опоздал ли пассажир на поезд? - Pascal - Ответ 494315

21.01.2010, 15:07. Показов 1037. Ответов 9

Метки (Все метки)

Ответ

Pascal

это на 27-такой же смысл на 28 задачи
Program perestanovka ;
uses wincrt;
const b=5;
  var n,m:integer;
       a:array[1..b,1..b] of integer;
       i,j:integer;
Procedure Zamena;
   var j,temp:integer;
   begin
    for j:=1 to b do
     begin
  temp:=a[n,j];
  a[n,j]:=a[m,j];
  a[m,j]:=temp;
 end;
for i:=1 to b do
 begin
 writeln;
 for j:=1 to b do
   write(a[i,j],' ');
  end;
end;
 
  begin
  writeln('ââåäèòå íîìåðà ñòðîê, êîòîðûå õîòèòå ïîìåíÿòü');
  readln(n);
  readln(m);
    randomize;
 for i:=1 to b do
 begin
 writeln;
  for j:=1 to b do
  begin
   a[i,j]:=random(10);
   write(a[i,j],' ');
           end;
          end;
           writeln;
         Zamena;
          end.

Вернуться к обсуждению:
Опоздал ли пассажир на поезд? Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

21.01.2010, 15:07

Готовые ответы и решения:

Поезд отправляется в h1:m1, время в пути h2:m2. Во сколько прибывает поезд?
Есть код, решение простой задачки Поезд отправляется в h1:m1, время в пути h2:m2. Во сколько...

Задача про поезд: будет ли поезд на платформе?
помогите с задачей: поезд прибывает на станцию в а часов b минут и отправляется в с часов d минут....

Вывести "Пассажирский поезд" или "Грузовой поезд"
Как сделать, чтобы при "passenger.Time" выводилось "Пассажирский поезд...", а при "freight.Time"...

Счастливый пассажир
Пассажир считается счастливым, если его текущий и предыдущий билеты на поездку в транспорте...

	21.01.2010, 15:07

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

21.01.2010, 15:07

Помогаю со студенческими работами здесь

Структура: Пассажир
Не могу разобраться в структурах . Помогите сделать программу. Нужно создать структуру...

Счастливый пассажир
Пассажир считается счастливым, если его текущий и предыдущий билеты на поездку в транспорте...

поезд
Поезд прибывает на станцую в a часов b минут и отправляется в c часов d минут. Пассажир прибыл на...

Пассажирский поезд
Пассажирский поезд перегоняет товарный состав, а через некоторое время движется обратно, при этом...

Наверх