|
Решения задач на Паскале!Срочно нужно!
|
|
|
помогите решить задачу!!!надо на экзамен !понять производную.у=х в 4
|
|
|
|
не понял задания
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Помогите пожалуйста. завтра нужно сдать, а я не знаю как делать...
1. Записать фрагмент программы, позволяющей пользователю открыть файл и прочитать из него некоторые числа и записать в другой файл их среднее арифметическое.
2. Дан целочисленный файл. Создать из него 2 новых файла: в один поместить все числа, заканчивающиеся на 0, а в другой - все кратные 3 отрицательные числа. Вывести на экран содержимое всех трёх файлов.
3. Дан файл, содержащий символьную строку, удвоить все символы в строке, исключая цифры, вывести получившуюся строку в файл результата, а этот файл на экран.
|
|
|
|
Помогите пожалуйста написать программу. ОЧЕНЬ надо...
Задана матрица вещественных чисел A размерности NxN. Поменять мес-тами элементы, расположенные над главной и побочной диагоналями с эле-ментами, расположенными под ними ( первую строку с последней, вторую с предпоследней и т.д.). Размерность матрицы и значения ее элементов ввести с клавиатуры.
|
|
|
|
Помогите пожалуйста!
Составьте алгоритм и напишите программу, которая определяет сдачу с 50 рублей, возвращаемую покупателю, совершившему покупку стоимостью менее 50 рублей. Предполагается, что стоимость покупки выражается целым числом рублей. Количество банкнот (достоинством 10 рублей) и монет (достоинством 1, 2 и 5 рублей) должно быть минимальным.
|
|
|
|
Joy555
Code var pokup, rub10, mon2, mon5:integer;
begin
writeln('Введите сумму покупки (менее 50 рублей)');
readln(pokup);
if pokup<50 then
begin
rub10:=pokup div 10;
pokup:=pokup-(rub10*10);
mon5:=pokup div 5;
pokup:=pokup-(mon5*5);
mon2:=pokup div 2;
pokup:=pokup-(mon2*2);
writeln('Для сдачи необходимо выдать:');
writeln('Банкноты достоинством в 10 рублей: ',rub10);
writeln('Монеты достоинством в 5 рублей: ',mon5);
writeln('Монеты достоинством в 2 рублей: ',mon2);
writeln('Монеты достоинством в 1 рублей: ',pokup);
end else writeln('Вы ввели больше 50 рублей');
end.
№ 626 | Автор: HWOARANG |
2012-10-22, 22:22 | Изменено: HWOARANG - Пн, 2012-10-22, 22:22
|
Репутация: [ + 20 ]
|
|
|
|
Quote (HWOARANG) var pokup, rub10, mon2, mon5:integer;
begin
writeln('Введите сумму покупки (менее 50 рублей)');
readln(pokup);
if pokup<50 then
begin
rub10:=pokup div 10;
pokup:=pokup-(rub10*10);
mon5:=pokup div 5;
pokup:=pokup-(mon5*5);
mon2:=pokup div 2;
pokup:=pokup-(mon2*2);
writeln('Для сдачи необходимо выдать:');
writeln('Банкноты достоинством в 10 рублей: ',rub10);
writeln('Монеты достоинством в 5 рублей: ',mon5);
writeln('Монеты достоинством в 2 рублей: ',mon2);
writeln('Монеты достоинством в 1 рублей: ',pokup);
end else writeln('Вы ввели больше 50 рублей');
end.
Ностальгия...:D
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
Cпасибо) Добавлено (23.10.12, 13:49)
---------------------------------------------
Еще 1 задачку пожалуйста, если не трудно.....
Массивы.
В заданном векторе выполните нормировку по максимальному элементу.Для этого необходимо поделить значение всех элементов вектора на значение максимального элемента.
|
|
|
|
Помогите решить пожалуйста!
1) В условии одной из задач на этом сайте написано: “Если данное четырехзначное число является симметричным, выведите 1, иначе выведите любое другое целое число”. Для проверки задачи используются заранее подготовленные примеры и правильные ответ на них
Школьнику кажется, что он решил эту задачу, но тестирующая система почему-то не принимает его решение. Школьник думает, что это происходит оттого, что он выводит не то любое другое число, которое записано в правильных ответах.
Напишите программу, которая по ответу, записанному в тестирующей системе и по ответу школьника определяет, верно ли школьник решил задачу. Программа получает на вход два числа: ответ, записанный в тестирующей системе и ответ школьника. Программа должна вывести YES, если школьник дал верный ответ и NO в противном случае.
Ввод
11 -1 Вывод YES, Ввод 3 1 - NO
2) Требуется определить, бьет ли слон, стоящий на клетке с указанными координатами (номер строки и номер столбца), фигуру, стоящую на другой указанной клетке. Вводятся четыре числа: координаты слона и координаты другой фигуры.
Ввод: 1 1 2 2 Вывод: YES
Ввод:1 1 2 1 Вывод: NO
3) Поле шахматной доски определяется парой чисел (a, b), каждое от 1 до 8, первое число задает номер столбца, второе – номер строки. Заданы две клетки. Определите, может ли шахматный король попасть с первой клетки на вторую за один ход.
Формат входных данных
Даны 4 целых числа от 1 до 8 каждое, первые два задают начальную клетку, вторые два задают конечную клетку. Начальная и конечная клетки не совпадают. Числа записаны в отдельных строках.
Формат выходных данных
Программа должна вывести YES, если из первой клетки ходом короля можно попасть во вторую, или NO в противном случае.
4) Товар стоит a руб. b коп. За него заплатили c руб. d коп. Сколько сдачи требуется получить? Вводятся 4 числа: a, b, c и d. Необходимо вывести 2 числа: e и f, число рублей и копеек, соответственно.
№ 629 | Автор: vil_99 |
2012-10-23, 16:29 | Изменено: vil_99 - Вт, 2012-10-23, 16:29
|
Репутация: [ + 0 ]
|
|
|
|
Quote (Joy555) В заданном векторе выполните нормировку по максимальному элементу.Для этого необходимо поделить значение всех элементов вектора на значение максимального элемента.
Const
n=10;
var
a:array[1..10]of real;
i:byte;
m:real;
begin
m:=low(m);
for i:=1 to n do begin
read(a[i]);
if a[i]>m then m:=a[i];end;
for i:=1 to n do begin
a[i]:=a[i]/m;
write(a[i],' ');end;
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Помогите пожалуйста, очень срочно надо!!!
Джонатан Смит играет с машиной в итальянские кости. Условия игры такие: машина задумывает число от 0 до 50 и запрашивает последовательно ввод трех чисел, а Джонатан вводит их с клавиатуры. Если сумма чисел отличается от задуманного числа не более чем на 10% - Джон выиграл, нет - проиграл. Составить программу, реализующую игру.
№ 631 | Автор: alenka999 |
2012-11-02, 17:00 | Изменено: alenka999 - Пт, 2012-11-02, 17:07
|
Репутация: [ + 0 ]
|
|
|
|
var
first,second,third,rand,procent,sum:integer;
begin
randomize;
rand = random(51);
readln(first,second,third);
sum:=first+second+third;
procent:=sum*0.1;
if (sum+procent>rand)and(sum-procent<rand) then writeln('John win') else ('You lose');
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
помогите решить задачи,очень нужно,не могу закрыть из за них сессию
1. Оператор цикла while в Турбо Паскале.
2. Вводится размер одномерного массива A(N) и его элементы. Вывести на экран число с максимальным количеством цифр.
3. Вводится размер одномерного массива A(N) и его элементы. Составить и вывести на экран массив со значениями элементов исходного массива, кратных 5.
4. Вводится размер двумерного массива A(N,M) и его элементы. Составить одномерный массив, содержащий значения минимальных элементов в столбцах исходного массива. Полученный массив вывести на экран.
№ 633 | Автор: Digi |
2012-11-08, 22:22 | Изменено: Digi - Чт, 2012-11-08, 22:27
|
Репутация: [ + 0 ]
|
|
|
|
Составить две программы с применением функции пользователя и процедуры. Даны значения первого члена и знаменателя геометрической прогрессии. Написать функцию вычисления суммы n первых членов геометрической прогрессии.
Вычислить значения сумм для n \(\in\) {2, 4, 6, 8, 10} по формуле
$$S_{n}=\frac{b_{1}(q^{n}-1)}{q-1}$$
Помогите пожалуйста!!!
№ 634 | Автор: alenka999 |
2012-11-10, 13:47 | Изменено: alenka999 - Сб, 2012-11-10, 13:53
|
Репутация: [ + 0 ]
|
|
|
|
ПОМОГИТЕ режить 2 задачки на паскаде ПОЖАЛУЙСТА!!!!!!!!!!!!!
1)Ввести произвольную символьную цепочку. Отсортировать её символы в порядке неубывания (по алфавиту). Вывести полученную цепочку в обратном порядке.
2)Составить программу, вводящую строку строчных латинских букв и выводящую соответствующую строку прописных букв.
|
|
|
|
Quote (anyka) 2)Составить программу, вводящую строку строчных латинских букв и выводящую соответствующую строку прописных букв.
var
s:string;
i:byte;
begin
readln(s);
for i:=1 to length(s) do
write(upcase(s[i]));
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
помогите плиз!!
Задание: составить программу для проведения математических вычислений; все исходные данные, необходимые для
вычислений, вводить с клавиатуры.
По координатам трех точек на плоскости вычислить радиус
окружности, проходящей через эти точки.
Программа должна после запуска на исполнение выводить
информацию об авторе, назначении программы (приводится
лабораторное задание полностью), перед запросом ввода данных с
клавиатуры обязательно должно быть сообщение о типе и количестве
вводимых данных.
Программу составить в Free Pascal
|
|
|
|
uses crt;
function D(x1,y1,x2,y2:real):real;
begin
D:=sqrt(sqr(x1-x2)+sqr(y1-y2));
end;
var x1,y1,x2,y2,x3,y3,d1,d2,d3,s,r:real;
begin
clrscr;
writeln('Введите координаты вершин треугольника');
writeln('Вершина 1');
write('x=');readln(x1);
write('y=');readln(y1);
writeln('Вершина 2');
write('x=');readln(x2);
write('y=');readln(y2);
writeln('Вершина 3');
write('x=');readln(x3);
write('y=');readln(y3);
s:=abs((x1-x3)*(y2-y3)-(x2-x3)*(y1-y3))/2;
if s=0 then write('Окружность построить нельзя')
else
begin
d1:=D(x1,y1,x2,y2);
d2:=D(x2,y2,x3,y3);
d3:=D(x3,y3,x1,y1);
r:=d1*d2*d3/4/s;
write('Радиус описанной окружности=',r:0:2);
end;
readln
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Тема: Циклы while...do и repeat...until.
Задание: Написать две программы, которые выводят на экран заданный
набор символов. Одна программа должна использовать только цикл
while…do, а другая - только цикл repeat…until. Массивы и строки не
применять.
F
EF
DEF
CDEF
BCDEF
ABCDEFДобавлено (21.11.12, 17:50)
---------------------------------------------
Тема: Цикл с параметром, символьный (литерный) тип данных.
Задание: Написать программу при помощи операторов цикла for (без
применения массивов) для распечатки на экране монитора указанного в
варианте набора символов.
F
EF
DEF
CDEF
BCDEF
ABCDEF Добавлено (21.11.12, 17:57)
---------------------------------------------
Тема: ветвление программы (использование условных операторов и оператора
выбора).
Задание: используя оператор условия (if … then), составить программу для
вычисления составной (сложной) функции, имеющей различный вид на
разных участках аргумента. С помощью оператора выбора (case) указать на
каком отрезке находится введенное с клавиатуры значение аргумента, и
вывести значение функции в данной точке.
Функция Участки аргумента
y1= 7sin(x) – 1<=x1<– 0.5
y2=(x+1)*(x2+1)-1 – 0.5<=x2<0.5
y3=1.2sin(2x) 0.5<=x3<1
y4=-(x-0.6)2+1.25 1<=x4<=2
P.S: там где у1, 7 в степени sin(x)
|
|
|
|
Ув. программисты пожалуйста помогите решить 5 задачи. Я дуб дубом в информатике и ничего в ней не понимаю. Заранее благодарна.
1)По данному действительному числу a и натуральному n вычислите сумму 1+a+a2+...+an, не используя формулу суммы геометрической прогрессии. Время работы программы должно быть пропорционально n.
2)По данному числу n вычислите сумму 1+1/22+1/32+...+1/n2.Вводится одно число n, не превосходящее 100000.Необходимо вывести значение суммы.
3)По данному числу n вычислите сумму 4(1-1/3+1/5-1/7+...+(-1)n/(2n+1)).
4)Вычислите 1+2+22+23+…+2 N. N – натуральное, не превосходит 30
5)По данному натуральному числу N найдите сумму чисел 1+1/1!+1/2!+1/3!+...+1/N!. Количество действий должно быть пропорционально N.
|
|
|
|
