Пример решения задачи на паскале
Задача: написать программу для решения квадратного уравнения.
Решение любой задачи начинается с составления алгоритма.
Квадратное уравнение — это уравнение вида ax2 + bx + c = 0, где a не равно 0.
Для
решения квадратного уравнения можно
использовать формулы:
где D = b2 - 4ac — дискриминант многочлена ax2 + bx + c.
Если D > 0, то уравнение имеет два различных вещественных корня.
Если D = 0, то оба корня вещественны и равны.
Если D < 0, то оба корня не являются вещественными числами.
Зная это построим блок схему
ДА
НЕТ
Program Sq2;
Var a,b,c,D,x1,x2: real;
Begin
Writeln ('Programma reshenia kvadratnogo uravnenia');
Writeln ('Vvedite a,b,c');
Write ('a='); readln (a);
Write ('b='); readln (b);
Write ('c='); readln (c);
if a=0 then Writeln ('FATAL ERROR a=0 ')
else begin
D:=b*b-4*a*c;
Writeln ('D=',D:8:3);
if D<0 then Writeln ('D<0 Kornei net')
else begin
x1:=(-b+sqrt(D))/2*a;
x2:=(-b-sqrt(D))/2*a;
Writeln ('x1=',x1:8:3,' x2=',x2:8:3);
end;
end;
readln;
end.
Заключение
В своей работе я подробно познакомилась с языками программирования и их историей.
Приложение (hello, world!)
Здесь в качестве примера «кода» я буду приводить текст программы “HELLO, WORLD!”. Которая используется в наше время для проверки работоспособности среды программирования.
1 приложение
Программа «Hello, world!» для процессора архитектуры x86 (ОС MS DOS, вывод при помощи BIOS прерывания int 10h) выглядит следующим образом (в шестнадцатеричном представлении):
BB 11 01 B9 0D 00 B4 0E 8A 07 43 CD 10 E2 F9 CD 20 48 65 6C 6C 6F 2C 20 57 6F 72 6C 64 21
2 Приложение
Пример консольной программы для Windows на диалекте FASM
format PE console
entry start
include 'include\win32a.inc'
section '.data' data readable writeable
message db 'Hello, world!',0
section '.code' code readable executable
start:
cinvoke printf,message
cinvoke getch
invoke ExitProcess,0
section '.idata' import data readable
library kernel,'kernel32.dll',\
msvcrt,'msvcrt.dll'
import kernel,\
ExitProcess,'ExitProcess'
import msvcrt,\
printf,'printf',\
getch,'_getch'
3 приложение
␣␣␣␣␣␣PROGRAM hello
␣␣␣␣␣␣PRINT*, 'Hello, World!'
␣␣␣␣␣␣END
4 приложение
BEGIN
FILE F (KIND=REMOTE);
EBCDIC ARRAY E [0:11];
REPLACE E BY "HELLO, WORLD!";
WHILE TRUE DO
BEGIN
WRITE (F, *, E);
END;
END.
5 приложение
IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO-WORLD.
*
ENVIRONMENT DIVISION.
*
DATA DIVISION.
*
PROCEDURE DIVISION.
PARA-1.
DISPLAY "Hello, world.".
*
EXIT PROGRAM.
END PROGRAM HELLO-WORLD.
6 приложение
Begin
OutText ("Hello World!");
Outimage;
End;
7 приложение
program HelloWorld(output);
begin
writeln('Hello, World!');
end.
8 приложение
#include <stdio.h>
void main() { printf("Hello World!"); }
9 приложение
public class HelloWorld {
public static void main(String[] args) {
System.out.println("Hello, world!");
}
}
10 приложение
using System;
namespace Example
{
class Program
{
static void Main()
{
Console.WriteLine("Hello World!"); //
______Console.ReadKey(); //
____}
}
}
11 приложение
#include <iostream>
using namespace std;
int main()
{
cout << "Hello, world!" << endl;
return 0;
}
12 приложение
<?php
echo 'Hello, world!';
?>
<?= 'Hello, world!' ?>
13 приложение
from urllib2 import urlopen
u = urlopen("http://python.org")
words = {}
for line in u:
line = line.strip(" \n")
for word in line.split(" "):
try
words[word] += 1
except KeyError:
words[word] = 1
pairs = words.items()
pairs.sort(key=lambda x: x[1], reverse=True)
for p in pairs[:10]:
print p[0], p[1]