Форум программистов, компьютерный форум, киберфорум
Наши страницы
Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
Александрик
5 / 5 / 7
Регистрация: 15.03.2012
Сообщений: 77
1

Проверьте Алгоритм Pascal И как его переписать на FBasic

18.05.2012, 06:28. Просмотров 803. Ответов 2
Метки нет (Все метки)

Приветствую всех у меня опять возникла проблемка только уже с другим.

Надо :

Составить программу вывода всех трехзначных чисел, сумма цифр которого равна данному натуральному числу.

На Pascal она выглядит так :

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
const n=9;
Procedure symma (n:integer);
var d,i,j,k:integer;
begin
clrscr;
randomize;
writeln ('vvedite d: '); readln (d);
writeln  ('cifri: ');
for i:=0 to n do begin
for j:=0 to n do
for k:=0 to n do
if d=i+j+k then begin
writeln;
write (i,j,k);
end;
end;
end;
var i,s:integer;
begin
symma (n);
readkey;
end.

Мне нужно написать туже программу тоесть

Составить программу вывода всех трехзначных чисел, сумма цифр которого равна данному натуральному числу.

Только на FreeBASIC /!!! Заранее благодарю в любой помощи.



Добавлено через 32 минуты
Форумучане помогите СРОЧНО НАДО ДО ЗАВТРА СДЕЛАТЬ.!!!!!

Добавлено через 4 часа 34 минуты
помогите !!!
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.05.2012, 06:28
Ответы с готовыми решениями:

Как с Pascal ABC переписать данный код на C#?
Сам код на Pascal ABC uses crt; {принадлежит ли точка прямой} function Prin(ax, ay, bx, by, cx,...

Переписать программу с Turbo Pascal на Pascal ABC
Здравствуйте, не могли бы помочь переписать программу с Turbo Pascal на Pascal ABC. Хоть убейте не...

Переписать программу с Turbo Pascal на Pascal ABC
Нужно переделать программу,написанную на Turbo Pascal в ту,чтобы работала на Pascal ABC. Помогите...

Переписать программу с Turbo Pascal на Pascal ABC
Помогите пожалуйста перевести код с Turbo Pascal на Pascal ABC uses graph,crt; const n=20;...

Переписать код из Turbo Pascal в pascal ABC
очень плохо знаю Turbo Pascal, а времени на изучение нет, а его надо переписать в Pascal ABC, буду...

2
Pro_grammer
Модератор
6181 / 2265 / 443
Регистрация: 24.04.2011
Сообщений: 4,019
Записей в блоге: 10
18.05.2012, 08:02 2
Лучший ответ Сообщение было отмечено Александрик как решение

Решение

Цитата Сообщение от Александрик Посмотреть сообщение
Только на FreeBASIC
Исправил неточность - исключил числа вида 0ХХ ( вряд ли их можно считать трехзначными)
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Const n = 9
Function symma() As Integer
Dim d As Integer: Dim i As Integer: Dim j As Integer : Dim k As Integer
'Print "vvedite d: "
Input "vvedite d: ",d ' Этот вариант для Basic более применим
Print "cifri: "
for i=1 to n 
  for j=0 to n 
    for k=0 to n 
        If d=i+j+k then 
            Print i & j & k
        End If
    Next
  Next
Next
 
End Function
 
Dim i As Integer 
 
 
 symma
Input "",i
End
0
Александрик
5 / 5 / 7
Регистрация: 15.03.2012
Сообщений: 77
18.05.2012, 20:40  [ТС] 3
Спс За помощь.!!!! но чуть чуть припоздали...

Задание:

Составить программу вывода всех трехзначных чисел, сумма цифр которого равна данному натуральному числу.


Программный код:

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
PRINT " "
print "Zadanie 1"
input "Vvedite N dla proverki=";N
 
for a=100 to 999
    m=a:s=0
    while (m<>0)
        k=m mod 10
        S=S+k
        m=m\10
    wend 
if S=N then print "a=";a;" ";
next a
INPUT Z
Работает все нормально.!!!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.05.2012, 20:40

Переписать код из Turbo Pascal в Pascal ABC
program zadacha; uses crt, graph; const m=50; var gd,gm,i,j,s1,s2,c1,c2: integer;...

Переписать код из Turbo Pascal в Pascal ABC
Переписать код из Turbo Pascal в Pascal ABCprogram zadacha; uses crt, graph; const m=150; var...

Переписать код из Turbo Pascal в Pascal ABC
Переписать код из Turbo Pascal в pascal ABCprogram zadacha; uses crt, graph; const m=50; var...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru