Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.05.2008, 14:17   #1
forsy
 
Аватар для forsy
 
Регистрация: 16.05.2008
Сообщений: 8
По умолчанию нужна ваша помощь!

Я в программировании не силен, поэтому прошу ващей помощи!
В общем нужно найти сумму и разность дробных чисел введенных с клавиатуры, например (23.345 и 34.67) и округлить до 2-х цифр после запятой. Программа должна работать на Turbo Pascal, а сами вычисления должны быть ввиде ассемблерной вставки!
Кто сможет напишите прошку или дайте ссылочку где можно что нибудь найти!
forsy вне форума Ответить с цитированием
Старый 17.05.2008, 10:56   #2
ShnapS
Пользователь
 
Регистрация: 15.05.2008
Сообщений: 44
По умолчанию

Незнаю что там с ассемблерной вставкой вот программа на Паскале

program summa;
uses crt;
const n=10;
var
A:array[1..n]of real;
i:integer;
S:real;

begin
clrscr;
for i:=1 to n do begin
write('A[',i,']= ');
readln(A[i]);
end;
for i:=1 to n do begin

S:=S+A[i];
end;
writeln('Сумма элементов массива S= ',S:4:2);
end.
ShnapS вне форума Ответить с цитированием
Старый 19.05.2008, 14:38   #3
forsy
 
Аватар для forsy
 
Регистрация: 16.05.2008
Сообщений: 8
По умолчанию

Цитата:
Сообщение от ShnapS Посмотреть сообщение
Незнаю что там с ассемблерной вставкой вот программа на Паскале

program summa;
uses crt;
const n=10;
var
A:array[1..n]of real;
i:integer;
S:real;

begin
clrscr;
for i:=1 to n do begin
write('A[',i,']= ');
readln(A[i]);
end;
for i:=1 to n do begin

S:=S+A[i];
end;
writeln('Сумма элементов массива S= ',S:4:2);
end.
Я молелько другое спрашивал, массивы не надо
forsy вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
прога на С/С++(нужна ваша помощь) AlterEgo Помощь студентам 1 09.09.2007 18:41
нужна ваша помощь SashaB Общие вопросы Delphi 20 19.11.2006 15:57