Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
09.12.2009, 16:53
|
|
Познающий
Регистрация: 03.12.2008
Сообщений: 56
Провел на форуме:
140714
Репутация:
29
|
|
Сообщение от P.A.U.L
[PASCAL] Помогите доделать лабу или исправьте что не так...
Вот текст задачи: Дайн файл f, компоненты которого являются действительными числами. Число компонентов файла кратно 4-м.
Получить в файле g среднее геометрические значения по каждым 4-м компонентам файла f.
Код:
program textfile;
uses crt;
var f:text;
s:string;
k,code,i,s1:integer;
m:array [1..20] of integer;
begin
clrscr;
assign(f,'H:\f.txt');
reset(f);
while not eof(f) do begin
readln(f,s);
writeln('Stroka deistvitelnix chisel');
writeln(s); end;
Val(s,k,code);
writeln(k);
(тут что то надо дописать)
close(f);
readln;
end.
Код:
PROGRAM PTextFiles;
uses
crt;
var
f, g: text;
TmpArray: array [1..4] of real;
counter: byte;
function GetAG: real;
var
tmp: real;
i: byte;
begin
tmp := 1;
for i := 1 to 4 do
tmp := tmp * TmpArray[i];
tmp := exp(0.25*ln(tmp));
GetAG := tmp;
end;
var
tmp: real;
begin
clrscr;
counter := 0;
assign(f, 'C:\1.txt');
reset(f);
assign(g, 'C:\2.txt');
rewrite(g);
while not(eof(f)) do
begin
inc(counter);
Readln(f, TmpArray[counter]);
if (counter = 4) then
begin
tmp := GetAG;
writeln(g, tmp);
writeln(tmp);
counter := 0;
end;
end;
close(f);
close(g);
readln;
end.
Функция GetAG считает среднее геометрическое последних 4х считанных файлов.
Последовательность средних геометрических выводится на экран и записывается в файл C:\2.txt
Хотя не совсем понял фразу "Получить в файле g среднее геометрические значения по каждым 4-м компонентам файла f." Считал среднее геометрическое от частей исходной последовательности чисел, идущих друг за другом и не пересекающихся между собой.
Последний раз редактировалось StealthMaster; 09.12.2009 в 16:58..
|
|
|
09.12.2009, 19:51
|
|
Участник форума
Регистрация: 07.08.2007
Сообщений: 136
Провел на форуме:
2010588
Репутация:
653
|
|
Нужна помощь на завтра нужно сделать лабу . Буду оч благодарен если ктото сделает
Лабораторна робота № 13 Вказівниковий тип
Створити лінійний список (списки) (не менше 10 компонентів) того типу, про які йдеться мова у варіантах завдань і виконати над ними вказані дії. Вивести список на екран до та після виконання вказаних дій (якщо відбувається модифікація списку).
1. У списку слів визначити кількість слів, які починаються і закінчуються одними і тими ж самими літерами.
Лабораторная работа № 13 Вказивниковий тип
Создать линейный список (списки) (не менее 10 компонентов) того типа, о которых идет речь в вариантах задач и выполнить над ними указанные действия. Вывести список на экран до и после выполнения указанных действий (если происходит изменение списка).
1. В списке слов определить количество слов, которые начинаются и заканчиваются одними и теми же буквами.
|
|
|
|
09.12.2009, 20:10
|
|
Познающий
Регистрация: 10.07.2009
Сообщений: 41
Провел на форуме:
1211680
Репутация:
13
|
|
Написать программу, которая производит подсчет параметров электрической цепи постоянного тока (ток, напряжение). Электрическая цепь строится графически, параметры ее элементов (ЭДС, резисторы,) задаются с клавиатуры.
Возьмется кто-то? За вознаграждение естественно.
Последний раз редактировалось kowkin; 09.12.2009 в 20:12..
|
|
|
|
09.12.2009, 20:59
|
|
Новичок
Регистрация: 02.09.2008
Сообщений: 4
Провел на форуме:
246825
Репутация:
0
|
|
Даны три квадратные матрицы A, B, C.
Найти длину вектора X={x1, x2, x3}, где x1 – сумма элементов матрицы A; x2 – сумма элементов матрицы B; x3 – сумма элементов матрицы C. Вычислить сумму элементов матрицы оформить в виде подпрограммы – функции.
Нужна помощь 
В delphi
Спасибо |
|
|
|
10.12.2009, 01:47
|
|
Познающий
Регистрация: 12.08.2009
Сообщений: 32
Провел на форуме:
482943
Репутация:
0
|
|
StealthMaster, уфф, спс
|
|
|
|
10.12.2009, 01:48
|
|
Участник форума
Регистрация: 27.11.2008
Сообщений: 161
Провел на форуме:
298300
Репутация:
128
|
|
Сообщение от walien
Даны три квадратные матрицы A, B, C.
Найти длину вектора X={x1, x2, x3}, где x1 – сумма элементов матрицы A; x2 – сумма элементов матрицы B; x3 – сумма элементов матрицы C. Вычислить сумму элементов матрицы оформить в виде подпрограммы – функции.
Нужна помощь
В delphi
Спасибо Не люблю я делфи, вот тебе на С. Сам переделаешь.
Код:
#include <stdio.h>
int get_matrix_sum(int* matrix, int width, int height);
int main(int argc, char** argv){
int A[4] = {1,2,3,4};
int B[4] = {5,6,7,8};
int C[4] = {9,10,11,12};
int X[3] = {get_matrix_sum(A,2,2), get_matrix_sum(B,2,2), get_matrix_sum(C,2,2)};
printf("Модуль вектора (длина) равна %d\n", get_matrix_sum(X,3,1));
return 0;
}
int get_matrix_sum(int* matrix, int width, int height){
int sum = 0;
for(int i=0; i < height; i++){
for(int j=0; j<width; j++){
sum+=matrix[i+j];
}
}
return sum;
}
|
|
|
|
10.12.2009, 15:58
|
|
Познающий
Регистрация: 24.03.2009
Сообщений: 31
Провел на форуме:
195727
Репутация:
2
|
|
а такой вопрос ... как сделать калькулятор двоичных чисел точнее как именно реальзовать деление ? в долгу не останусь ....
|
|
|
|
10.12.2009, 17:08
|
|
Познающий
Регистрация: 24.03.2009
Сообщений: 31
Провел на форуме:
195727
Репутация:
2
|
|
на С++
|
|
|
|
10.12.2009, 19:37
|
|
Познающий
Регистрация: 24.03.2009
Сообщений: 31
Провел на форуме:
195727
Репутация:
2
|
|
help
|
|
|
|
10.12.2009, 21:48
|
|
Новичок
Регистрация: 17.05.2007
Сообщений: 25
Провел на форуме:
443797
Репутация:
7
|
|
Срочно нужна помощь
На основании исходных данных представленных в таблице 4. Необходимо на языке С или С++ написать программу определения:
- среднемесячной заработной платы одного рабочего на предприятии
Последний раз редактировалось akasha9; 10.12.2009 в 21:54..
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
