22.08.2019
Решаем
 задачи
Сайт больше не поддерживается
Просто так ...
Простые задачи
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.
Решайте задачи


Решайте задачи по программированию

Методические
рекомендации:
1. Найдите своего ученика, который решит все предложенные задачи, а затем отправьте его на олимпиаду по информатике.
2. Если таких учеников нет. Тогда: в папке, где будут файлы решения задачи, создайте файл input.txt.
3. Определите, какие данные из файла input.txt необходимо получить.
4. Напишите функцию input(); и выведите исходные данные на монитор.
5. Напишите главную функцию main(); и выведите на монитор результаты работы этой функции.
6. Разработайте функцию output(); которая сформирует выходной файл output.txt.
7. Подключите все функции в файл решения задачи (программу).
8. Разработайте тестовые примеры и протестируйте разработанную вами программу.
9. Скопируйте все листинги вашего решения в редактор типа «Блокнот» и отправьте на проверку в moodle.


С уважением FVA

Рейтинг@Mail.ru