Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Zai
0 / 0 / 0
Регистрация: 15.06.2015
Сообщений: 33
#1

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

16.12.2015, 16:13. Просмотров 164. Ответов 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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.12.2015, 16:13
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Как написать такую программку на паскале? (Pascal):

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

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

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

Написать программку, которая имитирует экзамен - Pascal
Нужно написать программку,которая имитирует экзамен,в котором 75 студентов обозначенных числами от 1..75 и 26 билетов,обозначенных...

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

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

1
echs
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
16.12.2015, 18:51 #2
Это перевод на 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
Привет! Вот еще темы с ответами:

Написать последовательность в паскале - Pascal
Написать программу котороя выводит на экран последовательность чисел 1 2 3 ... 10 и 10 9 8 ... 1 (используя инструкцию для цикла с...

написать прграмму на паскале - Pascal
помогите написать программу с клавиатуры вести 3 числа А,В,С ЕСЛИ ВСЕ ОНИ четные то найти и вывести их сумму на экран, если все они...

Написать блок схемы в паскале - Pascal
часть вторая

Написать блок схемы в паскале - Pascal
Файл прикрепила.Это первая часть


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

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

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