Вчера начал изучать программирование, в школе наседают, ничего не объяснют, приходится дотумковать самому.
Ввести три числа, найти их сумму, произведение и среднее арифметическое.
Пример:
Введите три числа:
4 5 7
4+5+7=16
4*5*7=140
(4+5+7)/3=5.33
Я сделал только сумму и произведение:
program qq;
var a, b, c, d, e: integer;
begin
writeln( ‘Введите три целых числа’ );
read ( a, b, c );
d := a + b + c;
e := a * b * c;
f := ( a + b + c ) / 3 вот тут я так написал.
writeln ( a, ‘+’, b, ‘+’, c, ‘=’, d );
writeln ( a, ‘*’, b, ‘*’, c, ‘=’, e );
writeln ( a, ‘+’, b, ‘+’, c, ‘/’, 3, ‘=’, f ); и вот тут так.
end.
———- Добавлено в 20:20 ———- Предыдущее сообщение было написано в 20:12 ———-
помогите, срочно надо!!
Последний раз редактировалось bugatti; 29.03.2012 в 21:42 .
Регистрация: 21.11.2009
Сообщений: 486
Репутация: 47
bugatti, не очень разбираюсь в Паскале, но можно, например, так:
Python l Нахождение среднего арифметического списка с использованием функции sum
program qq;
var a, b, c, d, e, f: integer;
begin
writeln( ‘Vvedite 3 chisla’ );
read ( a, b, c );
d := a + b + c;
e := a * b * c;
f := ( a + b + c ) div 3;
writeln ( a, ‘+’, b, ‘+’, c, ‘=’, d );
writeln ( a, ‘*’, b, ‘*’, c, ‘=’, e );
writeln ( a, ‘+’, b, ‘+’, c, ‘/’, 3, ‘=’, f );
end.
Регистрация: 26.01.2010
Сообщений: 1,454
Репутация: 101
Вчера начал изучать программирование, в школе наседают, ничего не объяснют, приходится дотумковать самому.
Ввести три числа, найти их сумму, произведение и среднее арифметическое.
Пример:
Введите три числа:
4 5 7
4+5+7=16
4*5*7=140
(4+5+7)/3=5.33
Я сделал только сумму и произведение:
program qq;
var a, b, c, d, e: integer;
begin
writeln( ‘Введите три целых числа’ );
read ( a, b, c );
d := a + b + c;
e := a * b * c;
f := ( a + b + c ) / 3 вот тут я так написал.
writeln ( a, ‘+’, b, ‘+’, c, ‘=’, d );
writeln ( a, ‘*’, b, ‘*’, c, ‘=’, e );
writeln ( a, ‘+’, b, ‘+’, c, ‘/’, 3, ‘=’, f ); и вот тут так.
end.
———- Добавлено в 20:20 ———- Предыдущее сообщение было написано в 20:12 ———-
помогите, срочно надо!!
для целочисленного деления применяют функции div и mod
Функция Div выполняет деление,Mod считает остаток от целочисленного деления например:
rez:=4 div 2 rez:=5 div 2 rez:=5 mod 2
И не надо применять такое большое кол-во переменных достаточно 4 например:
. rez:=a+b+c; writeln(rez); rez:=a*b*c; writeln(rez); rez:=(a+b+c) div 3; writeln(rez);.
Источник: pchelpforum.ru
Вычислить среднее арифметическое чисел, находящихся в текстовом файле. Как дополнить программу? — Turbo Pascal
Написать программу, которая вычисляет среднее арифметическое чисел, находящихся в текстовом файле F, и дописывает результат в конец этого файла. Сама программа вычисляющая среднее арифметическое вот.
Python l Нахождение среднего арифметического списка без использования функций
uses crt; var k,s:real; n,i:integer; begin clrscr; writeln(‘Vvedite kol-vo vvodimix chisel’); readln(n); for i:=1 to n do begin writeln(‘Vvedite ‘,i,’ chislo’); readln(k); s:=s+k; end; writeln(‘Srednee arifmeticheskoe=’,s/n:5:2); readkey; end.
Как её дополнить/изменить, чтобы она ещё и записывала в файл? Заранее спасибо за помощь.
Код к задаче: «Вычислить среднее арифметическое чисел, находящихся в текстовом файле. Как дополнить программу?»
Листинг программы
uses crt; var f:text; a,s:real; k:integer; begin clrscr; assign(f,’input.txt’); reset(f); k:=0; while not eof(f1) do begin read(f,a); k:=k+1; s:=s+a; end; s:=s/k; append(f); writeln(f); writeln(f,’Srednee arifmeticheskoe=’,s:0:2); close(f); write(‘Результат дописан в файл input.txt’); readln end.
Источник: studassistent.ru
Написать программу, которая вычисляет среднее арифметическое вводимой с клавиатуры последовательности дробных чисел. Количество чисел должно задаваться во время работы программы. (цикл для)(паскаль )
Program Nooobodyyy;
uses crt;
var
i,how:integer;
ch,appr,sum:real;
begin
writeln(‘*** Alphaeus is thinking… ***’);
writeln(‘*** OK ***’);
writeln(); writeln();
writeln(‘Программа запрашивает N дробных чисел и находит их среднее арифметическое’);
sum:=0;
write(‘Введите количество чисел: ‘); readln(how);
for i:=1 to how do
begin
write(‘Введите ‘,i,’-e число: ‘); read(ch);
sum:=sum+ch;
end;
appr:=sum/how;
writeln(‘Cреднее арифметическое равно ‘,appr:8:2);
end.
Источник: globuss24.ru