Форум АНТИЧАТ - Студентам с лабораторными сюда

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby (https://forum.antichat.xyz/forumdisplay.php?f=24)

- - Студентам с лабораторными сюда (https://forum.antichat.xyz/showthread.php?t=122076)

Цитата:

Сообщение от 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." Считал среднее геометрическое от частей исходной последовательности чисел, идущих друг за другом и не пересекающихся между собой.

Нужна помощь на завтра нужно сделать лабу . Буду оч благодарен если ктото сделает

Цитата:

Лабораторна робота № 13 Вказівниковий тип
Створити лінійний список (списки) (не менше 10 компонентів) того типу, про які йдеться мова у варіантах завдань і виконати над ними вказані дії. Вивести список на екран до та після виконання вказаних дій (якщо відбувається модифікація списку).
1. У списку слів визначити кількість слів, які починаються і закінчуються одними і тими ж самими літерами.

Цитата:

Лабораторная работа № 13 Вказивниковий тип
Создать линейный список (списки) (не менее 10 компонентов) того типа, о которых идет речь в вариантах задач и выполнить над ними указанные действия. Вывести список на экран до и после выполнения указанных действий (если происходит изменение списка).
1. В списке слов определить количество слов, которые начинаются и заканчиваются одними и теми же буквами.

Написать программу, которая производит подсчет параметров электрической цепи постоянного тока (ток, напряжение). Электрическая цепь строится графически, параметры ее элементов (ЭДС, резисторы,) задаются с клавиатуры.

Возьмется кто-то? За вознаграждение естественно.

Даны три квадратные матрицы A, B, C.
Найти длину вектора X={x1, x2, x3}, где x1 – сумма элементов матрицы A; x2 – сумма элементов матрицы B; x3 – сумма элементов матрицы C. Вычислить сумму элементов матрицы оформить в виде подпрограммы – функции.

Нужна помощь :)
В delphi :)
Спасибо :)

StealthMaster, уфф, спс:)

Цитата:

Сообщение от walien

Не люблю я делфи, вот тебе на С. Сам переделаешь.

Код:

#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;

}

а такой вопрос ... как сделать калькулятор двоичных чисел точнее как именно реальзовать деление ? в долгу не останусь ....

Срочно нужна помощь

На основании исходных данных представленных в таблице 4. Необходимо на языке С или С++ написать программу определения:
- среднемесячной заработной платы одного рабочего на предприятии

http://s39.radikal.ru/i085/0912/0a/46024191fbbf.jpg