Тема: Допоможіть написати програму в Pascal

Завдання полягає в наступному:
Написати програму, яка запрошує з клавіатури три назви місяців й запису їх в файл на диску, після чого виводить їх на екран.

2

Re: Допоможіть написати програму в Pascal

Ви знаєте що таке тип string, і функції readln, writeln, та assign?

Подякували: Torbins, Дмитрій2

3

Re: Допоможіть написати програму в Pascal

Дмитрій написав:

Завдання полягає в наступному:
Написати програму, яка запрошує з клавіатури три назви місяців й запису їх в файл на диску, після чого виводить їх на екран.

І що саме в тебе не виходить??

(шукаєш в гуглі: 1. ввід даних з клави, 2. запис даних у файл, 3. вивід даних на екран)

Подякували: Дмитрій1

4

Re: Допоможіть написати програму в Pascal

bunyk написав:

Ви знаєте що таке тип string, і функції readln, writeln, та assign?

Так, знаю. Writeln - це виведення інформації, readln - введення даних в пам'ять комп'ютера, assing - процедура типу файлу, яка відкриває доступ до файлу.

5

Re: Допоможіть написати програму в Pascal

Отут іще можете почитати: http://www.delphikingdom.com/lyceum/seminar.asp?ID=2 Там непогано усе роз'яснюється. Хоча самі приклади мабуть у вас не запрацюють, бо вони не для паскалю, а уже для делфі.

Подякували: Дмитрій1

6

Re: Допоможіть написати програму в Pascal

Дякую за поради. Але з'явилось питання: як зробити, щоб замість x,y,z записувались в файл введені місяці.
program lab_10;
var f1:text;
    st:string;
    x,y,z:string[10];
begin
    writeln('Введіть три місяці послідовно (через пробіл): ');
    readln(x,y,z);   
    assign(f1,'C:\TP\file1.txt');
    rewrite(f1);
    writeln(f1,'x');
    writeln(f1,'y');
    writeln(f1,'z');
    close(f1);
    reset(f1);
    while not EOF (f1) do
    begin
      readln(f1,st);
      writeln(st);
    end;
    close(f1);
end.

7

Re: Допоможіть написати програму в Pascal

Усе, що знаходиться між одинарними лапками, є простим текстом. Поставте замість цього тексту назви змінних, і тоді в консоль виводитиметься їх вміст.

Подякували: Дмитрій1

8

Re: Допоможіть написати програму в Pascal

Torbins написав:

Усе, що знаходиться між одинарними лапками, є простим текстом. Поставте замість цього тексту назви змінних, і тоді в консоль виводитиметься їх вміст.

Дякую, я зрозумів. :)