Перевести код с Pascal - C (СИ) (77430)

Узнай цену своей работы

Формулировка задачи:

как эту программу в паскале сделать на языке СИ
Program S9;
 
Var
    Kol:Integer;
    f:Text;
    cell:Char;
Begin
    Kol:=0;
    Assign(F,'res.txt');
    Reset(F);
    While Not Eof(F) Do
        Begin
            Read(F,cell);
            If cell = 'р' Then
                Inc(Kol);
        End;
    Close(F);
    WriteLn('Kol = ',Kol);
    ReadLn;
End.

Решение задачи: «Перевести код с Pascal»

textual
Листинг программы
#include <stdio.h>
 
int main(void)
{
    FILE *f;
    char cell;
    int count = 0;
 
    f = fopen("res.txt", "r");
 
    if (NULL == f)
    {
        fprintf(stderr, "Error: Can't open file\n");
        return 1;
    }
 
    while (fscanf(f, "%c", &cell) == 1)
        if ('p' == cell)
            ++count;
 
    fclose(f);
 
    printf("Count: %d\n", count);
 
    return 0;
}

Объяснение кода листинга программы

  1. Подключение необходимых библиотек
    • Подключение библиотеки для работы с файлами (stdio.h)
  2. Определение точки входа в программу
  3. Объявление переменных
    • f - указатель на файл
    • cell - символ, считываемый из файла
    • count - счетчик
  4. Открытие файла res.txt для чтения
  5. Проверка на успешное открытие файла
    • Если файл не удалось открыть, выводится сообщение об ошибке и возвращается 1
  6. Бесконечный цикл, считывающий символы из файла
    • Условие цикла - успешное считывание символа
    • Считывание символа в переменную cell
  7. Проверка на считывание символа 'p'
    • Если считанный символ равен 'p', увеличивается счетчик count
  8. Закрытие файла
  9. Вывод значения счетчика count
  10. Возврат 0, означающий успешное выполнение программы

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 4.286 из 5