Question

написати програму копіювання файлів, яка пропонує користувачеві ввести ім'я вхідного текстового файлу та ім'я вихідного файлу. Програма повинна замінити приголосні літери в верхній регістр під час його запису у вихідний файл в мові програмування сі

Answer 1

var G,F:file of integer;

   i,j,n:integer;

   s:integer;

   c,c1,c2:integer;

begin

writeln;

write('Vvedite n:');

readln(n);

Assign(G,'C:\g.txt');

Assign(F,'C:\f.txt');

Rewrite(F);

for i:=1 to n do

begin

c1:=1;

c2:=1;

for j:=1 to i+1 do begin

if j<i+1 then c1:=c1*2;

c2:=c2*3;

end;

c:=c1+c2;

write(F,c);

end;

Close(F);

Reset(F);

Rewrite(G);

s:=0;

while not Eof(f) do

begin

read(F,c);

if c>0 then c:=c*(-1);

write(G,c);

s:=s+c;

end;

write(G,s);

close(F);

close(G);

reset(G);

writeln('Komponenty fajla j:');

while not Eof(G) do

begin

read(G,c);

write(c);

end;

readln;

end.

Приклад.Виведення таблиці значень функції у файл.

Програма:

program file_of_values;

var

х : Real;

k : Word;

out_file : Text; {тип Text відповідає файлу. що складається із рядків тексту}

function F(x: Real): Real;  

begin

F := x/d.O + x);  

end;

begin

Assign(out_file, 'c:\user\ivanov\table.dat');

Rewrite(out_file);

x := 0.0;

WriteLn(out_file, 'Таблиця значень функції F(x) = x/(l + x)');

WriteLn(out_file);

WriteLn(out_file, 'x':9, 'F(x)':19);

WriteLn(out_file);

for k := 0 to 50 do  

begin

WriteLn(out_file, x:9:3, F(x):19:9);

x := x + 0.1:

if k mod 10 = 9 then WriteLn(out_file);  

end;

Close(out_file);  

end.

Answer 2

Звісно, ось приклад програми на мові програмування C, яка здійснює копіювання файлів з заміною приголосних літер на верхній регістр:

cCopy code
#include <stdio.h>
#include <ctype.h>

int main() {
    char inputFileName[100], outputFileName[100];
    
    // Запит на введення імені вхідного файлу
    printf("Введіть ім'я вхідного файлу: ");
    scanf("%s", inputFileName);
    
    // Запит на введення імені вихідного файлу
    printf("Введіть ім'я вихідного файлу: ");
    scanf("%s", outputFileName);
    
    FILE *inputFile = fopen(inputFileName, "r");
    FILE *outputFile = fopen(outputFileName, "w");
    
    if (inputFile == NULL || outputFile == NULL) {
        printf("Помилка відкриття файлу.\n");
        return 1;
    }
    
    char c;
    while ((c = fgetc(inputFile)) != EOF) {
        if (isalpha(c)) {  // Перевіряємо, чи символ є літерою
            if (c == 'a' || c == 'e' || c == 'i' || c == 'o' || c == 'u' ||
                c == 'A' || c == 'E' || c == 'I' || c == 'O' || c == 'U') {
                // Якщо символ є голосною літерою, просто записуємо його
                fputc(c, outputFile);
            } else {
                // Якщо символ є приголосною літерою, записуємо його в верхньому регістрі
                fputc(toupper(c), outputFile);
            }
        } else {
            // Якщо символ не є літерою, просто записуємо його
            fputc(c, outputFile);
        }
    }
    
    // Закриваємо файли
    fclose(inputFile);
    fclose(outputFile);
    
    printf("Копіювання та заміна приголосних завершено.\n");
    
    return 0;
}

Ця програма зчитує ім'я вхідного та вихідного файлів, відкриває їх, посимвольно читає вміст вхідного файлу та записує його в вихідний файл замість приголосних букв у верхньому регістрі. Якщо виникне помилка під час відкриття файлів, програма виведе повідомлення про помилку.