Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Составить программу, которая позволяет найти в телефонном справочнике по номеру телефона ФИО и адрес абонента Здравствуйте, Уважаемые. Очень срочно нужна Ваша помощь, в решении двух задач. 2.В среде TurboPascal составить и отладить программу, которая позволяет найти в телефонном справочнике по номеру телефона ФИО и адрес абонента. Телефонный справочник хранится в файле telephone . Компоненты файла включают следующие поля: • Телефон • ФИО • Адрес https://www.cyberforum.ru/ pascal/ thread607050.html	Pascal Найти количество элементов данного массива больше числа -5 Дан массив А(20), найти количество элементов данного массива больше числа -5. помогите написать програмку пожалуйста)))
Pascal Графика. Исправить рекурсию треугольника https://www.cyberforum.ru/ pascal/ thread606681.html Как исправить программу так что бы она рисовало бы только с 3 линиями. uses crt, graph; const y=200; var gd, gm, tmp:integer; procedure z(x0, x, n:integer; var h:integer); var h1:integer; begin	Pascal Составить блок-схему и словесный алгоритм Преподаватель требует:angry: Программа выводит количество различных слов var S,S1:String; a:array of string; i,j,e,k,kk:byte; begin write ('S='); readln (s); S:=S+' '; j:=0,k:=0; writeln ('все различные слова'); https://www.cyberforum.ru/ pascal/ thread606652.html
Найти длину самого короткого слова Pascal данно натуральное число n, символы s1, ...,sn. Группы символов, разделенные пределами и не содержащие пробелы внутри себя, будем называть словами найти длину самого короткого слова.	Pascal Программа для высчитывания количества слов в тексте Нужно создать программу для подсчёта слов в тексте.Пробовал создавать что бы программа считала пробелы запятые и т.д Но вот учитель придирается говоря что так не верно.Очень нужно.Заранее спасибо. Добавлено через 4 минуты Ой прошу прощения модераторы нашел на этом же форуме. https://www.cyberforum.ru/pascalabc/thread554854.html https://www.cyberforum.ru/ pascal/ thread606612.html
Pascal Вычислить и написать программу Вычислить с погрешностью E=0.1E-4 \sum_{K=0}^{\propto }\frac{{(-1)}^{K}*{X}^{K}}{K} где x=0,71 https://www.cyberforum.ru/ pascal/ thread606576.html	Составить программу печати имени переменной, значение которой ближе всего к значению функции Pascal Даны a,b,c. Составить программу печати линии переменной, значение которой ближе всего к значению функции. Y=\frac{tg(\pi*b)+cos(a) }{ln(c+2)} Добавлено через 47 минут печать ИМЕНИ переменной
Pascal Вычислить Вычислить и написать программу \sum_{n=1}^{12}({(-1)}^{n}*cosnx)/{n}^{2}, x=0.76E3 https://www.cyberforum.ru/ pascal/ thread606532.html	Pascal Найти ошибку в сложение двух матриц https://www.cyberforum.ru/ pascal/ thread606505.html Помогите найти ошибку в сложение двух матриц. Задание: сделать программу, которая считывает данные с двух файлов (в одном ряду текста находится один ряд чисел матрице, которые отделены запятой); сложить матрицы; полученную матрицу вписать в другой файл. Максимальные размеры матрицы 8х12
Вычислить произведение Pascal нужно вычислить произведение, исключая точки разрыва. То есть написать программу \prod_{K=1}^{16}({(K+1)}^{2})/((K+4)(K-2)(K-3))	Pascal Вывести значение функции https://www.cyberforum.ru/ pascal/ thread605937.html я в Паскаль не могу составить программу, которая: запрашивает значение переменной X и шага N; выводит значение функции F(X)=(1/X)+(3x-xx/1-x) в точках X, X+N, X-N. Протокол работы программы: X= 0.5 N= 1 F(0.5)= 4.500 F(1.5)= -3.833 F(-0.5)= -3.167 ПОЖАЛУЙСТА ПОМОГИТЕ! Т-Т

[WRG]

53 / 53 / 37

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

Сообщений: 243

Записей в блоге: 1

17.06.2012, 11:13

Файлы. Вычислить произведение чисел, порядковые номера которых кратны пяти - Pascal - Ответ 3175460

17.06.2012, 11:13. Показов 1339. Ответов 1

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

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

Решение

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

Pascal

program trololo;
 
uses crt;
 
var
  f1: text;
  path_to_file: string;
  i,result,tmp: integer;
  
begin
  write('Введите полный путь до файла - > ');
  readln(path_to_file);
  assign(f1,path_to_file); reset(f1);
  i:=1; result:=1;
  while not eof(f1) do
    begin
      readln(f1,tmp);
      if i mod 5 <> 0 then
        inc(i)
      else
        begin
          result:=result * tmp;
          inc(i);
        end;
    end;
  close(f1);
  append(f1);
  writeln(f1);
  writeln(f1,result);
  close(f1);
  writeln('Completed');
  readln;
end.

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

17.06.2012, 11:13

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

Файлы. Вычислить произведение чисел, порядковые номера которых кратны трем
2). В текстовом файле содержится последовательность действительных чисел. Вычислить произведение...

Найти сумму чисел массива, порядковые номера которых кратны 3
Помогите: дан массив, размерность 15, заполнить случайными числами от -20 до 30 и найти сумму...

Вычислить произведение элементов последовательности, порядковые номера которых нечетны
Дана непустая последовательность натуральных чисел, за которой следует 0. Вычислить произведение...

Вывод элементов последовательности, порядковые номера которых кратны 5
1. Для последовательности an=1/n + 1/n2 + 1/n4 составить программу вычисления и вывода её...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

17.06.2012, 11:13

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

Удалить из последовательности те члены, порядковые номера которых кратны 4
Даны действительные числа а1...а30. Оставить без изменения последовательность а1..а30 если она...

Удалить из последовательности те члены, порядковые номера которых кратны трем
люди, завтра экзамен. нам дали подобные задания которые будут на практике. немогу разобраться даже...

Сумма элементов массива номера которых кратны пяти
Помогите, пожалуйста, решить задачу на Mathcad. N курсантов I-го курса сдали зачет по математике....

Вычислить сумму тех из чисел, порядковые номера которых - простые числа
Имеется последовательность чисел, содержащая n элементов. Вычислить сумму тех из них, порядковые...

Вычислить сумму чисел, порядковые номера которых являются числами Фибоначчи.
Задана последовательность N вещественных чисел. Вычислить сумму чисел, порядковые номера которых...

Вычислить сумму тех чисел, порядковые номера которых - простые числа
Программа. Данная последовательность из не менее чем двух натуральных чисел, за которыми следует 0....

Наверх