Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Вычислить значение выражения Дано целое число N (> 0). Найти значение выражения 1.1-1.2+1.3-... (N слагамых, знаки чередуются). Условный оператор не использовать. https://www.cyberforum.ru/ pascalabc/ thread1131096.html	Найти число К, такое, что сумма 1 + 2 + ... + К >= A, и саму эту сумму Pascal ABC Дано число А (>1). Вывести наименьшее из целых чисел К, для которых сумма 1 + 1/2 +... + 1/К будет больше А, и саму эту сумму.
Pascal ABC Пусть дана матрица А (n х m). Постройте вектор, каждый элемент которого равен количеству элементов в i-й строке матрицы https://www.cyberforum.ru/ pascalabc/ thread1131061.html Пусть дана матрица А (n х m). Постройте вектор, каждый элемент которого равен количеству элементов в i-й строке матрицы А, не принадлежащих отрезку . Воспользуйтесь функцией, делающей соответствующую проверку в i-й строке. Заранее спс)	Pascal ABC В двухмерном целочисленном массиве 20х10 найти сумму элементов по диагонали В двухмерном целочисленном массиве 20х10 найти сумму элементов по диагонали https://www.cyberforum.ru/ pascalabc/ thread1131052.html
Pascal ABC Написать процедуру для работы со списком Использовать (линейные) однонаправленные списки при следующем их описании: Type Spisok = ^Zveno; Zveno = record Elem : TypeElem; Next : Spisok end; При этом параметры L, LI и L2 обозначают списки, а параметры Е, El и Е2—данные типа TypeElem, к которым применимы операции присваивания и проверки на равенство. TypeElem — тип элементов списка,...	Pascal ABC Метод половинного деления Помогите пожалуйста начинающей девушке не чего не понимающей в програмировании Отыскание корня уравнения F(x)=0 на интервале (А,В) с точность Е А=0 В=1 Е=10(в -2 степени) х(в 4 степени)+2х(в 3 степени)-х-1 Заранее огромное спасибо!!! https://www.cyberforum.ru/ pascalabc/ thread1130984.html
Pascal ABC Составить матрицу по правилу https://www.cyberforum.ru/ pascalabc/ thread1130965.html Помогите составить матрицу вида: 11111 01110 00100 01110 11111	Pascal ABC Некорректный вывод Суть проблемы в procedure zadanie_3 При вызове в основной программе происходит некорректный вывод, например, вместо 1 владельца выводит какие-то заоблачные числа. Сама подпрограмма написана верно, пробовал тело процедуры вставить в основную программу, все работает корректно. program t; uses crt; type avtosalon=record marka:string;
Pascal ABC Утечка памяти Здравствуйте, в моей программе где-то возникает утечка, но я ни как не могу найти её. Я открываю любой файл, создаю некую шифровку ну и далее всё хорошо. А потом утечка. :( Чтобы запустить нужно поправить fileName на путь к любому файлу больше 100 килобит. type pTreeBox = ^TreeBox; TreeBox = record pLeft, pRight: pTreeBox; Data: shortint; https://www.cyberforum.ru/ pascalabc/ thread1130742.html	Pascal ABC Удалите первое вхождение w в строку, если такое есть https://www.cyberforum.ru/ pascalabc/ thread1130683.html Очень нужно на завтра!!! Известно, что в начале строки S находится не более 40 латинских букв, за которыми следуют пробелы. Напечатайте эту строку, предварительно преобразовав ее так, как показано ниже, и используя следующий фрагмент программы: Tуре строка = array of char; Vаr S : строка; Удалите первое вхождение w, если такое есть (образовавшуюся «дыру» заполните последующими...
Pascal ABC Найти в заданной последовательности самую длинную подпоследовательность, состоящую только из положительных чисел Найти в заданной последовательности самую длинную подпоследовательность, состоящую только из положительных чисел.	Pascal ABC Проверить, является ли заданная последовательность знакопостоянной https://www.cyberforum.ru/ pascalabc/ thread1130645.html Проверить, является ли заданная последовательность знакопостоянной.

Sckrejjet

Кодинг - это искусство...

64 / 64 / 42

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

Сообщений: 156

27.03.2014, 13:20

Для каждого исходного набора вывести номер последного элемента равного 2, или число 0, если в данном наборе нет двоек - Pascal ABC - Ответ 5959143

27.03.2014, 13:20. Показов 1910. Ответов 1

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

Сообщение было отмечено Alisher2222 как решение

Решение

Pascal

uses crt;
 
const
  K = 10;
  N = 5;
  c = 2;
 
var
  mas:array [1..K,1..N] of integer;
  i,j,z:integer;
  
BEGIN
  for i:=1 to K do
    begin
      for j:=1 to N do
        begin
          mas[i,j]:=Random(10);
          write(mas[i,j],' ');
        end;
      writeln;
    end;
    
  for i:=1 to K do
    begin
      z:=0;
      for j:=1 to N do
        begin
          if mas[i,j]=c then
            z:=j;
        end;
      Writeln('K[',i,']= ',z);
    end;
END.

Вернуться к обсуждению:
Для каждого исходного набора вывести номер последного элемента равного 2, или число 0, если в данном наборе нет двоек Pascal ABC

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

27.03.2014, 13:20

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

Для каждого набора вывести номер его первого элемента, равного 2, или число 0, если в данном наборе нет двоек
Даны целые числа K, N, а также K наборов целых чисел по N элементов в каждом наборе. Для каждого...

Даны целые числа K, N, а также K наборов целых чисел по N элементов в каждом наборе. Для каждого набора вывести номер его первого элемента, равного 2
Даны целые числа K, N, а также K наборов целых чисел по N элементов в каждом наборе. Для каждого...

Дано целое число K и набор ненулевых целых чисел.Вывести номер первого числа в наборе, большего K. Если таких чисел в наборе нет, то вывести 0
Реализовать данные задания с помощью циклов с предусловием или циклов с постусловием. Во всех...

Вывести номер первого элемента из набора равного заданному числу
Даны целые числа K, N, а также K наборов целых чисел по N элементов в каждом наборе. Для каждого...

	27.03.2014, 13:20

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

27.03.2014, 13:20

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

Для каждого набора вывести номер его первого элемента
Даны целые числа K, N, а также K наборов целых чисел по N элементов в каждом наборе. Для каждого...

Вывести номер последнего нулевого элемента массива или 0, если такого элемента нет
Одномерные массивы. Часть 1 1) номер последнего нулевого элемента или 0, если такого элемента...

Наверх