Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Даны действительные X1, X2,… Даны действительные X1, X2,…,Xn; Y1,Y2,…,Yn. Преобразовать данные последовательности по правилу: Если они оба отрицательные, то каждый из них увеличить на 0,5; Если отрицательное только одно, то отрицательное заменить квадратом; Если оба числа положительные, то каждое из них заменить на среднеарифметическое исходных данных Зарание спасибо. Добавлено через 6 часов 0 минут Помогите... https://www.cyberforum.ru/ turbo-pascal/ thread1598612.html	Ошибка при выполнении программы Turbo Pascal На строке 58 при выполнении программы вылезает ошибка 201: Ошибка проверки диапазона. Что не так? uses crt; type stud=record fam,grp:string; end; mas=array of stud; procedure ReadFile(var f:text;var a:mas;var n:integer;var b:byte); var nf,s:string; begin
Turbo Pascal Вычислить число сочетаний из n по m https://www.cyberforum.ru/ turbo-pascal/ thread1598577.html ДА И НЕ В ТОМ ВОЗРАСТЕ ЧТОБЫ ТАКОЕ ПОЗНАВАТЬ. НО ВОТ ПРИШЛОСЬ ИДТИ НА ЗАОЧНОЕ ОТДЕЛЕНИЕ А ТАМ ЕЩЕ И ИНФОРМАТИКА СЕГОДНЯ ЗАДАНИЕ ЗАДАЛИ Вычислить число сочетаний из n по m Сn в степени м= n! /(m!(n-m)!). (Сn в степени м)-написал прописными не вставляется как это сделано в Майкрософт ворд Я В УПОР НЕ ЗНАЮ ЧТО С ЭТИМ ДЕЛАТЬ ЧИТАЛ КНИГУ В БИБЛИОТЕКЕ НО ЭТО ЛеС ДРЕМУЧИЙ	Turbo Pascal Использование процедур Даны два одномерных символьных массива состоящие из заглавных букв русского алфавита. Подсчитать сколько в них раз встречается буква "ф" https://www.cyberforum.ru/ turbo-pascal/ thread1598556.html
Turbo Pascal Файлы произвольного доступа в Pascal Даны результаты аттестации группы по нескольким предметам. Запрограммировать ввод и удаление результатов, их просмотр, поиск результатов по Ф.И.О., расчет и вывод итогов в порядке убывания средних баллов.	Turbo Pascal Вычислить сумму всех чисел в файле и записать ее в конец файла https://www.cyberforum.ru/ turbo-pascal/ thread1598533.html Записать в файл последовательного доступа N действительных чисел. Вычислить сумму всех чисел в файле и записать ее в конец файла.
Turbo Pascal Использование процедур https://www.cyberforum.ru/ turbo-pascal/ thread1598531.html Дан произвольный числовой массив(одномерный). Вычислить в нем суммы элементов с номеров N1 по N2 и с N3 по N4(вводятся с клавиатуры)	Turbo Pascal Функции и процедуры 1. написать функцию которая считает в строке количество слов начинающихся на букву 'b' 2. написать процедуру которая вставляет после 'a' следующее: 'A'
Turbo Pascal Работа с массивами переменной длины Дана матрица, состоящая из n строк и n столбцов или одномерные массивы из n эдекментов каждый. Составить алгоритм и программу для получения вывода указанных в условии результатов и самих массивов, если изменялись какие - либо их элементы. Алгоритм любой задачи может быть составлен с использованием единственного двухкратного цикла. Вариант 1. Найти среднее арифмитическое неотрицательных... https://www.cyberforum.ru/ turbo-pascal/ thread1598286.html	Turbo Pascal Cортировкf одномерного массива по убыванию методом прямого выбора. https://www.cyberforum.ru/ turbo-pascal/ thread1598153.html Разработать программу реализирующую сортировку одномерного массива по убыванию методом прямого выбора.
Рисование фигур по нажатию клавиш. Turbo Pascal Написать программу, чтобы при нажатии клавиши "р" рисовала бы круг, при нажатии клавиши "Ь" рисовала бы прямоугольник, при нажатии клавиши "f" рисовала бы закрашен прямоугольник, при нажатии клавиши Esc завершала бы работу. После рисования каждой фигуры она должна стираться.	Turbo Pascal Функции https://www.cyberforum.ru/ turbo-pascal/ thread1598125.html Имеется часть катушки с автобусными билетами. Номер билета шестизначный. Составить программу, определяющую количество счастливых билетов на катушке, если меньший номер билета - N, больший - M (билет является счастливым, если сумма первых трех его цифр равна сумме последних трех).

Puporev

Почетный модератор

64299 / 47594 / 32743

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

Сообщений: 115,181

01.12.2015, 17:11

Программа по вложенным циклам - Turbo Pascal - Ответ 8422355

01.12.2015, 17:11. Показов 1017. Ответов 3

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

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

Решение

Pascal

uses crt;
function prz(x:real):real;
var n:byte;
    p:real;
begin
p:=1;
for n:=1 to 8 do
p:=p*x/n;
prz:=p;
end;
function sum(x:real):real;
var n:byte;
    s:real;
begin
s:=0;
for n:=0 to 5 do
s:=s+1+x*n;
sum:=s;
end;
var x,z:real;
begin
clrscr;
x:=0.5;
while x<=4 do
 begin
  if x<=2 then z:=prz(x)
  else z:=sum(x);
  writeln('x=',x:3:1,' z=',z:12:8);
  x:=x+0.5;
 end;
readln
end.

Вернуться к обсуждению:
Программа по вложенным циклам Turbo Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

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

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

01.12.2015, 17:11

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

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

Задача по вложенным циклам
Здравствуйте! Помогите растолковать код, не могу понять какой цикл к чему относится. Вот задача:...

Программа по циклам
Дано число, например 213. Если какая-нибудь из этих цифр в данном числе меньше среднего...

Программа по простейшим циклам
Даны натуральное число n и действительное число x. Составить программу для вычисления значения...

	01.12.2015, 17:11

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

01.12.2015, 17:11

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

Программа с вложенным циклом
Здравствуйте, очень нужна помощь в решении одной задачки. Вообщем нужно написать имя с помощью это...

Программа С++ по циклам (циклические структуры)
Мне нужен исходник вот такой программы, если не сложно напишите :) Найти наименьший номер...

По Циклам
Кто-нибудь помогите!! Вот код: int k; float amply; for(int X=R1.Left;X<R1.Right;X++) ...

с++, по циклам. B описании:
1. А) 1/a+1/(a(a+1))+...+1/(a(a+1)...(a+n) Б) П(сверху 52, снизу i=1): (i*i)/(i*i+2*i+3) Циклы и...

Наверх