Просто так ... |
Простые задачи |
1. В файле input.txt записаны две переменные A и B, которые являются коэффициентами линейного уравнения (ax+b=0). Помните что a и b могут быть любыми действительными числами.Разработайте функцию (процедуру) с помощью которой в файл output.txt будет записано решение линейного уравнения. ------------------------------------------ Например:В файле input.txt ------------------------------------------ 0 5 ------------------------------------------- То в файле output.txt запись ------------------------------------------- Нет решения ------------------------------------------- Решение Иванова В.А. язык VBS Dim StdIn, StdOut ' Описание переменных Dim path_in, path_out Dim fso, a, b, str '------------------ path_in="input.txt" path_out="output.txt" '------------------------- Sub inp ' Чтение из файла Set fso = CreateObject("Scripting.Filesystemobject") Set StdIn=fso.OpenTextFile(path_in, 1, true) a=CInt(StdIn.ReadLine()) b=CInt(StdIn.ReadLine()) StdIn.Close() End Sub '------------------------ Sub out 'Запись в файл Set fso = CreateObject("Scripting.Filesystemobject") Set StdOut=fso.OpenTextFile(path_out, 2, true) StdOut.WriteLine(str) StdOut.Close() End Sub '--------------------- Sub solve ' Процедура решения if a=0 _ then if b=0 _ then str="х - любое" else str="нет решений" end if else str=-b/a end if End Sub '------------------ Sub Main ' Программа inp solve out End Sub Main 'Точка входа ======================== 2. Вторая задача --------------------------------------------- В файле input.txt записаны две целочисленные переменные A и B.Поменяйте местами их содержимое, не используя третьей переменной.Можно использовать только четыре математических действия (сложение, вычитание, умножение, деление).Результат обмена запишите в файл output.txt.Напримерв input.txt --------------- 3 5 --------------- то в output.txt --------------- 5 3 --------------- Автор решения: Гращенкова Наталья ----------------------- Язык программирования Object Pascal системы программирования Delphi (Borland® Delphi® for Microsoft® Windows™ Version 10.0.2288.42451 ).Решение задачи из раздела Логические задачи. Простая задача: program Project1; program Project1;{$APPTYPE CONSOLE} uses SysUtils; var a, b: integer; procedure input(); var f: text; begin AssignFile(f, 'input.txt'); Reset(f); Readln(f, a); Readln(f, b); Close(f); end; procedure main(); begin a:=a+b; b:=a-b; a:=a-b; end; procedure output(); var f: text; begin AssignFile(f, 'output.txt'); Rewrite(f); Writeln(f, a); Writeln(f, b); Close(f); end; begin input; main; output; end. |
