2014 dxdy logo

Научный форум dxdy

Математика, Физика, Computer Science, Machine Learning, LaTeX, Механика и Техника, Химия,
Биология и Медицина, Экономика и Финансовая Математика, Гуманитарные науки




Начать новую тему Ответить на тему На страницу 1, 2  След.
 
 прошу помогите начинающему програмисту
Сообщение19.10.2009, 10:45 


19/10/09
6
помогите решить ети задачи плизз

1.Из данного натурального числа удалить все цифры А.(через циклы)
4.Дана матрица размера 5 x 10. Поменять местами столбцы, содержащие минимальный и максимальный элементы матрицы. (методом пошаговой детализации)
3.Найти корни биквадратного уравнения ax4+bx2+c=0, используя подпрограмму для поиска корней квадратного уравнения.(процедур и функций)
2.Дан квадратный массив размерностью 5х5. Найти произведение элементов массива, расположенных в строках, которые начинаются с отрицательного элемента.( через двумерный массив)

 Профиль  
                  
 
 Re: прошу помогите начинающему програмисту
Сообщение19.10.2009, 10:56 
Заслуженный участник


09/08/09
3438
С.Петербург
И где хоть какие-нибудь самостоятельные попытки решения?

 Профиль  
                  
 
 Re: прошу помогите начинающему програмисту
Сообщение19.10.2009, 11:01 


19/10/09
6
я не знаю как с паскаля их копировать

 Профиль  
                  
 
 Re: прошу помогите начинающему програмисту
Сообщение19.10.2009, 11:06 
Заслуженный участник


09/08/09
3438
С.Петербург
Warlock164 в сообщении #252943 писал(а):
я не знаю как с паскаля их копировать
Сохраняете в файл, открываете этот файл, например, Notepad'ом, дальше - через Clipboard.

-- Пн окт 19, 2009 12:13:27 --

Только в теги code не забудьте заключить.

 Профиль  
                  
 
 Re: прошу помогите начинающему програмисту
Сообщение19.10.2009, 11:21 


19/10/09
6
код: [ скачать ] [ спрятать ]
Используется синтаксис Pascal
Program z4n20;
Uses crt;
var e,a,rez:real;
    fak,n:integer;
Begin
     clrscr;
     e:=1;
     n:=1;
     a:=0.00001;
     rez:=0;
     fak:=1;
     repeat
     if odd(n) then
     e:=(-1)/(((2*n)*fak)*(n*fak))
     else
     e:=(1)/(((2*n)*fak)*(n*fak));
     n:=n+1;
     fak:=fak+1;
     rez:=rez+e;
     until abs(e)<=a;
     Writeln('OTBET= ' ,rez:6:4);
     writeln('4uCJIO CJIaraeMblX=' , n);
     readln;
end.

какаято ошибка в зеро

 Профиль  
                  
 
 Re: прошу помогите начинающему програмисту
Сообщение19.10.2009, 11:31 
Заслуженный участник


09/08/09
3438
С.Петербург
Warlock164 в сообщении #252949 писал(а):
какаято ошибка в зеро

А условие-то задачи какое?

 Профиль  
                  
 
 Re: прошу помогите начинающему програмисту
Сообщение19.10.2009, 11:33 
Заслуженный участник


11/05/08
32166
Warlock164 в сообщении #252943 писал(а):
я не знаю как с паскаля их копировать

Практически в лоб. Синтаксис Паскаля -- гораздо проще, чем Си.

Однако же Вас спрашивали о попытках решить, а не собезъянничать...

 Профиль  
                  
 
 Re: прошу помогите начинающему програмисту
Сообщение19.10.2009, 11:36 
Заслуженный участник


09/08/09
3438
С.Петербург
ewert в сообщении #252953 писал(а):
Warlock164 в сообщении #252943 писал(а):
я не знаю как с паскаля их копировать

Практически в лоб. Синтаксис Паскаля -- гораздо проще, чем Си.
Насколько я понял, проблема была в копировании кода программы в сообщение :)

 Профиль  
                  
 
 Re: прошу помогите начинающему програмисту
Сообщение19.10.2009, 11:39 


19/10/09
6
под номером 1

 Профиль  
                  
 
 Re: прошу помогите начинающему програмисту
Сообщение19.10.2009, 11:44 
Заслуженный участник


09/08/09
3438
С.Петербург
Warlock164 в сообщении #252957 писал(а):
под номером 1
Ну что ж, если под номером 1, то поясните, пожалуйста, как Вы с помощью "своего" кода пытаетесь решить поставленную задачу :)

Warlock164 в сообщении #252936 писал(а):
1.Из данного натурального числа удалить все цифры А.(через циклы)

 Профиль  
                  
 
 Re: прошу помогите начинающему програмисту
Сообщение19.10.2009, 18:59 
Заслуженный участник


27/04/09
28128
Забыли о теге code напрочь! Это же нечитабельно! И почему ключевые слова В разном Регистре Набраны? Надо учиться сразу писать как надо. А то потом в вашу сторону будут плеваться активно

-- Пн окт 19, 2009 21:59:53 --

И отступы, где они?

 Профиль  
                  
 
 Re: прошу помогите начинающему програмисту
Сообщение19.10.2009, 19:02 
Заслуженный участник


09/08/09
3438
С.Петербург
arseniiv в сообщении #253047 писал(а):
Забыли о теге code напрочь! Это же нечитабельно! И почему ключевые слова В разном Регистре Набраны? Надо учиться сразу писать как надо. А то потом в вашу сторону будут плеваться активно
Да это вообще решение от другой задачи :)

 Профиль  
                  
 
 Re: прошу помогите начинающему програмисту
Сообщение19.10.2009, 19:05 
Заслуженный участник


27/04/09
28128
Ну и плюс вами указанное :) Всё равно где отступы!

-- Пн окт 19, 2009 22:34:48 --

Кстати,
Код:
if odd(n) then
  e := -1/(2*n*fak*n*fak)
else
  e := 1/(2*n*fak*n*fak);
За такой код... (Я просто сделал то, что с ним сделали бы "корректор" и компилятор.)

 Профиль  
                  
 
 Re: прошу помогите начинающему програмисту
Сообщение19.10.2009, 20:36 
Заслуженный участник


11/05/08
32166
arseniiv в сообщении #253050 писал(а):
Кстати,
Код:
if odd(n) then
  e := -1/(2*n*fak*n*fak)
else
  e := 1/(2*n*fak*n*fak);
За такой код... (Я просто сделал то, что с ним сделали бы "корректор" и компилятор.)

А что?... Отступы как отступы. Ну за дублирование полуцензурных слов можно, конечно, и обругать (вполне достаточно было бы привести их по одному разу)...

 Профиль  
                  
 
 Re: прошу помогите начинающему програмисту
Сообщение20.10.2009, 11:22 
Заслуженный участник


27/04/09
28128
ewert в сообщении #253115 писал(а):
Отступы как отступы.
Заметьте, что отступов в оригинальном тексте не было никаких :lol:

 Профиль  
                  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 23 ]  На страницу 1, 2  След.

Модераторы: Karan, Toucan, PAV, maxal, Супермодераторы



Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group