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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 05.04.2012, 22:39   #1
NXZ
 
Регистрация: 24.03.2011
Сообщений: 9
По умолчанию Составить программу вычисления выражения

4.JPG
var
i,g:integer;
y,x:real;
BEGIN
write('x = ');read(x);
y:=0;
for i:=1 to 4 do
for g:=1 to 5 do
y:=y+i*g-ln(x);
writeln('y = ',y);
END.
Киньте тему ,где можно прочитать про сложные вложенные циклы.
NXZ вне форума Ответить с цитированием
Старый 05.04.2012, 23:04   #2
NXZ
 
Регистрация: 24.03.2011
Сообщений: 9
По умолчанию

var
i,g:integer;
x,y,s1,s2:real;
begin
read(x);
s1:=0;
for i:=1 to 4 do
begin
s2:=0;
y:=y+i*g-ln(x);
s2:=s2+y;
end;
s1:=s1+s2;
end;
NXZ вне форума Ответить с цитированием
Старый 05.04.2012, 23:15   #3
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,285
По умолчанию

Насчет почитать, ничего не посоветую (сам просто не читал )
Код:
Uses CRT;
var
i,g:integer;
x,y:real;
begin
readln(x);
y:=0;
for i:=1 to 4 do
  for g:=1 to 5 do
    y:=y+i*g-ln(x)/ln(10);
writeln(y:5:5);
readln;
end.
У вас все правильно написано (просто в паскале натуральный логарифм,а в условии десятичный).
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA на форуме Ответить с цитированием
Старый 05.04.2012, 23:23   #4
NXZ
 
Регистрация: 24.03.2011
Сообщений: 9
По умолчанию

Я не верю,что написано правильно)))
NXZ вне форума Ответить с цитированием
Старый 05.04.2012, 23:26   #5
NXZ
 
Регистрация: 24.03.2011
Сообщений: 9
По умолчанию

А вот как блок схему сделать и на языке алгоритмов сделать?)
NXZ вне форума Ответить с цитированием
Старый 05.04.2012, 23:53   #6
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,285
По умолчанию

Язык алгоритмов не знаю.
Изображения
Тип файла: jpg блоксхема.jpg (20.9 Кб, 136 просмотров)
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA на форуме Ответить с цитированием
Старый 05.04.2012, 23:59   #7
NXZ
 
Регистрация: 24.03.2011
Сообщений: 9
По умолчанию

Спасибо большое !
NXZ вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Исправтье программу вычисления выражения? unnoder Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 2 30.05.2011 06:22
составить программу вычисления значений Y Настька Помощь студентам 6 20.02.2011 13:49
Составить программу вычисления выражения и выведения полученного результата на экран.тема ФУНКЦИИ. coolbaba Общие вопросы Delphi 1 03.06.2010 03:31
8. Составить программу для расчета выражения ivil19 Помощь студентам 4 11.03.2010 18:25