Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Указать числа массива, у которых остаток от деления на М Даны натуральные числа a1,a2,....,an . Указать те из них, у которых остаток от деления на M равен L (0< L < M - 1). Вот есть такой код, но что-бы я не вводил, выдает, что чисел таких нет. Помогите... https://www.cyberforum.ru/ pascal/ thread1421396.html	Pascal Решение трансцендентных уравнений Помогите написать программу на паскале. Заранее спасибо
Pascal Найти такой тупоугольный треугольник, для которого расстояние от точки до вершины тупого угла наибольшее Дано множество треугольников. Найти такой тупоугольный треугольник, для которого расстояние от точки (15,15) до вершины тупого угла наибольшее. Таблица данных в конце. ВЫДАЕТ ОШИБКУ Файл "Undefined... https://www.cyberforum.ru/ pascal/ thread1421124.html	Pascal Подпрограмма поиска минимума элементов матрицы и его адреса Буду признателен если напишите програмку,надо до ночи 15 апреля,совсем уж туго у меня с пониманием pascal'я :) Написать подпрограмму поиска минимума элементов матрицы и его адреса. Для проверки... https://www.cyberforum.ru/ pascal/ thread1421090.html
Принадлежность точки заштрихованной области Pascal Помогите.Составить программу, которая печатает true, если точка с координатами (х, у) принадлежит заштрихованной области, и false в противном случае	Pascal Что обозначает переменная "i" в программе? Что обозначает переменная "i" в программе? И что такое "ins(k)"? uses crt; var s1,s2,s3:string; gl,glasnye: set of char; i,k:integer; begin clrscr; write('s1: '); readln(s1); writeln('длина... https://www.cyberforum.ru/ pascal/ thread1420570.html
Pascal В массиве случайных чисел вычислить количество элементов, кратных трем Составьте программу двумя способами: 1) Используя подпрограмму-функцию; 2) Используя подпрограмму-процедуру. В одномерном массиве случайных чисел P вычислить количество элементов, кратных 3. https://www.cyberforum.ru/ pascal/ thread1420554.html	Pascal Напишите, что напечатает программа Напишите, что напечатает следующая программа: program pl; var a,b:integer; procedure f1 (x,y:integer); begin y:=2*x+3; end; procedure f2 (var x,y:integer); begin
Pascal Найти минимальный элемент матрицы и поменять его местами с первым элементом Найти минимальный элемент матрицы С (размер m*n), и поменять его местами с первым элементом. Сделать через динамический массив. https://www.cyberforum.ru/ pascal/ thread1420372.html	Pascal Нарисовать блок схему алгоритма: удаление элемента с максимальным значением в линейном списке https://www.cyberforum.ru/ pascal/ thread1420259.html Помогите плз, нужно нарисовать блок схему алгоритма: удаление элемента с максимальным значением в линейном списке упорядоченным по убыванию (pascal)
Pascal Блок схема: добавление элемента в начало дека Помогите плз, нужна блок схема добавления элемента в начало дека (pascal)	Pascal Что нужно подключить для поддержки русского языка? Што нужно подключить штоб в турбо паскале был русский язык. https://www.cyberforum.ru/ pascal/ thread1420030.html

ZX Spectrum-128

6804 / 4563 / 4817

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

Сообщений: 22,438

17.04.2015, 08:54

Сформировать типизированный файл по формуле, найти произведение чисел, кратных 2 и 10 - Pascal - Ответ 7490769

17.04.2015, 08:54. Показов 1088. Ответов 1

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

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

Решение

Pascal

{
Типизированные файлы.
А) Формировать М1(из 10 компонент) первая половина по формуле 3i,
вторая по формуле i+3
B) Найти в M1 произведение чисел кратных 2 и 10}
const
  n=10;
var
  m1:file of integer;
  i:integer;
  p:longint;
begin
  assign(m1,'m1.dat');
  rewrite(m1);
  for i:=1 to n div 2 do
    write(m1,3*i);
  for i:=n div 2 +1 to n do
    write(m1,i+3);
  close(m1);
 
  p:=1;
  writeln('Содержимое файла:'); 
  reset(m1);
  while not eof(m1) do
    begin
      read(m1,i);
      write(i:5);
      if (i mod 2=0) and (i mod 10=0) then
        p:=p*i;
    end;
  writeln;
  close(m1);
  writeln('Прозведение: ',p);
  readln;
end.

Вернуться к обсуждению:
Сформировать типизированный файл по формуле, найти произведение чисел, кратных 2 и 10 Pascal

Programming

Эксперт

94731 / 64177 / 26122

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

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

17.04.2015, 08:54

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

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

Сформировать типизированный последовательный файл, компоненты которого вычисляются по формуле
1.Сформировать типизированный последовательный файл, компоненты которого вычисляются по формуле,...

сформировать файл из модулей целых чисел и найти произведение квадратов компонентов
Нужно сформировать файл из модулей целых чисел и найти произведение квадратов компонентов....

Сформировать одномерный массив. Найти произведение элементов, кратных 5
сформировать одномерный массив. Найти произведение элементов, кратных 5. через массивы решить и...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

17.04.2015, 08:54

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

Найти произведение количества чисел не кратных 5 на количество чисел не кратных 7
задача через stdio.h С клавиатуры вводится последовательность ЦЕЛЫХ чисел. Количество чисел...

Сформировать файл из чисел последовательности (–1)^k*0.3^k/(k + 1).Найти произведение компонентов файла
Сформировать файл из чисел последовательности (–1)^k*0.3^k/(k + 1).Найти произведение компонентов...

Найти произведение чисел, кратных 4, но не кратных 7
Помогите пожалуйста чайнику решить две задачки :) 1. Пользователь вводит N целых чисел. Найти...

Найти произведение чисел, кратных 4, но не кратных 7
1. Пользователь вводит N целых чисел. Найти произведение чисел, кратных 4, но не кратных 7....

Наверх