Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Файлы. Составить программу, выбирающую фамилии владельцев и номера автомобилей по указанной марке Составить программу, выбирающую фамилии владельцев и номера автомобилей по указанной марке. Прошу помощи профессионалов :) https://www.cyberforum.ru/ turbo-pascal/ thread1197328.html	Создать файл, содержащий сведения об автомобиле Turbo Pascal Создать файл, содержащий сведения об автомобиле. Структура записи: марка, номер автомобиля и фамилия владельца. Прошу помощи профессионалов :)
Turbo Pascal Поменять местами минимальный и максимальный элементы матрицы https://www.cyberforum.ru/ turbo-pascal/ thread1197255.html 0,1 0,3 9 0 4 5 -5 2 3 2 8 1 Добавлено через 2 минуты помогите пожалуйста с задачей	Turbo Pascal Найти сумму чисел,получаемых при последовательном вычеркивании первой цифры четырехзначеного числа https://www.cyberforum.ru/ turbo-pascal/ thread1197245.html дано натуральное число(четырехзначное) найти сумму чисел,получаемых при последовательном вычеркивании первой цифры числа Попросили помочь, не пойму как это вообще реализовать, типо через mod div или...
Создание файла (программа, с выполнением доп.функций) Turbo Pascal Создать файл, содержащий сведения о сдаче студентами сессии. Каждая запись содержит поля: номер группы, фамилия, имя, отчество студента, оценки по пяти экзаменам и пяти зачетам (зачет, незачет). На...	Turbo Pascal Вычислить суммы элементов каждой строки матрицы X(6,6), записать их в массив Y https://www.cyberforum.ru/ turbo-pascal/ thread1197149.html Вычислить суммы элементов каждой строки матрицы X(6,6), записать их в массив Y, определить наименьшее значение этих сумм и номер соответствующей строки.
Turbo Pascal Составить программу, которая изучает, одного ли знака числа, которые вводятся с клавиатуры https://www.cyberforum.ru/ turbo-pascal/ thread1197135.html Помогите составить програму!	Turbo Pascal Подставить значения x=sint, y=cost при -\pi \leq t\leq \pi uses Graph,Crt; var x1,x2:real;{границы изменения аргумента функции} y1,y2, :real;{границы изменения значения функции первого графика} y3, y4...
Turbo Pascal Найти все неповторяющиеся элементы двухмерного массива Помогите с блок схемой!!!! program lab; uses crt; const nmax=20; var a:array of integer; x:integer; n,m,i,j,p,q,k:byte; begin writeln('Поиск неповторяющихся элементов двухмерного... https://www.cyberforum.ru/ turbo-pascal/ thread1197038.html	Turbo Pascal Поиск отрицательных и положительных элементов в массиве - арифметическое переполнение https://www.cyberforum.ru/ turbo-pascal/ thread1197019.html var A:array of integer; i,j,s,m:integer; begin randomize; for i:=1 to 5 do begin writeln; for j:=1 to 5 do begin A:=random(50)-25; write(A,' '); end;
Turbo Pascal Определить кто из кандидатов в президенты победит на выборах Определить кто из кандидатов в президенты победит на выборах,если приняли участие в выборах 50% сторонников первого кандидата и 75% сторонников второго?общее число сторонников первого кандидата-N...	Turbo Pascal Допишите код, пожалуйста. Завтра последняя пара перед зачетом https://www.cyberforum.ru/ turbo-pascal/ thread1196921.html Сделал 4 из 5 лабораторных. Эту никак не могу. Мне помогли с заданиями 1 и 2 Dencil и Puporev. Нужно написать код к программам 10.3 10.4 10.5 . Помогите пожалуйста. Фотография с заданиями: (Ссылка...

CodeR

Фрилансер

3417 / 2814 / 3000

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

Сообщений: 8,549

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

03.06.2014, 08:55

В файл g поместить произведение компонентов файла f и вывести на экран - Turbo Pascal - Ответ 6265877

03.06.2014, 08:55. Показов 1162. Ответов 1

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

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

Решение

Pascal

Var f,g:text;
    i,n:byte;
    m,pr:real;
    ch:char;
Begin
    write('N: ');readln(n);
    Assign(f,'in.txt');Rewrite(f);
    For i:=1 to n do
    Begin
      m:=random*10-5;
      write(f,m,' ');
      write(m:6:2);
    End;
    writeln;
    Close(f);Reset(f);
    pr:=1;
    While not Eof(f) do
    Begin
      read(f,m);
      read(f,ch);
      pr:=pr*m;
    End;
    Assign(g,'out.txt');Rewrite(g);
    write(g,pr);
    Close(g);Reset(g);
    read(g,m);
    writeln('Произведение = ',m:0:2);
    Close(f);Close(g);
    readln;
End.

Вернуться к обсуждению:
В файл g поместить произведение компонентов файла f и вывести на экран Turbo Pascal

Programming

Эксперт

94731 / 64177 / 26122

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

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

03.06.2014, 08:55

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

В файл g поместить произведение компонентов файла f и вывести на экран
Записать в файл последовательного доступа N действительных чисел. В файл g поместить произведение...

Вычислить произведение компонентов файла и вывести их на экран
Помогите исправить программу. Суть задачи следующая: Записать в файл последовательного доступа N...

Записать в файл последовательного доступа N действительных чисел.Вычислить произведение компонентов файла и вывести на печать
Записать в файл последовательного доступа N действительных чисел.Вычислить произведение компонентов...

Если количество компонентов файла кратно 3, то вывести на экран все суммы каждых 3-х компонентов.
Программа запрашивает имя файла. Если количество компонентов файла кратно 3, то вывести на экран...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

03.06.2014, 08:55

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

Найти количество нечётных чисел среди компонентов файла и поместить их в файл последо-вательного доступа g.
Заполнить файл f целыми числами, полученными с помощью генератора случайных чисел. Найти количество...

Вычислить произведение компонентов файла и вывести на печать
1)Записать в файл последовательного доступа N действительных чисел. Вычислить произведение...

Вычислить произведение компонентов файла и вывести на печать
Записать в файл последовательного доступа N действительных чисел. Вычислить произведение...

Вычислить произведение компонентов файла и вывести на печать
ЛЮди добрые!! можете мне помочь в моем не легком деле?? а именно в решении задачки на C++ Вот...

Наверх