сервис вопросов и ответовНаписать программу на turbo pascal.
10-11 класс|
|
1.Вычислить значение факториала n! (P=1*2*...*n*N)..N=12
2.Найти сумму элементов заданного массива C[1..n]. Данные для ввода: n=7; C[1;2;3;-4;5;-6;7].
3.
Прикрепленные изображения
АнастасияМаська
18 июня 2013 г., 11:00:31 (10 лет назад)
Dasha212
18 июня 2013 г., 11:53:58 (10 лет назад)
var
y, n, i: integer;
begin
n := 12;
y := 1;
i := 1;
repeat
y *= i;
i += 1;
until i > n;
writeln(y);
end.
------------------------------
var
y, n, i: Integer;
c: array of integer;
begin
readln(n);
setlength(c, n);
for i := 1 to n do
begin
write('c[', i, '] => ');
readln(c[i - 1]);
y := y + c[i - 1];
end;
writeln(#13, y);
end.
----------------------------------
const
a = 20.3;
var
f, x: real;
begin
readln(x);
if (x > 1) then
f := ln(x + 1)
else
f := sqr(cos(sqrt(abs(a * x))));
writeln(f);
end.
Katay562k
18 июня 2013 г., 13:17:09 (10 лет назад)
1)
const
n=12;
var
i,p:integer;
begin
p:=1;
for i:=1 to n do
p:=p*i;
writeln(P);
end.
2)
const
n=7;
varc:array[1..7]of integer;
i,s:integer;
begin
for i:=1 to n do
begin
readln(c[i]);
s:=s+c[i];
end;
writeln(s)
end.
Ответить
Другие вопросы из категории
Читайте также
написать программу на Assembler
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
программа на C++ в визуальном режиме (есть несколько вариантов кода программы)
доброй ночи, уважаемые программисты и успевающие в учебе студенты. помогите, пожалуйста, написать программу на C++ (в визуальной вкладке).
ВОТ ЗАДАНИЕ:
дано три переменные вещественного типа. если их значения упорядочены по возрастанию или убыванию, то удвоить их; иначе заменить значение каждой переменной на противоположное. вывести значения переменных.
я прикрепила несколько тестовых файлов (блокнот) в которых есть несколько вариантов решение этого задание (то есть коды программ), а вы скажите какой из них лучше всего подходит, а также скажите какие компоненты нужно кинуть на форму-дизайн (то есть какие кнопки, и что на них писать). в этих 3 файлов есть написанный код программы, нужно написать: на какие кнопки что писать и какой вариант решение больше подходит.
заранее огромное спасибо всем за помощь!!!
Помогите написать программу по Информатике! Найти произведение двузначных нечетных чисел, кратных
13.
Нужно написать программу на цикле с предусловием, на Паскале.
Написать программу, которая вводит с клавиатуры одномерный массив из n целых чисел, после чего выводит нулевые элементы с их индексами (их можно и не
оказаться)
нужно написать программу на c++
Используя обращения 1) по индексу и 2) по указателю.
Помогите написать программу на C#
Дано натуральное число n. Написать программу вычисляющую сумму
Вы находитесь на странице вопроса "Написать программу на turbo pascal.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.