помогите с паскалем

Форум самодельщиков: помогите с паскалем - Форум самодельщиков

помогите с паскалем исправить ошибки

Страница 1 из 1

Вы не можете создать новую тему
Вы не можете ответить в тему

#1 мишакол

Забредательный медведь

Группа: Пользователи
Сообщений: 795
Регистрация: 18 October 10

Репутация: 357

Любимчик

Отправлено 15 March 2012 - 20:13

кароче, по информатике нужно создать прогу в паскале, чтоб ввести три числа и он нашёл их сумму, произведение и среднее арифметическое
я написал, но в силу моей нубистости она не работает, помогите исправить ошибки

program kal;
begin
var
 a,b,c,d,e:integer;
 f:real;
write('введите три числа и я найду их сумму,произведение и среднее арифметическое');
read (a, b, c);
c:=a+b+c;
d:=a*b*c;
f:=d/3;
writeln ('сумма=',c, 'произведение=',d,'ср арифм=',f);
end

www.vkontakte.ru/club16882087
моя группа,посвящённая именно резинкострелам,нужны активные люди

Наверх of the page up there ^

#2 SERGEY97

Почти Макгайвер

Группа: Пользователи
Сообщений: 1340
Регистрация: 26 July 11

Репутация: 236

Великолепный

Отправлено 15 March 2012 - 20:39

вот, сори что транслэйтом:

var
a,b,c,d,e:integer;
f:real;
begin
writeln('Wwedite tre chsla (cherez probel)');
readln(a,b,c);
d:=a+b+c;
e:=a*b*c;
f:=(a+b+c)/3;
writeln('summa ',d);
writeln('proizwedenie ',e);
writeln('srednee arifmeticheskoe',f);
end.

Наверх of the page up there ^

#3 мишакол

Забредательный медведь

Группа: Пользователи
Сообщений: 795
Регистрация: 18 October 10

Репутация: 357

Любимчик

Отправлено 15 March 2012 - 20:49

SERGEY97, нэт.Ошибка предполагается наличие инструкции
Ошибка компиляции microsoft VBScript

www.vkontakte.ru/club16882087
моя группа,посвящённая именно резинкострелам,нужны активные люди

Наверх of the page up there ^

#4 мишакол

Забредательный медведь

Группа: Пользователи
Сообщений: 795
Регистрация: 18 October 10

Репутация: 357

Любимчик

Отправлено 16 March 2012 - 12:25

помогите, кто-нибудь. Я не прошу написать за меня программу, мне нужно исправить ошибки в существующем коде,чтобы он заработал
Мне срок только до завтра

www.vkontakte.ru/club16882087
моя группа,посвящённая именно резинкострелам,нужны активные люди

Наверх of the page up there ^

#5 zwer1997

Доктор Импровизации

Группа: Пользователи
Сообщений: 210
Регистрация: 04 March 11

Репутация: 101

Достаточно крут

Отправлено 16 March 2012 - 12:52

Кокого хрена у тебя var после begin, вот исправил но лутше сделать чтобы числа по одному вводить, и чтобы найти среднее арифметическое нада делить суму, а не произведение.
var
a,b,c,d,e:real;
f:real;
begin
write('введите три числа');
read (a, b, c);
c:=a+b+c;
d:=a*b*c;
f:=c/3;
writeln ('сума=',c, 'произведение=',d,'среднее арифметическое=',f);
end.

http://vk.com/zwer97

Наверх of the page up there ^

#6 Wa1N3

Доктор Импровизации

Группа: Пользователи
Сообщений: 159
Регистрация: 25 July 10

Репутация: 35

Очень хороший

Отправлено 16 March 2012 - 13:47

program kal;
uses crt;
var
a,b,c,d,e:integer;
f:real;
begin
clrscr;
writeln('введите первое число');
readln (a);
writeln ('Введите второе число');
readln(b );
writeln('Введите третье число');
readln(c );
d:=a+b+c;
e:=a*b*c;
f:=d/3;
writeln ('сумма=',d,' произведение=',e,' ср арифм=',f);
end.

Вообще лучше не давай имя переменным одной буквой, т.к. сам запутаешься, когда будут программы больше по объёму.

Наверх of the page up there ^

#7 SERGEY97

Почти Макгайвер

Группа: Пользователи
Сообщений: 1340
Регистрация: 26 July 11

Репутация: 236

Великолепный

Отправлено 16 March 2012 - 15:03

мишакол (16 March 2012 - 12:25) писал:

Ну я тебе дал правильную, посмотри да разберись, делов то.

Наверх of the page up there ^

#8 MityaKiller

Изобретатель

Группа: Пользователи
Сообщений: 455
Регистрация: 31 August 10

Репутация: 66

Лучший

Отправлено 16 March 2012 - 18:42

Замени тип integer на real, integer нельзя делить на число - только div,ом а он округляет. Как-то так.

program kal;
var
a,b,c,d,f:real;
begin;
write('введите три числа и я найду их сумму,произведение и среднее арифметическое');
read(a,b,c);
c:=a+b+c;
d:=a*b*c;
f:=d/3;
writeln ('сумма=',c, ' произведение=',d,' ср арифм=',f);
end.