|
|
| Другие темы раздела | |
| Pascal Оценки по фигурному катанию Для того чтобы судейство в фигурном катании было объективным,соревнования транслируются по интернету и зрители могут выставлять свои оценки,а в зачет идёт среднее арифметическое,всех зрительских оценок.Необходимо написать программу,которая подсчитывая бы изменение среднего бала по мере поступления оценок очередного зрителя.Напомним что по правилам Федерации фигурного катании,выступления фигуриста... https://www.cyberforum.ru/ pascal/ thread17030.html |
Одномеры и двумеры Pascal ОДНОМЕРНЫЕ МАССИВЫ Общие указания при составлении программ к данной теме: 1. Размер массива задать константой в блоке описания. 2. Массив заполнить случайными числами, если другого заполнения не диктует задача. 3. Вывести исходный массив и массив после преобразования по условию задачи. В массиве С все элементы, большие среднего арифметического положительных чисел, заменить на... |
|
Pascal Заполнить массив из 100 элементов случайными целыми числами в диапазоне от 1 до 100
https://www.cyberforum.ru/ pascal/ thread16987.html Мне очень нужна помощь, надеюсь откликнетесь... помогите написать, пожалуйста! 1. Заполнить массив из 100 элементов случайными целыми числами в диапазоне от 1 до 100. 2. Вывести массив на экран в строку 3. Отсортировать массив с помощью процедуры, построенной следующим образом: пока длинна сортируемого отрезка массива больше 10, использовать для сортировки этого отрезка улучшенный метод... |
Pascal Треугольники
https://www.cyberforum.ru/ pascal/ thread16983.html rebiata pomogite pojaluisto nujno sdelat' treugol'niki takogo tipa: 54321 5432 543 54 5 ili napadobe, no bez ispol'zovaniia string i bez massiva, 4tobi n vvodilsia s klavi....* |
|
Pascal Переставляя строки и столбцы матрицы, добиться того, чтобы наибольший элемент оказался в верхнем левом углу {Программа. Дана (построчно) вещественная матрица размером 7x4. Переставляя ее строки и столбцы, добиться того , чтобы наибольший элемент (один из них) оказался в верхнем левом углу.} program p6_2; uses crt; var i,j:integer; big:integer; x:array of integer; |
Pascal Вычисление суммы трех матриц Program Sum_Matrix; Uses {Подключаемый модуль для управления экраном} crt; Const Fname1='file1.txt'; Fname2='file2.txt'; Type Matrix=array of real; https://www.cyberforum.ru/ pascal/ thread16972.html |
| Pascal Фальшивомонетчики. Фальшивомонетчики. Один очень неграмотный и неопытный фальшивомонетчик напечатал купюры достоинством а1, а2,..аN и пошел в магазин. Однако владелец магазина тоже оказался фальшивомонетчиком, так что в кассе магазина были купюры достоинством b1,b1,..bN. Получиться ли у фальшивомонетчика-покупателя купить товар стоимостью Х рублей? Сделка считается состоявшейся, если покупатель и продавец смогли... https://www.cyberforum.ru/ pascal/ thread16970.html |
Pascal mne nujno vivesti treugol'niki iz tsifr Help me plz, esli mojete....* mne nujno vivesti treugol'niki iz tsifr, bez massiva v proge pascal...* Naprimer: 54321 5432 543 54 5 mojno i drugogo vida....* pojaluista!* |
| Pascal while & repeat pascal Pomogite, vse ne tak i vse ne to! Vot zadanie 7. Напишите три программы (одну с использованием оператора For, другую с использованием оператора While и третью с использованием оператора Repeat) которые считывают с клавиатуры n целых чисел (n≤100) и вычисляют количество положительных, отрицательных и нулевых чисел. For uje est'... pojaluista help me!!!!:wall: https://www.cyberforum.ru/ pascal/ thread16952.html |
Pascal Лабораторные (частично готовые)
https://www.cyberforum.ru/ pascal/ thread16921.html Пожалуйста, помогите с решением задач (проблемы стандартные - Паскаль почти не знаю, лабораторные надо сдать, придирчивый лаборант, которому всё объяснить надо). Код желательно как можно более простой для понимания (пусть в ущерб производительности, количеству строк и прочим полезным вещам). Заранее спасибо! Лабораторная № 3. 1. Для заданного целого n вычислить сумму 1(в первой... |
|
Pascal Вывести координаты строк и столбцов матрицы,через которые проходит путь в сторону увеличения чисел из любой заданной позиции. В матрицу 8x8 занесены числа натурального ряда.Вывести координаты строк и столбцов,через которые проходит путь в сторону увеличения чисел из лю- бой заданной позиции. (Т.е. для текущего эл-та матрицы проверить, есть ли среди соседних элементов по вертикали, горизонтали и диагоналям элементы, большие, чем текущий, выбрать среди них наибольший и повторить процесс). |
Pascal Работа со строками Помогите исправить ошибку в задаче: В заданном тексте подсчитать среднее количество слов в предложениях из файла. Файл он открывает, но среднее кол-во слов всег равно одному.Где ошибка ? program zadacha; uses wincrt; const zp=; {лишние знаки препинания} zo=; {знаки конца предложения} var s,s1:string; filetext:text; str1,str2:string; i,j,ks,kp:integer; https://www.cyberforum.ru/ pascal/ thread16904.html |
|
15 / 15 / 5
Регистрация: 26.11.2008
Сообщений: 94
|
|
| 29.11.2008, 20:12 | 0 |
помогите решить несколько задач - Pascal - Ответ 7746229.11.2008, 20:12. Показов 1876. Ответов 10
Метки (Все метки)
Ответ
номер 4
 Код
Program Ex68;
uses crt;
var i,n:integer; d,a:real;
begin
clrscr;
writeln('vvedit n'); readln(n);
writeln('vvedit a'); readln(a);
d:=a;
for i:=1 to n do d:=d*(a-i*n);
writeln(d:6:2);
readln
end.
Вернуться к обсуждению: помогите решить несколько задач Pascal
1
|
|
| 29.11.2008, 20:12 | |
|
Готовые ответы и решения:
10
Решить несколько задач Решить 5 задач Решить несколько задач Несколько задач |
| 29.11.2008, 20:12 | |
| 29.11.2008, 20:12 | |
|
Помогаю со студенческими работами здесь
0
Решить 10 задач Решить несколько задач по ссылке с Вконтакта Помогите решить несколько задач на Borland C++
|
Наверх