|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
19.06.2009, 13:32 | #1 |
Пользователь
Регистрация: 17.06.2009
Сообщений: 17
|
Помогите решить задачу на Паскале с использованием подпрограмм.
составить программу решения задачи с использованием подпрограмм.
Написать программу, которая находит и выводит на печать все четырехзначные числа вида abcd, для которых выполняется условие ab-cd=a+b+c+d. Последний раз редактировалось Evgo; 20.06.2009 в 01:08. Причина: Изменение важности задания. |
19.06.2009, 21:37 | #2 |
Пользователь
Регистрация: 17.06.2009
Сообщений: 17
|
Программа без подпрограмм выглядит:
Program zadacha4_2; uses crt; Var a:array[1..4] of integer; b:array [1..9000] of integer; i,j,k,x:integer; begin clrscr; j:=0; for i:=1000 to 9999 do begin j:=j+1; b[j]:=i; end; for i:=1 to 9999 do begin j:=0; x:=b[i]; repeat j:=j+1; a[j]:=x mod 10; x:= x div 10; until (x=0); if (a[1]*10+a[2]-a[3]*10-a[4]=a[1]+a[2]+a[3]+a[4]) then begin for k:=1 to 4 do write(a[k]); write(' '); end; end; end. Где можно вставить подпрограммы? |
20.06.2009, 00:11 | #3 |
Участник клуба
Регистрация: 16.03.2009
Сообщений: 1,013
|
как-нибудь так
Код:
Uguu~
|
20.06.2009, 00:46 | #4 |
Пользователь
Регистрация: 17.06.2009
Сообщений: 17
|
По условию a*10+b-c*10-d=a+b+c+d, а не a*b-c*d=a+b+c+d. После этого исправления программа показывает правильные числа. Спасибо за помощь.
|
20.06.2009, 00:47 | #5 | ||
Участник клуба
Регистрация: 16.03.2009
Сообщений: 1,013
|
Цитата:
Цитата:
Uguu~
|
||
20.06.2009, 00:51 | #6 |
Пользователь
Регистрация: 17.06.2009
Сообщений: 17
|
|
20.06.2009, 00:53 | #7 | |
Участник клуба
Регистрация: 16.03.2009
Сообщений: 1,013
|
Цитата:
*** в общем не суть. главное - работает
Uguu~
|
|
20.06.2009, 01:02 | #8 |
Пользователь
Регистрация: 17.06.2009
Сообщений: 17
|
Это верно, а мне пока нужно другое задание делать.
|
20.06.2009, 16:29 | #9 |
Пользователь
Регистрация: 18.06.2009
Сообщений: 16
|
помогите пожалйста
Дан двумерный массив, содержащий N*N элементов. Написать подпрограмму, выполняющую замену нулями всех элементов, расположенных на главной диагонали матриц. |
20.06.2009, 18:31 | #10 |
Участник клуба
Регистрация: 16.03.2009
Сообщений: 1,013
|
вы издеваетесь??
Код:
Uguu~
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите решить задачу в Паскале? | ТолянPAVL | Помощь студентам | 3 | 15.06.2009 19:27 |
Помогите решить задачу на паскале | Bauyrzhan | Помощь студентам | 2 | 30.05.2009 10:20 |
Решить задачу с помощью подпрограмм | Fonarik | Помощь студентам | 1 | 07.11.2008 22:30 |