Часовой пояс: UTC + 3 часа




Начать новую тему Новая тема / Ответить на тему Ответить  Сообщений: 38 • Страница 1 из 21  2  >
  Пред. тема | След. тема 
В случае проблем с отображением форума, отключите блокировщик рекламы
Автор Сообщение
 

Дело вот в чем. :insane:Я учусь в уневере, есть проблема. Мне завтра здавать прогу по Pascal, но я не успеваю её сделать. Самое противное что тетрадь я посеял где-то посеял. Если есть время помогите сделать
Задание: всоздать матрицу в ней подсчитать сумму каждой строки и затем эту сумму надо вывести дополнительным столбцом, после матрицы. Нужно делать с процедурами.:weep:

За любуи инфу благодарен



Партнер
 

Member
Статус: Не в сети
Регистрация: 27.11.2004
Откуда: Россия/Саратов
Обясните пожалуйста почему в коде с формулами квадратного уравнения переменным нельзя задать вид Longint???

_________________
...from Toshk@ :-)


 

Member
Статус: Не в сети
Регистрация: 15.04.2004
Откуда: Москва
Toshk@
Ты пример приведи, а то не понятно, что ты имеешь ввиду.

_________________
Цель жизни - d20 по жизни...


 

Халява! в каком ты универе учишся???... этож школа 100%! написал бы прогу но боюсь в синтаксисе ошибиться, надо лекции проштудировать... а это так в лом! Даже думать не хочется!...


 

Member
Статус: Не в сети
Регистрация: 27.11.2004
Откуда: Россия/Саратов
Avaddon
Program kvadratnoeuravnenie(input,output);
{Решение квадратных уравнений}

var
a,b,c,d,x1,x,x2: real;-------------------почему атрибут Real нельзя поменять на Longint ???

begin
writeln ('введите переменные');
readln (a,b,c);
d:=b*b-4*a*c;
if d>0 then begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(+b+sqrt(d))/(2*a);
writeln ('x1=',x1,'x2=',x2);
end

else
if d=0 then begin
x:=-b/(2*a);
writeln ('x=',x)
end
else writeln ('уравнение не имеет решения')
end.[/b]

_________________
...from Toshk@ :-)


 

Member
Статус: Не в сети
Регистрация: 14.03.2004
Откуда: Москва
Toshk@ Тогда это будет иметь смысле если корни целые

_________________
ФИЗТЕХ- рулез, ФАКИ - сила, Кванты тоже хорошо


 

Member
Статус: Не в сети
Регистрация: 27.11.2004
Откуда: Россия/Саратов
nickyoz нипонял, а причём здесь целые корни, или ты хочеш сказать что longint может быть только целым числом???

_________________
...from Toshk@ :-)


 

Member
Статус: Не в сети
Регистрация: 13.04.2004
Откуда: Москва
Toshk@
Цитата:
ты хочеш сказать что longint может быть только целым числом???

ну е-мое, конечно оно целое, от -2^31 до 2^31 в борланд паскаль


 

Member
Статус: Не в сети
Регистрация: 27.11.2004
Откуда: Россия/Саратов
Galaxy Понятно тогда такой вопрос: как сделать так что-бы в той проге(про квадратные уравнения)
в ответе получалось дробное числь с 3-мя знаками после запятой, а не громадное число на конце которого
непонятная буква Е и +ещё какое-то четырёхзначное число, да кстати что ознаает "Е" и число после знака +

_________________
...from Toshk@ :-)


 

Member
Статус: Не в сети
Регистрация: 14.03.2004
Откуда: Москва
123 e+321 = 123*10^(+321)

_________________
ФИЗТЕХ- рулез, ФАКИ - сила, Кванты тоже хорошо


 

Member
Статус: Не в сети
Регистрация: 13.04.2004
Откуда: Москва
Toshk@
Код:
writeln('x=',x:5:3);

5 - макс кол-во выводимых цифр до запятой
3 - после


 

Member
Статус: Не в сети
Регистрация: 27.11.2004
Откуда: Россия/Саратов
nickyoz Что это значит?

Добавлено спустя 5 минут, 51 секунду:
Galaxy Спасибо)

Добавлено спустя 11 минут, 23 секунды:
Galaxy прописа, и программа вообще работать перестала((( ГОВОРИТ что d<0 всегда

_________________
...from Toshk@ :-)


 

Чувак вообще про марицу спрашивал, а вы со своими квадратными уровнениями!!!

integer <= foreva...


 

Member
Статус: Не в сети
Регистрация: 14.08.2003
Откуда: Питер
Toshk@
Почитай литературу про задание в проге переменных.
Надо писать так:
Код:
a,b,c,d: longint;
x1,x2,x3: real; // и в данном случае будет всегда вещественным, т.к. там есть sqrt и деление.

_________________
Лучшая зашита - это нападение.


 

Member
Статус: Не в сети
Регистрация: 27.11.2004
Откуда: Россия/Саратов
AndreEj Тема видиш какая, что моё сообщение не соответствует ей????

_________________
...from Toshk@ :-)


 

Member
Статус: Не в сети
Регистрация: 13.04.2004
Откуда: Москва
Toshk@
Цитата:
ГОВОРИТ

чего-чего говорит ;) ?


 

Member
Статус: Не в сети
Регистрация: 27.11.2004
Откуда: Россия/Саратов
Galaxy Ну вот пришёл за советм начинающий програмист (который ещё не програмист) а над ним сразу прикалываться начинают.

_________________
...from Toshk@ :-)


 

Member
Статус: Не в сети
Регистрация: 13.04.2004
Откуда: Москва
Toshk@ не я не понял, честно :D
если ошибка - пиши какая, дословно
в коде еще че-нибудь менял?


 

Member
Статус: Не в сети
Регистрация: 27.11.2004
Откуда: Россия/Саратов
я написал, как ты сказал:writeln('x=',x:5:3); после его мне стало выдавать что d<0 следовательно уравнение не имеет решения...вот....

_________________
...from Toshk@ :-)


 

Member
Статус: Не в сети
Регистрация: 13.04.2004
Откуда: Москва
Toshk@ that's quite strange
Цитата:
a,b,c,d,x1,x,x2: real
тут свой лонгинт не поставил?
какие входные данные?
нажимая кажется F8 можно проследить построчно и проверить все вычисления


Показать сообщения за:  Поле сортировки  
Начать новую тему Новая тема / Ответить на тему Ответить  Сообщений: 38 • Страница 1 из 21  2  >
-

Часовой пояс: UTC + 3 часа


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

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


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

Перейти:  
Создано на основе phpBB® Forum Software © phpBB Group
Русская поддержка phpBB | Kolobok smiles © Aiwan