Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Сделать из двунаправленного списка однонаправленный https://www.cyberforum.ru/ pascal/ thread1136721.html предыдущая тема не актуальна, появилась новая проблема. Нужно из двунаправленного списка с двумя значениями сделать однонаправленный, но уже с одним(вторым) значением двунаправленного. Логика в принципе понятна - выбрать значения из одного списка и записать в новый, но вот навыков не хватает код: Program Spisok_dn; uses crt; {Для использования readkey и clrscr} type List=^TList; ...	Поиск минимального и максимального элемента файла Pascal Добрый день!! помогите пожалуйста с заданием:cry: Для файла s, состоящего из целых чисел, определите процедуру, которая находит значения максимального и минимального элементов файла s. Указание: введите файл s (последний элемент равен 0) и напечатайте значения максимального и минимального элементов файла s.
Pascal Вычислить значение выражения 2^(-x)-cos(x)+sin(2xy) help please 2^{-x}-\ cos\ x \ +\ sin(2xy) https://www.cyberforum.ru/ pascal/ thread1136664.html	Pascal Двунаправленный неупорядоченный список. Ошибка Встречено '=', а ожидалось ';' делал задачку и вот возникла проблемка: Строка 162 : Встречено '=', а ожидалось ';' Сама программа: Program Spisok_dn; uses crt; {Для использования readkey и clrscr} type Tinf=integer; {тип данных, который будет храниться в элементе списка} List=^TList; {Указатель на элемент типа TList} https://www.cyberforum.ru/ pascal/ thread1136518.html
Pascal Не получается выполнить пересечение элементов массива множеств Есть задача: (да да она много раз встречается на форуме, но я не хочу готовое брать, хочется самому и по своему сделать)) Известны марки машин изготовляемых в данной стране и импортируемых за рубеж.Даны некоторые N стран.Определить для каждой из марок,какие из них были: -доставлены во все страны; -доставлены в некоторые из стран; -не доставлены ни в одну страну И есть программа: program...	Pascal Составить программу вычисления значений функции F(x) на отрезке [a; b] с шагом h. Результат представить в виде таблицы https://www.cyberforum.ru/ pascal/ thread1136179.html Составить программу вычисления значений функции F(x) на отрезке с шагом h. Результат представить в виде таблицы, первый столбец которой – значения аргумента, второй – соответствующее значение функции. Добавить в программу нахождение приближенного вычисления максимального и минимального значения функции F(x) на отрезке с шагом h. Функция F(x)=ctgx^2+x+0.5 Мой вариант решения задачи. var...
Pascal В двумерном массиве произвести сортировку столбцов по убыванию элементов последней строки Дан двумерный массив вещественных чисел размерностью . Произвести сортировку столбцов по убыванию элементов последней строки.(если числа стоят не по убыванию, то с ним нужно переместить весь столбец) Вычислить сумму элементов расположенных на диагоналях полученной матрицы. Вывести на экран исходный и полученный массивы в виде матрицы. (написать с помощью функций и процедур) Заранее спасибо! https://www.cyberforum.ru/ pascal/ thread1136152.html	Pascal Заполнение массива из другого массива Делаю с модулем. Есть три массива: болезни, лекарства, пациенты. В болезни пишу: название, симптом, лекарство и 'необходимое количество лекарств' В лекарства пишу: название, количество на складе В пациентов пишу: имя, название болезни. Нужно что бы после того как написал болезнь пациента эта болезнь искалась в массиве "болезни", оттуда извлекался симптом, лекарство и 'необходимое...
Pascal Цикл выполняется только один раз var a, b, s :integer; begin read (a); s:=0; repeat begin if (a mod 10 mod 2)<>0 then s:=s + a mod 10; a:=a div 10; end; until a>0; https://www.cyberforum.ru/ pascal/ thread1136122.html	Pascal Вычислить сумму x^i/i^2-i^2 https://www.cyberforum.ru/ pascal/ thread1136079.html Люди, помогите пожалуйста Дано X. Определить z=\sum_{i=1}^{18}\left({x}^{i}/{i}^{2}-{i}^{2} \right) зарание спасибо!!
Если среди первых 10 элементов есть отрицательный, то заменить последние 5 элементов на среднее арифметическое массива Pascal Помогите пожалуйста решить задачу:cry: Дан массив X1, ... , X20. Если среди первых десяти элементов есть хотя бы один отрицательный, то заменить последние пять элементов на среднее арифметическое всего ряда. Зарание спасибо	Pascal Класс "Треугольник" https://www.cyberforum.ru/ pascal/ thread1136021.html Помогите с программой. Описать класс «Треугольник».Треугольник задается указанием длины одной из его сторон и прилежащими к ней углами (углы задаются в градусах).. Класс должен содержать конструктор с параметрами по умолчанию, а также следующие методы: вывод информации о длинах сторон треугольника; изменение длин сторон; определение углов, высот и площади треугольника. Предусмотреть проверку...

Дикутенз

92 / 92 / 99

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

Сообщений: 326

02.04.2014, 14:05

Удалить из матрицы все элементы, не кратные семи, но кратные трем - Pascal - Ответ 5988626

02.04.2014, 14:05. Показов 909. Ответов 3

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

Ответ

Точняк! Там отрицание сделать надо. Вот так правильно.

Pascal

Uses crt;
const n=10; m=10;
var a,b:array[1..m,1..n] of integer;
    i,j,bi,bj:integer;
begin clrscr; randomize;
  for i:=1 to m do
   for j:=1 to n do a[i,j]:=Random(99)+1;
 
  for i:=1 to m do
  begin
    for j:=1 to n do write(a[i,j]:4);
    writeln;
  end;
  writeln;
 
  Writeln('Itog');
  bi:=1; bj:=1;
  for i:=1 to m do
   for j:=1 to n do if not(((a[i,j] mod 7)=0)and((a[i,j] mod 3)=0)) then
    begin
      b[bi,bj]:=a[i,j];
      if bj=m then begin bj:=1; bi:=bi+1; end else bj:=bj+1;
    end;
 
  for i:=1 to bi do
  begin
    for j:=1 to n do if b[i,j]<>0 then write(b[i,j]:4);
    writeln;
  end;
  readln;
end.

Вернуться к обсуждению:
Удалить из матрицы все элементы, не кратные семи, но кратные трем Pascal

Programming

Эксперт

94731 / 64177 / 26122

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

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

02.04.2014, 14:05

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

Удалить минимальный элемент массива и все элементы, кратные 5.
Задание. Выполнить действия над одномерным массивом. Удалить минимальный элемент массива и все...

В массиве удалить все элементы кратные заданному числу
Задать три массива: один случайными целыми числами, второй вещественными положительными числами,...

Заменить элементы файла кратные трем
Создать файл, состоящий из N целых чисел. Вывести содержимое этого файла на экран. Заменить...

Вывести на печать элементы массива, кратные трем
КТО ЧЕМ МОЖЕТ ПОМОГИТЕ!!!!!(нужно срочно) #47. Вычислить значения функции z=x√(x*y), ...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

02.04.2014, 14:05

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

Напечатайте все двухзначные числа, которые кратные 5 и не кратные 3
в паскаль. помогите пожалуйста 1) Напечатайте все двухзначные числа, которые кратные 5 и не...

Дан массив из указателей на целые числа, вывести все члены данного массива, кратные 3, кратные 5
Дан массив из указателей на целые числа вывести все члены данного массива кратные 3 , кратные 5...

Вычислить сумму элементов массива и разделить все элементы матрицы, кратные 5, на эту сумму
Помогите пожалуйста!!! Зарываюсь! Дана квадратная действительная матрица. Вычислить сумму...

Все элементы массива, кратные числу 10, заменить 0.
Дан массив целых чисел. а)Все элементы, кратные числу 10, заменить 0.

Наверх