Язык паскаль онлайн

For j:=nc-1 downto 1 do

If c[j]<10 then write(o,’00000000’,c[j])

Else if c[j]<100 then write(o,’0000000’,c[j]) else if c[j]<1000 then write(o,’000000’,c[j])

Else if c[j]<10000 then write(o,’00000’,c[j]) else if c[j]<100000 then write(o,’0000’,c[j])

Else if c[j]<1000000 then write(o,’000’,c[j]) else if c[j]<10000000 then write(o,’00’,c[j])

Else if c[j]<100000000 then write(o,’0’,c[j]) else write(o, c[j]);

Writeln(o); close(o) END.

Виконуємо

На основі коду, наведеного нижче, створіть проект, який можна використовувати для виведення даних, поданих у вигляді масиву в файл з наступним його читанням. Для якого середовища програмування створено цю програму?

Procedure TForm1.Button2Click(Sender: TObject); var

F: TextFile; // файл

FName: String[32]; // ім’я файла i: integer;

Begin

FName := Edit1.Text; AssignFile(f, fName);

Append(f); // відкрити для додавання

// запис у файл

For i:=0 to Memo1.Lines. Count do // рядки нумеруются з нуля writeln(f, Memo1.Lines[i]);

CloseFile(f); // закрити файли

MessageDlg(‘Дані ДОДАНІ у файл ‘,mtInformation,[mbOk],0); end;

Дано файл, у якому кожний рядок містить три числа, відокремлені пропуском, – коефіцієнти квадратного рівняння. Допишіть до кожного рядка файла результати розв’язування відповідного рівняння та зберегти їх у новому файлі.

Кожний рядок файла містить два слова: перше слово – англійською мовою, друге – переклад першого слова українською мовою. Написати програму для перекладу слова з англійської мови з використанням такого файла.

Файл містить телефонний довідник міста за такою структурою: кож — ний рядок містить телефон, прізвище, назву вулиці, номер будинку, номер квартири. Напишіть програму для пошуку за довідником таких даних:

За номером телефону визначити прізвище та адресу проживання абонента;

За прізвищем визначити номер телефону;

За назвою вулиці визначити номери телефонів та прізвища абонен — тів.

Файл містить результати проведення футбольного чемпіонату за такою структурою: кожний рядок містить назву команди й послідовність із N чисел Аj, відокремлених пропуском (j=1…N). Число N вказує на кількість

Команд, які брали участь у чемпіонаті. Число Аj вказує на результат (у

Балах) гри команди поточного рядка з командою j-го рядка і може набу-

Вати значень: “0” – поразка, “1” – нічия, “2” – виграш. Виведіть на екран

У вигляді таблиці результати чемпіонату. Під таблицею, через рядок, здійсніть порядкове виведення даних про назви команд, кількість нічиїх, поразок, виграшів та сумарну кількість балів, упорядкувавши виведені рядки за сумарною кількістю балів.

Спробуйте самостійно розв’язати задачі одного з відбіркових турів олімпіади з програмування:

Письмо

Назва програми: writing. pas / writing. cpp

На уроці письма й каліграфії Петрик один або кілька разів поспіль виписав у зошиті одне й те саме натуральне число. Утворилося шести — цифрове число n. Допоможіть учительці з’ясувати, яке найменше число міг виписувати Петрик.

Вхідні дані. У вхідному файлі вказане шестицифрове натуральне число n.

Вихідні дані. У вихідний файл виведіть найменше натуральне число, яке міг виписувати Петрик.