Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Zai
0 / 0 / 0
Регистрация: 15.06.2015
Сообщений: 33
#1

Как написать такую программку на паскале?

16.12.2015, 16:13. Просмотров 768. Ответов 1
Метки нет (Все метки)

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
INPUT"Введите N ",n
    r=-1
    p=1
    FOR i=1 TO n
    p=p*i*3*r
    r=-r
    NEXT
    PRINT"произведение=";p
    
    INPUT"введите N ",n
    r=-1
    p=1
    FOR i=1 TO n
    p=p+i+3+r
    r=-r
    NEXT
    PRINT"сумма=";p
Я вообще правильно сделал?
написать программу вычисляющую и выдающую на печать сумму/произведение бесконечного числового ряда : y = (-3)6(-9)12(-15)....
Помогите эту программу в паскаль перевести.

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

0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.12.2015, 16:13
Ответы с готовыми решениями:

как на паскале написать кнопку
как на паскале написать кнопку, когда на неё нажать что-бы вылезло меню ? (жать...

как написать функцию в паскале y=lnx+cos2x?
y=lnx+cos2x?

написать программку в виде теста
Я студент нам дали задание написать программку в виде теста чтобы был тест по...

Написать программку, которая имитирует экзамен
Нужно написать программку,которая имитирует экзамен,в котором 75 студентов...

Как на паскале написать |sinx/3,12+cosx2|-8,3sin3x подскажите пожалуйста
cos|2x|/1,12-cos(3x-2)+6,15

1
echs
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
16.12.2015, 18:51 #2
Лучший ответ Сообщение было отмечено Zai как решение

Решение

Это перевод на Turbo Pascal.
Я исправил в вашей программе ошибку (у вас строка 12.)
(Должно быть p=0) и убрал ненужные повторения.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
uses crt;
var
   n,r,p,i: longint;
 
BEGIN
   clrscr;
   write('N = ');
   readln(n);
   r:= -1;
   p:= 1;
 
   for i:= 1 to n do begin
      p:= p * i * 3 * r;
      r:= -r
   end;
   writeln('PROIZVEDENIE = ', p);
 
   p:= 0;
 
   for i:= 1 to n do begin
      p:= p + i + 3 + r;
      r:= -r
   end;
   writeln('SUMMA = ', p);
   readln
END.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.12.2015, 18:51

Как написать программу в Паскале посредством циклических конструкций или арифметических циклов?
Найти количество делителей натурального числа. Сколько среди них четных?

Написать в Паскале
Составить программу, которая выводит перечень информации языка Паскаль имеющих...

Написать последовательность в паскале
Написать программу котороя выводит на экран последовательность чисел 1 2 3 ......


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru