|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
02.03.2011, 19:50 | #1 |
Регистрация: 02.03.2011
Сообщений: 5
|
Программы паскаль
14. Число совершенно, если оно равно сумме всех своих делителей, кроме самого себя.
Пример: 6=1+2+3. Найдите все совершенные числа от 1 до 1000 и выведите их на экран. 15. Найдите остаток от деления двух чисел. Числа вводит пользователь. 16. Найдите n! N вводит пользователь. N!= 1*2* …*N 17. Напишите программу вычисления НОД двух чисел. Числа вводит пользователь. 18. Напишите программу вычисления НОД двух чисел. Числа вводит пользователь. 19. Напишите программу вычисления НОК двух чисел. Числа вводит пользователь. 20. Запросить у пользователя два числа. Числитель и знаменатель дроби. Вывести результат сокращения дроби, используя алгоритм нахождения НОД. 21. Вывести на экран все числа близнецы, которые меньше заданного числа N. N вводит пользователь. Два нечетных простых числа, разнящихся на 2, назвали близнецами. Например: 5 и 7, 7 и 9, 9 и 11… 22. Задать таблицу (i,j). I, J и элементы таблицы вводит пользователь. Вывести таблицу (i,j) симметричную относительно главной диагонали. 23. Задать таблицу (i,j). I, J и элементы таблицы вводит пользователь. ее на экран. 1) Вывести таблицу на экран. 2) Поменять местами столбцы справа налево. 3) Поменять местами строки сверху вниз в обратном порядке 4) Подсчитать сумму элементов, стоящих выше главной диагонали. 5) Найти min и maх число в таблице. 24. Вывести на экран концентричекие окружности разного цвета, которые «мигают». 25. Нарисовать светящееся солнце. 26. Нарисовать прямоугольники из верхнего левого угла в правый нижний. 27. Изобразить модель атома на экране. 28. Нарисовать звездное небо и солнечную систему. 29. Нарисовать дом с забором, светящееся солнце, дерево, по которому ползет божья коровка и лес перед домом. КТО что может. Заранее благодарю |
02.03.2011, 20:14 | #2 |
Форумчанин
Регистрация: 04.02.2011
Сообщений: 260
|
Что у вас не получается? если вы конечно что то пытались предпринять то выкладывайте какие проблеммы?
|
02.03.2011, 20:25 | #3 |
Регистрация: 02.03.2011
Сообщений: 5
|
я ниче не пытался я в этом програмировании дубовый
|
02.03.2011, 20:26 | #4 |
Регистрация: 02.03.2011
Сообщений: 5
|
мне все не обязательно что сможешь в ближайшее время
|
02.03.2011, 20:44 | #5 |
Форумчанин
Регистрация: 04.02.2011
Сообщений: 260
|
Задачи пустяковые, а вот если вы еще денюжкой вознагродили.
|
03.03.2011, 14:00 | #6 |
Регистрация: 02.03.2011
Сообщений: 5
|
сколько хочешь за это
|
03.03.2011, 14:14 | #7 |
Форумчанин
Регистрация: 04.02.2011
Сообщений: 260
|
не будем разводить флуд, заходитемой скайп maksim366780 или на мою кантактную страницу на форуме
|
04.03.2011, 17:09 | #8 |
Новичок
Джуниор
Регистрация: 03.03.2011
Сообщений: 4
|
Помогите пожалуйста разобраться с программой, в чём ошибка, просто не понимаю до конца, как писать подпрограммы в Паскале. А условие такое : вычеслить z=(x1+y1)/(x2-y2), где х1,х2-корни уравнения 2x^2+x-c=0, a y1,y2 корни ax^2+x-4=0, нахождение корней квадратного уравнения оформить в виде подпрограммы.
Program P1; uses crt; var a,c,x1,x2,y1,y2,x:integer; z,y:real; Procedure sust (x1,x2,y1,y2,a,c,b,D:real); begin write('zadaite c='); readln©; D:=1+8*c; if D>0 then begin x1:=(-1+sqrt(D))/4; x2:=(-1+sqrt(d))/4; writeln('x1=',x1:5:2, 'x2=',x2:5:2); end else if D=0 then writeln ('x1=x2=', -1/4) else writeln ('koreniv nemae'); write ('zadaite a='); readln(a); D:=1+8*a; if D>0 then begin y1:=(-1+sqrt(D))/2*a; y2:=(-1-sqrt(D))/2*a; writeln ('y1=',y1:5:2, 'y2=',y2:5:2); end else if D=0 then writeln('y1=y2=', -1/(2*a)) else writeln('koreniv nemae'); end; begin write('vvedite znachenie a,c='); readln(a,c); z:=(x1+y1)/(x2-y2); writeln('z=',z:5:2); readkey end. |
05.03.2011, 12:51 | #9 | |
Форумчанин
Регистрация: 04.02.2011
Сообщений: 260
|
Ужас та какой!
Код:
Цитата:
коли создали процедуры так используйте их. Последний раз редактировалось Летучий_СкилетиК; 05.03.2011 в 12:55. |
|
05.03.2011, 16:18 | #10 |
Новичок
Джуниор
Регистрация: 03.03.2011
Сообщений: 4
|
а, ну да, теперь-то мне стало всё понятно, спасибо за помощь
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
программы. паскаль. | Fouraces | Помощь студентам | 1 | 24.10.2009 01:20 |
4 программы на Паскаль | 4ERRY | Фриланс | 4 | 26.04.2009 22:02 |
Паскаль...2 программы... | Оксаночка:) | Помощь студентам | 9 | 02.04.2009 00:40 |
паскаль...2 программы... | Оксаночка:) | Помощь студентам | 8 | 01.04.2009 23:32 |